Workbook BeforeClose
17.02.2003 16:29:39
Thomas
Hab mit auto_open() alle Symbolleisten und die menuleiste ausgeblendet.
möchte beim beenden wieder alles einblenden. code wie folgt:
Private Sub Workbook_BeforeClose()
'Menu und Symbolleisten einblenden
Dim symb As CommandBar
For Each symb In CommandBars
symb.enabled = True
Next
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End Sub
Muß ich Boolean noch extra ansprechen? Die Leisten (Menu- und Symbol) bleiben nämlich ausgeblendet.
Dank und Gruß
Thomas
Anzeige