Açılış şifresi

[manisali61]

Private Sub CommandButton1_Click()
K_Adi = Array("HERHANGİ BİR İSİM")
Sifre = Array("****")
For x = LBound(K_Adi) To UBound(K_Adi)
If TextBox1.Text = K_Adi(x) And TextBox2.Text = Sifre(x) Then
Unload Me
MsgBox "HOŞ GELDİNİZ", vbInformation, "GİRİŞ EKRANI"
Exit Sub: End If
Next
Unload Me
MsgBox "Yanlış şifre.Giremezsiniz", vbCritical, "Siz Şerif Ali ŞENSAZLI değilsiniz"
ThisWorkbook.Close False
End Sub
Private Sub CommandButton2_Click()
Unload Me
ThisWorkbook.Close False
End Sub
Private Sub Label2_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

Bu kodu herhangi bir boş excel sayfasına yapıştırıp excel açılış dosyası haline getirdim.
Sonra bu dosyayı C:\program files\Microsoft Office\OFFICE11\XLSTART klasörünün içine attım
Excelde herhangi bir dosya açmak için tıkladığımda bana şifre soruyor..Doğru şifrede sorun yok..Hemen "HOŞGELDİNİZ" deyip exceli açıyor
Ama tıkladığım excel dosyasını değil de program files'in içine attığım "excel açılış dosyasını" açıyor..Sonra ben tekrar açmak istediğim excel dosyasını açıyorum
Ondan sonra istediğim excel dosyası açılıyor.
Yanlış şifre girdim mi "yanlış şifre girdiniz" uyarısıyla kapatıyor.Ama işin ilginiç yanı kapandıktan hemen sonra excel dosyası
açmaya kalktığımda excel ve dolayısıyla excel dosyası açılıyor.Böylelikle şifre sormasının bir anlamı kalmıyor..

Bunu düzeltmenin yolu ya da daha işlevli bir açılışta şifre sormasını sağlayan program var mıdır?
Şimdiden teşekkürler..

 

[uzmanamele]

merhaba

excele açılış şifresi koymanın anlamını anlayamadım.
excel, ofis programlarının önemli bir parçasıdır. bu programı benden başkası kullanmasın düşüncesi biraz garibime gitti.

önemli bilgilerinizin olduğu dosyalara şifre koyabilirsiniz, en sağlamı da vba ile koyulan şifre değil, dosyaya koyulan şifredir. excelin standart uygulamasıdır.

 

[manisali61]

Yardımın için çok çok çok teşekkür ederim uzmanamele arkadaşım..Gerçekten çok işimi gördü..Tekrar tekrar teşekkür ederim

 

[manisali61]

Korhan ve İhsan üstadlarım..Lütfen bana da yardım eder misiniz?

 

[İhsan Tank]

Korhan ve İhsan üstadlarım..Lütfen bana da yardım eder misiniz?

merhaba
syn: manisalı61 öncelikle şundan bahsedeyim bu şekilde isim verdiğinizde diğer arkadaşlar bunu yanlış anlıyabilirler buna dikkat ediniz.
sorunuza gelince Syn : Uzmanamele hocam size yol göstermiş bende en mantıklı seçim bu onu deneyiniz.
kendisine çok teşekkür ederim.

 

[manisali61]

Peki....Sorumu geri aldım...Sormamış kabul edin....Ben de uzmanamele arkadaşa teşekkür ettim zaten..Ama asıl sorun şu :
Ben bu kodları kendim yazmadım zaten,buradan aldım...Burada yayınlarken bir sorun teşkil etmiyordu,yardım isteyince mi sorun oldu?? Neyse..Uzatmanın anlamı yok..İlginize ve yardımlarınıza teşekkür ederim.

 

[uzmanamele]

Yardımın için çok çok çok teşekkür ederim uzmanamele arkadaşım..Gerçekten çok işimi gördü..Tekrar tekrar teşekkür ederim

efsane geri döndü!
sizin bu tutumunuzu özlemiştik.

 

[manisali61]

Sizin beni çekmek istediğiniz yeri biliyorum ama size uymayacağım bu sefer..Sadece ilginize teşekkür ettim ben..