Excel实战技巧89：强制用户保护工作簿/工作表

学习Excel技术，关注微信公众号：

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社群，进行技术交流和提问，获取更多电子资料。