Code eingefügt mit Syntaxhighlighter 1.16
'(C) Ramses
Public n As Integer
Public myCBArr() As Variant
Sub Alle_sichtbaren_ausblenden()
On Error Resume Next
Dim cb As CommandBar, i As Integer
n = 0
For Each cb In Application.Commandbars
If cb.Visible = True Then
n = n + 1
End If
Next
ReDim myCBArr(n)
n = 0
For Each cb In Application.Commandbars
If cb.Visible = True Then
myCBArr(n) = cb.Name
n = n + 1
End If
Next
For Each cb In Application.Commandbars
cb.Enabled = False
cb.Visible = False
Next
End Sub
Sub Alle_wieder_einblenden()
On Error Resume Next
Dim i As Integer
Dim cb As CommandBar
For i = 0 To n
Application.Commandbars(myCBArr(i)).Enabled = True
Application.Commandbars(myCBArr(i)).Visible = True
Next i
End Sub
'Ende
'-------------------------------------------------