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
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
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,
Bis später,
Karin
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
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