HILFE! SYMBOLLEISTEN VERSCHWUNDEN
08.08.2003 15:59:12
Erik
Habe mit folgendem code rumgespielt. Ich habe "Alle sichtbaren ausblenden" ausgeführt, und mich danach mit ALT+F8 in den Makro Editor reingefunden und wollte dann "Alle sichtbaren einblenden" ausführen. Trotzdem sind meine Symbolleisten immer noch weg!
Hilfe
Danke
'(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