Hilfe keine Funktion mehr
Nightstorm@gmx.ch
Gruß Peer
Anzeige
Sub t()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next
End Sub