如何解决关闭时自动锁定工作表
我正在尝试制作一个工作簿,其中所有工作表在关闭工作簿时自动使用密码锁定,但允许过滤和搜索工作簿中的表格。 我设法将以下命令收集在一起,除了设置密码之外,这些命令也有效。 有人可以帮忙吗?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = "***"
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
If ActiveSheet.Protection.AllowFiltering = False Then
ActiveSheet.Protect AllowFiltering:=True
End If
End Sub
*** = 密码 目前上述自动锁定工作表并允许根据需要过滤但不设置密码。
适用于 Office 365、win10 企业版的 Excel。
干杯!
解决方法
我认为它被窃听了,因为您使用了两次保护方法。试试下面的代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim wb As Workbook: Set wb = ThisWorkbook
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = "testpw"
For Each xSheet In wb.Worksheets
xSheet.Protect xPsw,AllowFiltering:=True
Next
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。