title image


Smiley Bearbeitungsleiste fehlt beim wiedereinblenden
Hallo Profis



ich benutze das hier um die symbolleisten ein und auszublenden:



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



Sub Einblenden()

Leisten True

End Sub



Sub Ausblenden()

Leisten False

End Sub



jetzt fehlt beim einblenden immer die bearbeitungsleiste was muss ich hier noch verändern das das auch geht?



vielen dank

eltuto

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: