Sub gecikmeli_mesaj
Wait 10000
MsgBox "merhaba"
End Sub
sub DugmeAktifPasifYap(DugmeninBulunduguForm As Object,Optional Durum As Boolean)
DugmeninBulunduguForm.getByName("İtme Düğmesi 1").Enabled=Durum
End Sub
Sub OrnekWait
Dim CalismaKitabi As Object
Dim CalismaSayfasi As Object
Dim DugmeninFormu As Object
CalismaKitabi=ThisComponent
CalismaSayfasi=CalismaKitabi.Sheets.getByName("Çizelge1")
DugmeninFormu=CalismaSayfasi.DrawPage.Forms.getByIndex(0)
DugmeAktifPasifYap(DugmeninFormu,False)
wait 3000
msgbox "merhaba"
DugmeAktifPasifYap(DugmeninFormu,True)
End Sub
Kayıtlı kullanıcılar: Bing [Bot], Google [Bot]