dosya açılış sayısı

Katılım
7 Aralık 2006
Mesajlar
160
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
27-05-2023
merhabalar,
örnek bir dosya yapıyorum,
demo gibi olsun istiyorum, mesela açılış sayısı 5 olsun, sonra bbütün içeriği silsin ya da açılmasın istiyorum, yardımcı olacak var mı
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,471
Excel Vers. ve Dili
Office 2010 & 2013 tr
Kod:
Sub Auto_Open()
[A1] = [A1] + 1
MsgBox "Kalan kullanım hakkınız: " & 15 - [A1]
If [A1] = 15 [COLOR="Red"]Or Date > CDate("13/02/2009") [/COLOR]Then
Application.Quit
MsgBox "Kullanım süreniz dolmuştur."
ThisWorkbook.Close False
End If
End Sub
Selamlar,
Bu kodla:
Dosyayı en fala 15 defa açabilir ve en son 13 şubata kadar kullanabilir. Tarih kısmını iptal etmek istiyorsanız, kırmızı alanı silebilirsiniz.
 
Katılım
7 Aralık 2006
Mesajlar
160
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
27-05-2023
teşekkürler işe yarıyor, ama uyarı mesajı vermesini istemiyorum,
bir de her iki örneği de ayrı ayrı yazabilir misiniz
 
Üst