İşlem yapılmadığında kendiliğinden makro devreye girsin?

[Araştırıcı]

Değerli Arkadaşlar
Merhaba,
Aşağıdaki kod anlaşılacağı üzere sütunları tıklma yordamı ile belli aralığa kadar kapatmakta. Kullanıcılar işlem yapmaması halinde ayarlanabilecek bir süre içersinde makro otomatik devreye girmesi için nasıl bir kod eklemek gerekir. Örnek olarak 1 Dk. işlem yapılmaz ise çalışsın diyelim.

Teşekkür ediyorum
Saygılarımla


Private Sub CommandButton1_Click()
a = Application.InputBox("Şifre Giriniz", "VERİ YÖNETİMİ")
If a = 1453 Then
[E:IV].Columns.Hidden = [E:IV].Columns.Hidden = 0

Else
MsgBox "Şifre Girişi Başarısız."
Exit Sub
End If
End Sub

 

[kulomer46]

Private Sub Workbook_Open()
calis
End Sub

'insert modül ile aşağıdakileri modüle ekleyin
Dim tiklama
Sub calis()
Dim start
start = Timer
atla:
If Timer - start > 60 Then 'buraya saniye cinsinden rakam yazıyoruz, 2 dakika için 120 gibi...
Düğme1_Tıklat
Else
DoEvents
If tiklama = True Then GoTo atla1
Application.Wait Now + TimeSerial(0, 0, 1)
DoEvents
GoTo atla
End If
atla1:


End Sub
Sub Düğme1_Tıklat()

tiklama = True
'buraya belirttiğiniz süre dolunca yapılmasını istediğiniz kodları giriniz
a = Application.InputBox("Şifre Giriniz", "VERİ YÖNETİMİ")
If a = 1453 Then
[E:IV].Columns.Hidden = [E:IV].Columns.Hidden = 0

Else
MsgBox "Şifre Girişi Başarısız."
Exit Sub
End If
End Sub
şimdilik bu kadar yapabildim geliştirebilirsem gönderirim..

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Activate()
Do While Columns("e:e").Hidden = False
Application.OnTime Now + TimeValue("00:0:10"), "test"
Exit Do
Loop
End Sub

Sub test()
a = Application.InputBox("Şifre Giriniz", "VERİ YÖNETİMİ")
If a = 1453 Then
[E:IV].Columns.Hidden = [E:IV].Columns.Hidden = 0

Else
MsgBox "Şifre Girişi Başarısız."
Exit Sub
End If
End Sub

 

[Araştırıcı]

Arkadaşlar
Çok teşekkür ediyorum ellerinize sağlık.
Yardımınız için çok saolun
Kolay gelsin.