Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Ausblenden und Einblenden von Tabellenblättern





Frage

Hallo, ich möchte alle Tabellenblätter bis auf eines ausblenden, wenn die Mappe mit deaktiviertem Makro geöffnet wird. Wird die Mappe korrekt mit aktiviertem Makro geöffnet, sollen alle Tabellenblätter eingeblendet werden und beim Schließen ausgeblendet werden. Kann mir jemand bei diesem Problem helfen ? Atomas

Antwort 1 von Beverly

Hi,

schau mal auf die HP von Hajo Ziplies, da gibt es das Beispiel "Nur mit Maskros" Link zum Download. Das könnte dir weiterhelfen.

Bis später,
Karin

Antwort 2 von Atomas

Hallo Karin,
vielen Dank für den Hinweis. Das ist aber nicht das was ich suchte. Das Makro sollte ohne Rückfragen im Hintergrund laufen. Also beim Öffnen alle Sheets 1 bis 52 und Sheet "Zusammenfassung" einblenden und das Sheet mit dem Hinweis "Makro wurde nicht aktiviert" ausblenden. Beim Schließen sollen umgekehrt alle ausgeblendet und das Blatt mit dem Hinweis eingeblendet werden, so daß bei nicht aktiven Makro nur das Blatt mit dem Hinweis zu sehen ist. Ist das machbar ?
Freundliche Grüße
Thomas

Antwort 3 von Beverly

Hi Thomas,

Option Explicit
Public inTabelle As Long

Private Sub Workbook_Open()
    For inTabelle = ThisWorkbook.Worksheets.Count To 1 Step -1
        With Worksheets(inTabelle)
            If .Name <> "Makros deaktiviert" Then
                .Visible = True
            Else
                .Visible = False
            End If
        End With
    Next inTabelle
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("Makros deaktiviert").Visible = True
    For inTabelle = ThisWorkbook.Worksheets.Count To 1 Step -1
        With Worksheets(inTabelle)
            If .Name <> "Makros deaktiviert" Then
                .Visible = False
            End If
        End With
    Next inTabelle
End Sub


Bis später,
Karin

Antwort 4 von Atomas

Hallo Karin,
vielen vielen Dank, läuft super. Jetzt habe ich nur noch das Problem, das beim Schließen der Datei gefragt wird, ob die Änderungen gespeichert werden sollen und im Hintergrund sieht man nur das eingeblendete Blatt " Makro aktivieren"! Da mehrere Nutzer darauf zugreifen, wird es sicher Irritationen geben.
Hat jemand eine Idee wie man das lösen könnte ?
Gruß Thomas

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: