Noch ein kleines Problem
12.07.2003 00:18:59
Stefan Glander
mit hilfe des Forums habe ich folgenden Code in meiner Tabelle:
Sub AlleWeg()
EnabledCommandBars False
End Sub
Sub AlleDa()
EnabledCommandBars True
End Sub
Sub EnabledCommandBars(blnEnabled As Boolean)
Dim cmb As CommandBar
Application.ScreenUpdating = False
For Each cmb In Application.CommandBars
cmb.Enabled = blnEnabled
Next
Application.ScreenUpdating = True
End Sub
Bei Aufruf von "AlleWeg" verschwindet oben ales bis auf das " Namenfeld" und "Funktion einfügen".
Bekomme ich das auch noch irgendwie weg ?
Wenn ja bitte wie und denkt bitte dran das ich Anfänger bin.
Liebe Grüsse
Stefan
Anzeige