Menüleiste "MeineLeiste"
14.12.2003 14:34:19
Valeri
Ich habe im netz eine Comando für VBA gefunden das die Menüleisten von Exel ausblendet. Kann mir jemand in dieses Comando ein zusätzliches Comando integrieren das eine von mir erstellte Menüleiste "MeineLeiste" einblendet???
Option Explicit
Public symbol As CommandBar
Public Stand As Boolean
Sub Leisten(AnAus As Boolean)
Application.ScreenUpdating = False
For Each symbol In Application.CommandBars
symbol.Enabled = AnAus
Next symbol
Application.ScreenUpdating = True
If AnAus = False Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = Stand
End If
End Sub
Private Sub Einblenden()
' Notmakro zum einblenden der Symboleisten
Leisten True
End Sub
für jegliche ernsthafte hilfe währe ich sehr dankbar!!!!
Danke im vorraus
MfG Valeri
Anzeige