Wie kann die Auswahl mehrerer Arbeitsblätter in Excel verhindert werden?

Wenn Sie versehentlich mehrere Arbeitsblätter auswählen und bearbeiten, werden alle ausgewählten Arbeitsblätter mit demselben Inhalt behandelt. Hier stellen wir Ihnen eine Methode vor, mit der Sie verhindern können, dass mehrere Arbeitsblätter gleichzeitig ausgewählt werden, um zu vermeiden, dass auf diesen Arbeitsblättern derselbe Inhalt angezeigt wird.

Verhindern Sie die Auswahl mehrerer Arbeitsblätter mit VBA-Code

Verhindern Sie die Auswahl mehrerer Arbeitsblätter mit VBA-Code

Gehen Sie wie folgt vor, um zu verhindern, dass mehrere Arbeitsblätter gleichzeitig ausgewählt werden.

1. Klicken Sie in dem Arbeitsblatt, das Sie bearbeiten müssen, mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü.

2. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das ein Code Fenster des Auftauchens Microsoft Visual Basic für Applikationen Fenster.

VBA-Code: Verhindern Sie die Auswahl mehrerer Blätter 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 dann die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

4. Wenn Sie mehrere Arbeitsblätter mit dem aktuellen Blatt auswählen, Inhalte eingeben und die Eingabetaste drücken, erhalten Sie eine Kutools for Excel Das folgende Dialogfeld zeigt Sie an die Auswahl mehrerer Arbeitsblätter. Bitte klicken Sie auf OK .

Nach einem Klick auf die OK Schaltfläche, werden alle ausgewählten Blätter sofort die Gruppierung aufgehoben.

In Verbindung stehende Artikel:

• Wie lösche ich alle Blätter außer dem angegebenen / aktuellen in Excel?
• Wie erstelle ich neue Blätter für jede Zeile in Excel?
• Wie lösche ich ein Arbeitsblatt ohne Aufforderung oder Warnung in Excel?