Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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