Alle Toolbars sind weg und ich finde sie nicht!
13.10.2005 11:32:56
Philip
ich habe versucht drei benutzerdef. Toolbars auszublenden und habe folgenden Code in mein Workbook gepackt:
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
Diesen Code habe ich aus dem Archiv und nun sind alle meine Toolbars weg und ich finde keine Moeglichkeit die Toolbars wieder zurueck zu bekommen. Selbst wenn ich den Code loesche finde ich keine Moeglichkeit wieder meine Toolbars zu sehen zu bekommen. Ein Einfaches vertauschen der True und False reicht allerdings nicht aus um meine Toolbars in irgendeinem EXCEL Sheet wieder zu sehen.
Nun zu meiner Frage- wie bekomme ich meine Toolbars wieder zurueck! ich bin total hilfslos!
Vielen Dank fuer Eure Hilfe
Ihr rettet mein EXCEl-Leben:-)