如何防止在 Excel 中选择多个工作表？

当意外选择多个工作表并进行编辑时，所有选定的工作表都会被相同的内容覆盖。在此我们向您介绍一种方法，以防止同时选择多个工作表，从而避免这些工作表上出现相同内容。

使用 VBA 代码防止选择多个工作表

使用 VBA 代码防止选择多个工作表

请按照以下步骤操作以防止同时选择多个工作表。

1. 在需要编辑的工作表中，右键单击工作表标签，并从右键菜单中选择 查看代码。

2. 然后复制并将以下 VBA 代码粘贴到弹出的 Microsoft Visual Basic for Applications 窗口的 代码 窗口中。

VBA 代码：防止在 Excel 中选择多个工作表

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
 On Error GoTo err_handler
    If ActiveWindow.SelectedSheets.Count > 1 Then
        If ActiveSheet Is Target.Parent Then
            Application.EnableEvents = False
            MsgBox "Please don't make changes with multiple sheets selected.", _
            vbInformation, "Kutools for Excel"
            Application.Undo
            ActiveSheet.Select
        End If
    End If

err_handler:
Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

3. 然后同时按下 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

4. 当使用当前工作表选择多个工作表、输入内容并按 Enter 键时，会弹出如下截图所示的 Kutools for Excel 对话框，提醒您已选择了多个工作表。请点击 确定 按钮。

点击 确定 按钮后，所有选定的工作表将立即取消组合。

相关文章:

• 如何删除 Excel 中除指定/当前工作表以外的所有工作表？
• 如何为 Excel 中的每一行创建工作表？
• 如何在不提示或警告的情况下删除 Excel 中的工作表？