Lint getenabled probleempje

[glda19]

Hi
Ik Wil dat de knop enabled is tussen 2 datum.
Maar de knop enabled is en er is opgedrukt dan moet die not enabled worden.
Wat doe ik fout ?

Sub GetEnabled(control As IRibbonControl, ByRef enabled)
  Dim dBegin As Date, dEinde As Date
 
dBegin = DateSerial(Year(Now), 4, 1) ' door het actieve jaar te gebruiken moet je niet elk jaar de code aanpassen
dEinde = DateSerial(Year(Now), 4, 30)
  
'enabled = Benabled Or (Date >= dBegin And Date <= dEinde)
  enabled = Benabled Or (Date >= dBegin And Date <= dEinde)
End Sub


Sub OnActionButton(control As IRibbonControl)
Benabled = False
        MyRibbon.Invalidate
 End Sub

 

[HSV]

Controleer in Thisworkbook_open dat enabled op true moet.
Na het indrukken zet je enabled op false in de click_event.

 

[glda19]

graag eens iets meer duidelijkheid

 

[edmoor]

Volgens je voorbeeld code is Benabled Or (Date >= dBegin And Date <= dEinde) tussen 1 en 30 april atijd True.
De knop wordt dus t/m de 30e van deze maand niet op False gezet door de GetEnabled routine.

Nog even geduld dus of de vergelijking aanpassen

 

[glda19]

Na de onaction moet hij uit geschakeld zijn

 

[edmoor]

Ja, dat was je vraag.
In #4 staat waarom dat niet gebeurt.

 

[glda19]

hoe kan ik zorgen dat dit gebeurt

 

[edmoor]

IK denk dat dit is wat je wilt:

Sub OnRibbonLoad(ribbon As IRibbonUI)
  Set MyRibbon = ribbon
  Dim dBegin As Date, dEinde As Date
  
  dBegin = DateSerial(Year(Now), 4, 1)
  dEinde = DateSerial(Year(Now), 4, 30)
  If Date >= dBegin And Date <= dEinde Then Benabled = True
End Sub

Sub GetEnabled(control As IRibbonControl, ByRef enabled)
  enabled = Benabled
End Sub

Sub OnActionButton(control As IRibbonControl)
  Benabled = False
  MyRibbon.Invalidate
End Sub

 

[glda19]

inderdaad thx voor de help