DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub auto_open()
sure = Now + TimeSerial(0, 1, 0)
Application.OnTime earliesttime:=sure, procedure:="Makromuz", schedule:=True
End Sub
Sub Makromuz()
MsgBox ("Kitap Açılalı 1 Dakika Oldu")
End Sub