Excel dosyasının korunması

[erkan]

Daha önceden yazılıp yazılmadığını bilemiyorum ve eğer yazıldı ise özür dileyerek tekrar soruyorum. Excel ile hazırlanan bir dosyanın şifre ile açılması, eğer açmaya çalışan kişi şifreyi 3 kez yanlış yazarsa sistemin kilitlenmesi (caydırıcılık açısından). Makro ile böyle bir uygulama için hocalarımdan yardım bekliyorum. Saygılar. :yardim:

 

[xxrt]

Sub auto_open() 
Static sayac As Integer 
Do 
If sayac = 3 Then 
ThisWorkbook.Close False 
Else 
If InputBox("Þifreyi girin") = "sifre" Then 
GoTo devam 
Else 
sayac = sayac + 1 
End If 
End If 
Loop 
devam: 
End Sub

Ek:
Burayıda İncelersen Daha Geniş olur.
http://www.excel.web.tr/viewtopic.php?t=432&highlight=%FEifre

 

[erkan]

Teşekkür ederim xxrt hocam, bi şey daha soracağım. Sanırım şifreyi makronun içinde 7 nci satırdaki "sifre" yazan yere mi yazacağım.?

 

[xxrt]

= "sifre" Then

sifre yazan yeri kendin belirlersin..Kolay Gelsin.

 

[erkan]

Tekrar teşekkür ederim, peki 3 kez yanlış şifreden sonra sistemle ilgili bir önlem aldık mı? Kod bölümünde bununla ilgili bir şey yok sanırım.

 

[xxrt]

(caydırıcılık açısından).

Bu açıdan bakarsanız bu kodlar size yeterli.Ama Çok Ã?nemli Bir dosyanız ise Sistem olarak İletişim sistemimi yoksa Excel sistemimi?Açarsanız yardımcı olmaya çalışacağım..

 

[erkan]

Sevgili xxrt umarım sizi meşgul etmiyorumdur. Soruda da belirttiğim gibi dosyayı kurcalayan kişinin vazgeçmesi açısından sistemin kilitlenmesini ve restart yapmak zorunda bırakılmasını kasdettim. İlgilenirseniz sevinirim. Saygılar...

 

[xxrt]

Apiler Konusuna giriyor.Bu konu hakında fazla bilgim yok.

 

[erkan]

Apiler

ne demek olduğunu anlamadım ama yine de teşekkür ederim. Saygılar

 

[xxrt]

http://www.excel.web.tr/viewtopic.php?t=437&highlight=bilgisayar Alpen Hocamın çalışması var.Fikir verebilir.