敏感重要的文件必须设置密码权限加以保护,要实现的方法有很多,但我个人觉得用VBA代码是个不错的选择。下面我分享设置和取消工作薄权限的代码,方便日常套用。 方法:按ALT+F11打开VBE窗口,然后新建模块并将下面的代码粘贴进去。设置2个按钮方便用。下面的两段代码只是密码处不同,一个有,一个无。 Sub 设置工作薄权限() Application.DisplayAlerts = False Dim wb As Workbook Set wb = ThisWorkbook '指定任意工作簿 wb.SaveAs Filename:=wb.FullName, WriteResPassword:="888888" wb.Close Application.DisplayAlerts = True End Sub Sub 取消工作薄权限() Application.DisplayAlerts = False Dim wb As Workbook Set wb = ThisWorkbook '指定任意工作簿 wb.SaveAs Filename:=wb.FullName, WriteResPassword:="" wb.Close Application.DisplayAlerts = True End Sub |
|
来自: 二木士心空间 > 《VBA-Excel》