用VBA代码设置工作薄权限

       敏感重要的文件必须设置密码权限加以保护，要实现的方法有很多，但我个人觉得用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