Protect from mark : Database Protect « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Protect

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

 

Related examples in the same category