Zuviel wird ausgeblendet, was ist falsch?
29.06.2004 09:10:45
Mandy
ich nutze folgenden Code zum ausblenden:
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
Leider wird dabei gleich die eigene Menüleiste (NEUMENU) mit aus-
geblendet, die gerade erstellt wurde. Wie verhindere ich das?
Mir reicht, wenn alle möglichen Symbolleisten, die eingeschaltet
sein können ausgeblendet werden.
Was habe ich falsch gemacht?
Gruß
Mandy