Alle werkbalken verdwenen.

[zaq]

Ik heb onderstaande code ingevoerd.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

For t = 1 To 128
Application.CommandBars(t).Enabled = True
Next t
Save

End Sub

Private Sub Workbook_Open()

For t = 1 To 128
Application.CommandBars(t).Enabled = False
Next t

End Sub

Dat werkt als een trein, dacht ik.
Als ik na uitvoering van bovenstaande code een ander Excel bestand open zijn er nog steed geen werkbalken te zien op de standaard balk na.
Wil ik die werkbalken dan via het menu weer inschakelen staan er geen werkbalken om aan te vinken (in BEELD, WERKBALKEN)
Wat nu?

 

[richard1970]

Hoi Zaq,
Tweede deel van de code weghalen en code nogmaals draaien misschien?
Richard

 

[Cobbe]

Ik zou hier even kijken, er staat een excellente hulp voor dit soort problemen.

http://www.newbytes.be/

Succes, Cobbe