Excel实战技巧89：强制用户保护工作簿/工作表
excelperfect
使用VBA代码，在用户关闭工作簿时，只有设置了保护工作簿，才能正常关闭。
在ThisWorkbook代码模块中，输入下面的代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim b As Boolean
Dim iMsg As Integer
b = False
If ThisWorkbook.ProtectStructure Then b = True
If ThisWorkbook.ProtectWindows Then b = True
If b = False Then
iMsg = MsgBox('工作簿没有被保护。是否设置保护？', vbYesNo)
Else
MsgBox '工作簿已被保护!'
Exit Sub
End If
If iMsg = vbYes Then
MsgBox '请保护工作簿!'
Cancel = True
Else
MsgBox '工作簿没有设置保护!'
End If
End Sub
如下图1所示，当用户关闭工作簿时，如果没有设置工作簿保护，则提示用户是否设置工作簿保护。如果单击“是”，则要先设置工作簿保护再关闭工作簿；如果单击“否”，则直接关闭工作簿。
图1
上述代码提供给用户选择是否保护工作簿，下面的代码强制用户设置保护工作簿，否则不能关闭工作簿。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim b As Boolean
b = False
If ThisWorkbook.ProtectStructure Then b = True
If hisWorkbook.ProtectWindows Then b = True
If b = False Then
MsgBox '工作簿没有被保护!'
Cancel = True
Else
MsgBox '工作簿已被保护!'
End If
End Sub
同理，我们也可以使用代码来强制用户设置工作簿保护，否则不能关闭工作簿。在ThisWorkbook代码模块中输入代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim b As Boolean
b = False
If ActiveSheet.ProtectContents Then b = True
If ActiveSheet.ProtectDrawingObjects Then b = True
If ActiveSheet.ProtectScenariosThen b = True
If ActiveSheet.ProtectionMode Then b = True
If b = False Then
MsgBox '当前工作表没有被保护!'
Cancel = True
Else
MsgBox '当前工作表已被保护!'
End If
End Sub
上述代码是强制当前工作簿设置工作表保护，你也可以使用指定的工作表代替ActiveSheet，以强制必须对指定工作表设置保护，否则不能关闭工作簿。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。