ich will in einer arbeitsmappe mehrere tabellenblätter ausblenden. aber immer automatisch. der sepp schickte mir diesen code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect "deinPasswort"
Sheets("Tabelle1").Visible = xlSheetHidden 'Tabellenname anpassen
ActiveWorkbook.Protect "deinPasswort"
End Sub
Leider kann ich damit gar nichts anfangen. hab es mit makro probiert (extras/Makro/Makros). dann kommt ja das fenster. hab dem makro einen namen geben. und in makro in "diese arbeitsmappe" ausgewählt.
dann auf erstellen. dann macht er das visual basic fenster auf. gut habe dann auch den code hineinkopiert:
Sub ausblenden()
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect "deinPasswort"
Sheets("Tabelle1").Visible = xlSheetHidden 'Tabellenname anpassen
ActiveWorkbook.Protect "deinPasswort"
End Sub
End Sub
das sieht dann so aus.
wenn ich dann wieder auf extras/makro/makros gehe, und auf ausführen gehe, dann bringt er "fehler beim kompilieren" und markiert sub ausblenden gelb.
was ist denn falsch. was muss ich anders machen.
gruss