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.