dosya açılış sayısı

[aydogankemal]

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]

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.

 

[aydogankemal]

teşekkürler işe yarıyor, ama uyarı mesajı vermesini istemiyorum,
bir de her iki örneği de ayrı ayrı yazabilir misiniz