Wie kann man die Auswahl mehrerer Arbeitsblätter in Excel verhindern?

Wenn Sie versehentlich mehrere Arbeitsblätter auswählen und bearbeiten, wird allen ausgewählten Arbeitsblättern derselbe Inhalt hinzugefügt. Hier stellen wir Ihnen eine Methode vor, um die gleichzeitige Auswahl mehrerer Arbeitsblätter zu verhindern und so zu vermeiden, dass derselbe Inhalt auf diesen Blättern erscheint.

Verhindern der Auswahl mehrerer Arbeitsblätter mit VBA-Code

Verhindern der Auswahl mehrerer Arbeitsblätter mit VBA-Code

Bitte gehen Sie wie folgt vor, um die gleichzeitige Auswahl mehrerer Arbeitsblätter zu verhindern.

1. Klicken Sie in dem Arbeitsblatt, das Sie bearbeiten möchten, mit der rechten Maustaste auf die Registerkarte des Blatts und wählen Sie Ansicht Code aus dem Kontextmenü.

2. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster des sich öffnenden Microsoft Visual Basic for Applications-Fensters ein.

VBA-Code: Verhindern der Mehrfachauswahl von Blättern in 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. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

4. Wenn Sie mit dem aktuellen Blatt mehrere Arbeitsblätter auswählen, einen Inhalt eingeben und die Eingabetaste drücken, erhalten Sie ein Kutools for Excel-Dialogfeld, wie im folgenden Screenshot gezeigt, das Sie daran erinnert, dass mehrere Arbeitsblätter ausgewählt wurden. Bitte klicken Sie auf die Schaltfläche OK.

Nachdem Sie auf die Schaltfläche OK geklickt haben, werden alle ausgewählten Blätter sofort getrennt.

Verwandte Artikel:

• Wie kann man alle Blätter außer dem angegebenen/aktuellen in Excel löschen?
• Wie erstellt man für jede Zeile neue Blätter in Excel?
• Wie kann man ein Arbeitsblatt ohne Warnung oder Bestätigung in Excel löschen?