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

(0)

相关推荐