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

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

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

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