apliccationtıme

[MUTLUXXX]

commandbutton1.enabled=true
commandbutton1.applicationtıme.wait(5,0,0)+nowtime
commandbutton1.enabled=false
end sub


amacım commandbutton1 e birkez basıldıktan sonra excel kapatılsa bile 5 saat süreyle birdaha true olmaması.tşk ediyorum

 

[mehmett]

Bir çözüm önerisi. CommandButton'ın bulunduğu sayfanın kod sayfasına aşağıdaki kodları yapıştırın.

Private Sub CommandButton1_Click()
[a1] = Now + (5 / 24)
CommandButton1.Enabled = False
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] < Now Then
CommandButton1.Enabled = True
End If
End Sub

Yukarıdaki kod 5 saat gecikme içindir. 2 dk gecikmeli deneme dosyası ektedir.