CommandButtons.Enabled

[frank_koreman]

hallo,

ik zit met een klein, maar vervelend probleem.
ik probeer bij het afsluiten bepaalde CommandButtons te disablen.
ik roep in mijn "Private Sub Workbook_BeforeClose(Cancel As Boolean)" de macro "DisableButtons" op die in een module staat.

in de module staat:

Sub DisableButtons()
Worksheets("HOME").Select
CommandButton("TTdialoogdranken").Enabled = False
CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton3.Enabled = False
End Sub

en steeds werkt het niet en komt er een foutmelding. ziet iemand wat er fout is?

bij voorbaat dank.

Frank

 

[lcodee]

Wat is de tekst van de foutmelding? Misschien moet je een with ...end with constructie gebruiken.

 

[frank_koreman]

zou je mij daar een voorbeeld van kunnen geven ?
de foutmelding zal ik opzoeken.

bedankt alvast

 

[lcodee]

hier is een code die werkt:


Sub DisableButtons()

With Worksheets("Blad1")
.CommandButton1.Enabled = False
.CommandButton2.Enabled = False
End With

End Sub


Succes leo

 

[frank_koreman]

zo moet het inderdaad.

dank je wel. weer iets geleerd.

Frank