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