vba - VBA 宏中的工作簿权限

Question

行Set irm = ThisWorkbook.Permission不起作用。它不断给出错误

Method 'Permission' of object '_Workbook' failed.

这是为什么？

Sub AddUser()
    Dim irm As Office.Permission, usr As Office.UserPermission
    Set irm = ThisWorkbook.Permission
    irm.Add "someone@hotmail.com", MsoPermission.msoPermissionView
    Set usr = irm("someone@hotmail.com")
    usr.ExpirationDate = Date + 1
End Sub

Answer 1

似乎您的工作簿没有设置任何权限。最简单的测试方法是转到 File-->Protect Workbook --> Mark as Final (Office 2010)，然后运行您的宏，看看您是否仍然遇到相同的错误。

尝试使用 Windows 权限管理设置一些权限，然后重试。