' Database Security -- Listing Permissions granted

www.softwaredevelopmentdeveloper.com

옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카

아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.

' Database Security -- Listing Permissions granted

Sub ShowPerms()

Dim objContainer As Container
Dim objDoc As Document

For Each objContainer In CurrentDb.Containers
    Debug.Print "--> Container: " & 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  

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

Share |