Direkt zum Inhalt

Wie sperre ich eine Blattposition für immer in Excel Workbook sichtbar?

Wenn eine Arbeitsmappe mehrere Blätter enthält und Sie zum letzten Blatt wechseln, wird das erste Blatt wie unten gezeigt in der Registerkartenleiste des Blattes ausgeblendet. Jetzt möchten Sie die Position eines Master-Blattes für immer sichtbar sperren. Wie können Sie damit umgehen?

Position des Dokumentsperrblatts 1 doc Pfeil rechts Position des Dokumentsperrblatts 2

Blattposition mit VBA sperren


Blattposition mit VBA sperren

Hier stelle ich Ihnen zwei VBA-Codes vor, mit denen Sie diesen Job erledigen können.

Springe zum Blatt

1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Windows.

2 Klicken Insert > ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in das Skript ein.

VBA: Zum Hauptblatt springen

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

Note: Im Code-Slice von Sheets("Master").Aktivierenkannst du das ändern Master zu einem beliebigen Blattnamen hinzufügen, wie Sie ihn benötigen.

3. Speichern Sie dann diesen Code, gehen Sie zurück zur Arbeitsmappe und klicken Sie auf Entwickler:in / Unternehmen > Makros.
Position des Dokumentsperrblatts 3

4. In dem Makro Wählen Sie im Dialogfeld den Codenamen aus, den Sie gerade eingegeben haben, und klicken Sie auf Optionen, erstellen Sie eine Verknüpfung zum Ausführen dieses Codes.
Position des Dokumentsperrblatts 4

5 Klicken OK und schließe die Makro Dialog.

Wenn Sie jetzt die von Ihnen erstellte Verknüpfung drücken, wird das Masterblatt unabhängig vom verwendeten Blatt aktiviert.

Halten Sie das Laken immer vorne

1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Windows.

2. Doppelklick DiesesWorkbook von dem Projekt-VBAProject Bereich, kopieren Sie den folgenden Code und fügen Sie ihn in das Skript ein.

VBA: Blatt immer vorne halten

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

Position des Dokumentsperrblatts 5

3. Speichern Sie den Code und schließen Sie das VBA-Fenster. Unabhängig davon, auf welches Blatt Sie klicken, bleibt das Masterblatt von nun an immer vorne in der Registerkartenleiste.

Position des Dokumentsperrblatts 6 doc Pfeil rechts Position des Dokumentsperrblatts 7

Hinweis: Im obigen Code, "Meister" ist der Blattname, den Sie sichtbar halten möchten. Ändern Sie ihn nach Bedarf.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations