Start ->Vollbild + eine Symbolleiste anzeigen
06.02.2004 09:51:22
Markus H.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.CommandBars("Rechnungswesen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Rechnungswesen").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
Es werden damit alle Symbolleisten ausgeblendet und nachträglich meine symbolleiste ("Rechnungswesen") wird eingeblendet. Nur Leider wird diese nicht fest an den Linken Rand geschoben sondern "liegt" einfach mittem im Bild rum.
Kann man die Position der Symbolleiste angeben? Oder wenigstens schützen das man diese nicht shcließen kann?
MFG
Markus
Anzeige