Kontext-Menü rechte Maustaste
17.02.2004 08:32:48
Jürgen
bei der Öffnung einer Arbeitsmappe sollten alle Symbolleisten ausgeblendet werden :
Private Sub Menues_aus()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
End Sub
Vor dem Schließen sollten alle wiederhergestellt werden:
Private Sub Menues_ein()
Dim aus As Integer
Dim cb As CommandBar
aus = 1
For Each cb In Application.CommandBars
aus = aus + 1
cb.Enabled = True
If aus = 15 Then Exit Sub
Next cb
End Sub
Leider geht aber auf diesem Weg irgendwie das Kontext-Menü der rechten MausTaste "verloren" - wie kann ich das wiederherstellen?
Mit freundlichen Gruß
Jürgen