в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:02Z

1 версия

Новая страница

==Protect from mark==



<source lang="vb">

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
</source>

==Show all permissions==



<source lang="vb">

Sub ShowPerms()

Dim objContainer As Container
Dim objDoc As Document
For Each objContainer In CurrentDb.Containers
Debug.Print objContainer.Name
For Each objDoc In objContainer.Documents
Debug.Print "Document: " & objDoc.Name;
objDoc.UserName = "Admin"
Debug.Print "Perms: " & objDoc.AllPermissions
Next
Next
Debug.Print "Done"

End Sub
</source>

==Show delete permission==



<source lang="vb">

Sub ShowNoDelPerms()
Dim objContainer As Container
Dim objDoc As Document
For Each objContainer In CurrentDb.Containers
Debug.Print objContainer.Name
For Each objDoc In objContainer.Documents
If (objDoc.AllPermissions And dbSecDelete) = dbSecDelete Then
Debug.Print "Can Delete Document: " & objDoc.Name;
objDoc.UserName = "Admin"
Debug.Print "Perms: " & objDoc.AllPermissions
Else
Debug.Print "Cannot Delete Document: " & objDoc.Name;
objDoc.UserName = "Admin"
Debug.Print "Perms: " & objDoc.AllPermissions
End If
Next
Next
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Access/Database Protect - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия