Dosya Açılış sayısını kısıtlama

[aydogankemal]

Bir excel dosyasının açılış sayısını belirleyerek; örneğin 50 açılıştan sonra şifre istemesi yada msgbox uyarısıyla dosya sahibine ulaşmasının istemesi ve dosyanın bu rakamdan sonra açılmaması nasıl sağlanır.
yardımınızı bekliyorum

 

[Seyit Tiken]

Aşağıdaki örnek kodu Autpen'e bağlayarak deneyiniz.

Sub Düğme1_Tıklat()
If [a1] = 15 Then
MsgBox "Kullanım süreniz bitti"
ActiveWorkbook.Close
Else
[a1] = [a1] + 1
ActiveWorkbook.Save
End If
End Sub

 

[aydogankemal]

Pardon Bİraz Daha AÇarmisiniz EksİĞİm Çok Fazla,auto Opena Nasil BaĞlayacaĞim