Eine Excel-Makro Alle außer dem aktiven Arbeitsblatt zu verbergen

Sie können die inaktiven Arbeitsblätter mit diesem Makro zu verbergen. Excel lässt Sie nicht verstecken alle Blätter in einem workbook- mindestens ein angezeigt werden muss. Sie können jedoch alle, aber die aktive Blatt zu verstecken.

Wie die Makro funktioniert

Das Makro hier eine Schleife durch den Arbeitsblättern und gleicht jedes Arbeitsblatt-Namen auf den Namen des aktiven Blatt. Jedes Mal, wenn die Makro-Loops, versteckt es jede unerreichte Arbeitsblatt.

Sub Macro1 () 'Schritt 1: Erklären Sie Ihre variablesDim ws Als Worksheet'Step 2: Starten Sie durch alle worksheetsFor Looping Jede ws In ThisWorkbook.Worksheets'Step 3: Überprüfen Sie jedes Arbeitsblatt nameif ws.Name lt;> ThisWorkbook.ActiveSheet.Name Then'Step 4: Ausblenden der sheetws.Visible = xlSheetHiddenEnd If'Step 5: Loop zum nächsten worksheetNext wsEnd Sub

Schritt 1 erklärt ein Objekt namens ws. Dieser Schritt erstellt einen Speicherbehälter für jedes Arbeitsblatt, das die Makro Schleifen durch.

Schritt 2 beginnt die Looping, erzählt Excel alle Arbeitsblätter in dieser Arbeitsmappe zu bewerten. Beachten Sie den Unterschied zwischen Diesearbeitsmappe und Active. Das Objekt Thisworkbook bezieht sich auf die Arbeitsmappe, die den Code enthält. Das Active Objekt bezieht sich auf die derzeit aktiven Arbeitsmappe. Sie kehren oft das gleiche Objekt, aber wenn die Arbeitsmappe den Code ausgeführt wird nicht die aktive Arbeitsmappe ist, kehren sie verschiedene Objekte. In diesem Fall wollen Sie nicht verstecken Blätter in anderen Arbeitsmappen zu riskieren, so dass Sie verwenden Thisworkbook.

In Schritt 3 vergleicht das Makro einfach das aktive Blatt Namen auf das Blatt, die derzeit durchgeschleift wird.

Wenn die Blattnamen unterschiedlich sind, verbirgt sich das Makro das Blatt in Schritt 4.

In Schritt 5 das nächste Blatt zu bekommen Sie Schleife zurück. Nachdem alle Blätter ausgewertet werden, endet das Makro.

Beachten Sie, dass Sie xlsheetHidden in Ihrem Makro verwenden. Diese Eigenschaft gilt die Standard-Ausblenden-Status Sie in der Regel erhalten, wenn Sie das Recht, ein Blatt klicken und wählen Sie Ausblenden. In diesem Standard Ausblenden-Status kann ein Benutzer das Recht, auf eine beliebige Registerkarte, und wählen Sie Sichtbar machen, die alle versteckten Blätter zeigt. Aber ein anderer verstecken Zustand ist mehr heimlich als die Standardeinstellung. Wenn Sie xlSheetVeryHidden verwenden Ihre Blätter zu verbergen, werden die Nutzer nicht in der Lage sein, sie überhaupt zu sehen - auch wenn sie das Recht, auf eine Registerkarte klicken, und wählen Sie Einblenden. Der einzige Weg, ein Blatt auf diese Weise versteckt sichtbar machen ist VBA zu verwenden.

Wie das Makro zu verwenden,

Um dieses Makro implementieren, können Sie es in einem Standardmodul kopieren und einfügen:

  1. Visual Basic-Editor aktivieren, indem Sie Alt + F11 drücken.

  2. rechts, klicken Sie auf das Projekt / die Arbeitsmappe Namen im Projektfenster.

  3. Wählen Sie Einfügen-Modul.

  4. Geben oder den Code in das neu erstellte Modul einfügen.

Ähnliche

Menü