Zaman ayarlı makro çalıştırmak.

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki makronun belirlenen bir tarihte çalışması için nasıl bir makro yazılabilir.
Örnek: Aşağıdaki kodda saat1 de tanımlanan tarihten bir ay önce çalışmaya başlasın.

Private Sub Workbook_Open()
Dim saat1 As Date
Dim saat2 As Date
Dim su
saat1 = "04/02/2011" 
saat2 = Date
If saat2 > saat1 Then
su = MsgBox("Süreniz dolmuş üzgünüm.", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")

ActiveWorkbook.Close
ActiveWorkbook.Save
End If
su = MsgBox(" Kullanım için " & saat1 - saat2 & " gününüz kalmıştır.", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")

If saat1 = saat2 Then
su = MsgBox("Bu gün SON GÜN. Programı kullanmaya devam etmek için Email gönderiniz veya Telefon numarasını arayınız.                                                  e-posta: abc@hotmail.com, Tel: 0506 1234567", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")
End If
End Sub

 

[Ergün Güler]

Selam,
Aşağıdaki gibi yapınız.

Private Sub Workbook_Open()
Dim saat1 As Date
Dim saat2 As Date
Dim su
saat1 = "04/02/2011"
saat2 = Date
If saat2 > saat1 Then
su = MsgBox("Süreniz dolmuş üzgünüm.", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")

ActiveWorkbook.Close
ActiveWorkbook.Save
ElseIf saat1 = saat2 Then
su = MsgBox("Bu gün SON GÜN. Programı kullanmaya devam etmek için Email gönderiniz veya Telefon numarasını arayınız." _
& vbLf & vbLf & "e-posta: abc@hotmail.com, Tel: 0506 1234567", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")

ElseIf saat2 > (saat1 - 30) Then

su = MsgBox(" Kullanım için " & saat1 - saat2 & " gününüz kalmıştır.", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")
End If
'30 sayısı kaç gün kala uyarı vermesini istediğiniz gün sayısıdır.


End Sub

İyi çalışmalar.

 

[resolve45]

yalnız ben belirtiğim hücrelerin içeriği silinsin demiştim yani temizlesin demek istiyorum tşk ediyorum

 

[s.savas]

Selam,
Aşağıdaki gibi yapınız.

Private Sub Workbook_Open()
Dim saat1 As Date
Dim saat2 As Date
Dim su
saat1 = "04/02/2011"
saat2 = Date
If saat2 > saat1 Then
su = MsgBox("Süreniz dolmuş üzgünüm.", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")

ActiveWorkbook.Close
ActiveWorkbook.Save
ElseIf saat1 = saat2 Then
su = MsgBox("Bu gün SON GÜN. Programı kullanmaya devam etmek için Email gönderiniz veya Telefon numarasını arayınız." _
& vbLf & vbLf & "e-posta: abc@hotmail.com, Tel: 0506 1234567", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")

ElseIf saat2 > (saat1 - 30) Then

su = MsgBox(" Kullanım için " & saat1 - saat2 & " gününüz kalmıştır.", vbInformation + vbOKOnly, "SÜRE BİLDİRİMİ * S.S *")
End If
'30 sayısı kaç gün kala uyarı vermesini istediğiniz gün sayısıdır.


End Sub

İyi çalışmalar.

Teşekkür ederim Ergün hocam.
Ancak şöyle bir durum var. Sistem saatinin geri alınması durumunda program tekrar çalışmaya başlayacaktır.Böyle bir ihtimale karşın ne düşünürsünüz lütfen paylaşırmısınız.

 

[Ergün Güler]

Teşekkür ederim Ergün hocam.
Ancak şöyle bir durum var. Sistem saatinin geri alınması durumunda program tekrar çalışmaya başlayacaktır.Böyle bir ihtimale karşın ne düşünürsünüz lütfen paylaşırmısınız.

selam,
Ben hoca değil, sizler gibi bu siteden istifadeye çalışan birisiyim. Ancak şunu kesin söyleyebilirim ki;
siz istediğinizi yapın, başka biri dosyayı açarken makrolar etkinleştirlmediği zaman, dosya üzerinde istediği işlemi zaten yapabilir. Bu olmassa bile yine bu sitedeki üstadlardan öğrendiğimiz kadarıyla, excel dosyalarına (şifreli-şifresiz- makrolu-makrosuz) isteyen her türlü müdahaleyi yapabilir. Sistem saatini değiştirmesine de gerek kalmaz. dikkat ederseniz sizin yazdığınız kodlarda zaten sistemin zamanını referans alıyor. yanlışsa yanlış alır doğru ise doğru alıyor.
siz yinede altyernatif çözümler araştırınız. Bulabilirseniz paylaşırsınız.

İyi çalışmalar.

 

[Ergün Güler]

yalnız ben belirtiğim hücrelerin içeriği silinsin demiştim yani temizlesin demek istiyorum tşk ediyorum

Sayın resolve45,
Başka konuya cevap veriyorsunuz.
Lütfen doğru konunuzu bulunuz.

 

[s.savas]

selam,
Ben hoca değil, sizler gibi bu siteden istifadeye çalışan birisiyim. Ancak şunu kesin söyleyebilirim ki;
siz istediğinizi yapın, başka biri dosyayı açarken makrolar etkinleştirlmediği zaman, dosya üzerinde istediği işlemi zaten yapabilir. Bu olmassa bile yine bu sitedeki üstadlardan öğrendiğimiz kadarıyla, excel dosyalarına (şifreli-şifresiz- makrolu-makrosuz) isteyen her türlü müdahaleyi yapabilir. Sistem saatini değiştirmesine de gerek kalmaz. dikkat ederseniz sizin yazdığınız kodlarda zaten sistemin zamanını referans alıyor. yanlışsa yanlış alır doğru ise doğru alıyor.
siz yinede altyernatif çözümler araştırınız. Bulabilirseniz paylaşırsınız.

İyi çalışmalar.

Ergün bey mütevaziliğinize teşekkür ederim.
Şahsen ben excelde formül ve makrolarda tabiri caizse daha eğitimin elif-ba sını öğrenirken siz liseyi bitirmiş sayılırsınız, bu sebeple size hocam demek bana gurur verir.

 

[resolve45]

elinize sağlık çok tşk ederim