Wie kann man die Position eines Blatts in einer Excel-Arbeitsmappe immer sichtbar sperren?

Wenn es mehrere Blätter in einer Arbeitsmappe gibt, wird das erste Blatt im Blattregister ausgeblendet, wenn Sie zum letzten Blatt navigieren, wie unten gezeigt. Nun möchten Sie die Position eines Hauptblatts sperren, um es immer sichtbar zu halten, wie können Sie das tun?

Blattposition mit VBA sperren

Blattposition mit VBA sperren

Hier stelle ich Ihnen zwei VBA-Codes vor, um diese Aufgabe zu bewältigen.

Zu einem bestimmten Blatt mit einer Tastenkombination springen

1. Drücken Sie die Tasten Alt + F11, um Microsoft Visual Basic für Windows zu aktivieren.

2. Klicken Sie auf Einfügen > Modul, dann kopieren und fügen Sie den folgenden Code in das Skript ein.

VBA: Zum Hauptblatt springen

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

Hinweis: Im Codesegment Sheets("Master").Activate können Sie Master in einen beliebigen Blattnamen ändern, den Sie benötigen.

3. Speichern Sie diesen Code, und kehren Sie zur Arbeitsmappe zurück, klicken Sie Entwickler > Makros.

4. Im Makro Dialogfenster, wählen Sie den Namen des Codes aus, den Sie gerade eingefügt haben, klicken Sie Optionen, erstellen Sie eine Tastenkombination zum Ausführen dieses Codes.

5. Klicken Sie auf OK und schließen Sie das Makro-Dialogfenster.

Ab sofort wird beim Drücken der von Ihnen erstellten Tastenkombination das Hauptblatt unabhängig vom aktuell verwendeten Blatt aktiviert.

Ein bestimmtes Blatt immer im Vordergrund behalten

1. Drücken Sie die Tasten Alt + F11, um Microsoft Visual Basic für Windows zu aktivieren.

2. Doppelklicken Sie auf DieseArbeitsmappe im Bereich Projekt-VBAProjekt, und kopieren und fügen Sie den folgenden Code in das Skript ein.

VBA: Blatt immer im Vordergrund behalten

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

3. Speichern Sie den Code und schließen Sie das VBA-Fenster. Von nun an bleibt das Hauptblatt unabhängig davon, welches Blatt Sie auswählen, immer am Anfang der Registerleiste.

Hinweis: Im obigen Code ist „master“ der Name des Blatts, das Sie sichtbar halten möchten, ändern Sie es nach Bedarf.