ich habe hier ein makro was jedes mal vor dem schließen ausgeführt wird! Es hat nur einen Nachteil wenn neue Blätter hinzu kommen muss ich es ändern gibt es ne Möglichkeit es andersrum schreiben????
mfg.
Tommi
Sub Workbook_BeforeClose()
With ThisWorkbook
If .ProtectStructure = False Then
.Sheets("Schumacher").Visible = True
.Sheets("Walderdorff").Visible = True
.Sheets("WBB Fuchs").Visible = True
.Sheets("Weiss").Visible = True
.Sheets("Wagner").Visible = True
.Sheets("Aloys Müller").Visible = True
.Sheets("Goldhausen").Visible = True
.Sheets("MST").Visible = True
End If
End With
End Sub