VBAmacros中的工作簿权限

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

对象“_Workbook”的方法“权限”失败。

这是为什么？

 Sub AddUser() Dim irm As Office.Permission, usr As Office.UserPermission Set irm = ThisWorkbook.Permission irm.Add "[e-mail]", MsoPermission.msoPermissionView Set usr = irm("[e-mail]") usr.ExpirationDate = Date + 1 End Sub 

Answer 1

看起来像你的工作簿没有任何权限设置。 最简单的方法是转到文件 – >保护工作簿 – >标记为最终（Office 2010），然后运行你的macros，看看你是否仍然有相同的错误。

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