Makro beim Dateischließen
16.03.2006 12:31:22
T.
ich habe mir folgenden Code zusammengebastelt und ihn in "ThisWorkbook" eingebaut. Ziel ist es, dass beim Schließen der Excel-Datei die Blattregisterkarten generell und die Spalten- und Zeilenüberschriften sowie Gittenetzlinien auf zwei bestimmten Sheets ausgeblendet werden. Und dann sollte noch der Passwortschutz aktiviert werden. Leider wird das Ganze nicht ausgeführt.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = False
Worksheets("ITC kb").Activate
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
Worksheets("ITC kb").Protect ("go")
Worksheets("Intro").Activate
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
Worksheets("Intro").Protect ("go")
End Sub
Ich habe auch versucht, testweise den Code auf eine Schaltfläche zu legen. Da funktioniert alles wunderbar. Könnt Ihr mir vielleicht sagen, was ich hier falsch mache?
Vielen lieben Dank
Thomas