excel - 在 Excel 中捕获 Worksheet Unprotect 事件

Question

我有一个受保护的 Excel 工作表，没有密码。我想做的是捕获用户取消保护工作表的事件，以便我可以生成一条消息（并唠叨他们！）。我可以为应用程序设置事件检查，何时打开新工作簿等，但不能为 Unprotect 设置。
有人有想法吗？

Answer 1

It is possible to modify the menu using Tools->Customize. Protect/Unprotect can be set to run a macro, for example:

Sub UnprotectTrap()
If ActiveSheet.ProtectContents = True Then
    MsgBox "Tut,tut!"
    ActiveSheet.Unprotect
Else
    ActiveSheet.Protect

End If
End Sub

Answer 2

There is no way to trap the user unprotecting the sheet, but you can warn them if they save the workbook without reprotecting the sheet(s).

In the Workbook module, put this code, or something like it

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If Sheets("MyProtectedSheet").ProtectContents = False Then
    MsgBox "The sheet 'MyProtectedSheet' should not be left unprotected. I will protect it before saving", vbInformation
    Sheets("MyProtectedSheet").Protect
  End If
End Sub