Herbers Excel-Forum - das Archiv
Ausblenden von CommandBars etc...
- Ausblenden von CommandBars etc... von Alex vom 25.09.2003 11:20:00
- AW: Ausblenden von CommandBars etc... - von Carsten am 25.09.2003 11:53:08
- AW: Ausblenden von CommandBars etc... - von Carsten am 25.09.2003 11:53:08
 |
Betrifft: Ausblenden von CommandBars etc...
von: Alex
Geschrieben am: 25.09.2003 11:20:00
Hallo zusammen,
habe folgendes Problem.
Ich würde gerne beim starten der Excel-Mappe alle Menüleisten ausblenden und beim beenden wieder einblenden.
Das erste Problem hab ich beim ausblenden. Wenn ich meinen Code (s.u.) laufen lasse, blendet er zwar alle ein/aus, aber dann kommt immer die Fehlermeldung:
>Laufzeitfehler '-2143....'
>Automatisierungsfehler
>unbekannter Fehler
Mein Code zum ausblenden ist einfach:
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Visible = False
Next cb
Hat jemand vielleicht schon fertigen Code zum ein/ausblenden aller Menuleisten.
Zum anderen würde ich auch gerne die Zeilen und Spaltenüberschriften ausblenden.
Eine Lösung wäre echt klasse...
Vielen Dank
Alex
 |
Betrifft: AW: Ausblenden von CommandBars etc...
von: Carsten
Geschrieben am: 25.09.2003 11:53:08
Hallo Alex,
folgender Code in "Diese Arbeitsmappe" bewirkt, dass die betreffende Datei immer im Vollbildmodus angezeigt wird, alle anderen Mappen aber ganz normal (z.B. beim Wechsel der Mappen durch Strg + Tab).
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
With Application
.DisplayFullScreen = False
.CommandBars("Full Screen").Visible = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub
Ich hoffe, es hilft.
Gruß
Carsten
| |