如何防止在 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 中的工作表？