commandbars

[wilbert1967]

hoi

Quote:
Origineel gepost door wilbert1967
hallo

even aanvullende vraag
kan je niet eerst uitvragen wat allemaal zichtbaar is voor je het verberg?

groeten wilbert

De laatste reactie was van juni 2006, jou reactie is van oktober 2008. Ik denk dat het al opgelost is, zo niet dan zijn we nu meer dan twee jaar verder. http://www.helpmij.nl/forum/showthread.php?p=2482104#post2482104

Dan stel ik mijn vraag even overnieuw
kan je niet eerst uitvragen welke commandbars zichtbaar is voor je het verberg en aan het eind van het programma weer zichtbaar zet?

mvg wilbert

 

[Wigi]

Je kan in een verborgen tabblad opslaan wat enabled is, en/of wat niet. Evt. wat zichtbaar is en/of wat niet.

Sub Macro1()

Dim i As Integer
For i = 1 To Application.CommandBars.Count
If Application.CommandBars(i).Enabled = True Then
    sheets("verborgen blad").Range("A" & Rows.Count).End(xlUp).Offset(1,0).Value = i
End If;
Next
End Sub

Of stockeer iets anders dan de i (lijkt me overigens niet veilig, maar goed).

Nadien lees je alles weer uit en verwijder je de data.

En net als Luc destijds zeg ik nu ook: gebruik zulke codes enkel als je weet wat je doet en met welke gebruikers je te maken hebt.

Wigi

 

[wilbert1967]

hallo

dank voor antwoord
de ervaring heb ik zelf dat ik menubalken ed kwijt was
dus ik weet wat ik doe
vandaar mijn vraag

groetjes