Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Protect from mark

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