Sub ProtectItFromMark() Dim db As Database Dim Doc As Document Set db = CurrentDb() Set Doc = db.Containers("Forms").Documents("frmPassword") Doc.UserName = "M" Doc.Permissions = dbSecFullAccess And Not dbSecDelete End Sub