VBA宏中的工作簿权限 [英] Workbook Permissions in VBA Macros
本文介绍了VBA宏中的工作簿权限的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
Set irm = ThisWorkbook.Permission行不起作用.它不断给出错误
The line Set irm = ThisWorkbook.Permission doesn't work. It keeps giving the error
对象"_Workbook"的方法权限"失败.
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
推荐答案
似乎您的工作簿未设置任何权限.最简单的测试方法是转到文件"->保护工作簿"->标记为最终版本(Office 2010)"，然后运行宏，看看是否仍然遇到相同的错误.
Seems like your workbook doesn't have any Permissions set. Simplest way to test that is goto File-->Protect Workbook --> Mark as Final (Office 2010) and then run your Macro and see if you still get same error.
尝试使用Windows权限管理设置一些权限，然后重试.
Try setting some permissions using Windows Right Management and then try again.
这篇关于VBA宏中的工作簿权限的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
