Aynı işlemin iki kez yapılması

[manisali50]

Option Explicit

Private Sub CommandButton1_Click()
Static HATA As Integer
Dim KULLANICI As Long
On Error GoTo HATALI_GİRİŞ

With Sheets("USERS").Range("A1:A536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With

If KULLANICI = 0 Then GoTo HATALI_GİRİŞ
If Sheets("USERS").Cells(KULLANICI, 2) <> TextBox2.Text Then GoTo HATALI_GİRİŞ

Sheets("USERS").Range("C1") = TextBox1.Value
Call TEMİZLE
LOGİN.Hide
Exit Sub

HATALI_GİRİŞ:
MsgBox "ÜZGÜNÜM..." _
& Chr(10) & "Excel açılamıyor..!!!", vbCritical, "UYARI ..!!!"
Call TEMİZLE
HATA = HATA + 1
If HATA = 3 Then Application.Quit
End Sub
Private Sub TEMİZLE()
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Application.Quit
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Textbox1_Change()
CommandButton1.Enabled = (TextBox1.TextLength > 3 And TextBox1.TextLength > 7)
End Sub
Private Sub Textbox2_Change()
CommandButton1.Enabled = (TextBox2.TextLength > 3 And TextBox2.TextLength > 3)
End Sub
Private Sub Textbox2_Enter()
TextBox2.PasswordChar = "*"
TextBox2 = ""
End Sub
Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub
Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2.PasswordChar = ""
TextBox2 = ""
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
End Sub

Arkadaşlar merhaba...
Diyelim ki "Deneme.xls" adlı excel kitabını açacağım..Tıkladığımda,önce yukarıdaki kodlar devreye giriyor ve benden
açılış şifresi istiyor..Şifreyi yazıp excele girdikten sonra "Deneme.xls" kitabını tekrar tıklayıp açıyorum..
İsteğim şu :
Bu kodlara bir ilave yapılarak;şifreyi girip exceli açtıktan sonra tekrar tıklamamıza gerek kalmadan "Deneme.xls" kitabı açılması mümkün mü..? Umarım anlatabilmişimdir..

Şimdiden teşekkürler..

 

[manisali50]

Yardımlarınızı bekliyorum arkadaşlar

 

[Korhan Ayhan]

Selamlar,

Kodlarda dosyanızı ikinci kez tıklayıp açmanızı gerektirecek bir yapı görünmüyor. Örnek dosya eklerseniz çözüme ulaşmak kolaylaşır.

 

[manisali50]

Dosyayı değil hocam.. Başta da söyledim ben anlatamıyorum...Baştan alıyorum :
Direkt olarak exceli açarsam önce şifre sorgu ekranı geliyor,şifreyi girip exceli açıyorum,ondan sonra istediğim exceli açıyorum..Hocam, total commander isimli bir program var..Ben genel olarak onu kullanıyorum..Onn üzerinde excel dizinini açıyorum,istediğim programın üzerine çift tıkladım mı yine excel sorgu ekranı geliyor..Oradan şifreyi girip excel sayfası açılıyor..Tekrar aynı dosya üzerine gidip tekrar üzerine tıklayıp açıyorum..Şimdi düşünüyorum da ben de mantık hatası var..Ben exceli total commander üzerinden değil de direkt olarak excel dizininden açmalıyım..Değerli vakitlerinizi aldım özür diliyorum hocam..