VBA projemi nasıl şifrelerim

[Korhan Ayhan]

Giriş şifrenizi userform ile mi giriyorsunuz.

 

[yenilik025]

Giris sifrenizi userform ile mi giriyorsunuz.

Excel dosyasında kulanıcı adı ve şifre ile giriş yapılırken;

Pc adımda örnek USER olsun eğer ki.


Excel dosyasını açacağımda kullanıcı adı ve şifre sorgularken excel pc adını kontrol ederek
Pc adım USER değilse hatalı kullanıcı mesajı ile bu dosyayı açmasın .
Yani bir nevi PC adı ve kullanıcı adı ve şifresi ile kontrol diyebiliriz. saygılar selamlar.

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodları, mevcut kodlarınıza uygun şekilde ilave edin.

If Environ("COMPUTERNAME") <> "USER" Then
MsgBox "Yetkisi Kullanıcı", vbCritical
Exit sub
Else
End If

. . .

 

[yenilik025]

Hocam Merhabalar şifre ve kullanıcı kodularımız aşağıdar )
Sizin bilginize güveniyoruz

Private Sub CommandButton1_Click()
K_Adi = Array("a", "a1")
sifre = Array("b", "b1")
For X = LBound(K_Adi) To UBound(K_Adi)
If TextBox1.Text = K_Adi(X) And TextBox2.Text = sifre(X) Then
Unload Me
MsgBox "...", vbInformation, "ŞİFRENİZ ONAYLANDI. "
UserForm1.Show
Exit Sub: End If
Next
Unload Me
MsgBox "HATALI KULLANICI ADI/YADA HATALI ŞİFRE GİRİŞİ YAPTINIZ.", vbCritical, "..."
ThisWorkbook.Close False
End Sub

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton1_Click()
    
[COLOR="Blue"]    If Environ("COMPUTERNAME") <> "USER" Then
        Unload Me
        MsgBox "Yetkisiz Kullanıcı", vbCritical
        ThisWorkbook.Close False
    Else
    End If[/COLOR]
    
    K_Adi = Array("a", "a1")
    sifre = Array("b", "b1")
    For X = LBound(K_Adi) To UBound(K_Adi)
        If TextBox1.Text = K_Adi(X) And TextBox2.Text = sifre(X) Then
            Unload Me
            MsgBox "...", vbInformation, "ŞİFRENİZ ONAYLANDI. "
            UserForm1.Show
            Exit Sub: End If
        Next
        Unload Me
        MsgBox "HATALI KULLANICI ADI/YADA HATALI ŞİFRE GİRİŞİ YAPTINIZ.", vbCritical, "..."
        ThisWorkbook.Close False
End Sub

. . .

 

[yenilik025]

Hocam dosyayı ekledim çalıştır dediğimizde de çalıştıramadım.
doğru şifre girişi ve computer ismi de doğru ancak yine çalışmadı.
Dosya ekte

kullanıcı adı: a şifre: a ya da ikinciside b, b

. . .

Private Sub CommandButton1_Click()
    
[COLOR="Blue"]    If Environ("COMPUTERNAME") <> "USER" Then
        Unload Me
        MsgBox "Yetkisiz Kullanıcı", vbCritical
        ThisWorkbook.Close False
    Else
    End If[/COLOR]
    
    K_Adi = Array("a", "b")
    sifre = Array("a", "b")
    For X = LBound(K_Adi) To UBound(K_Adi)
        If TextBox1.Text = K_Adi(X) And TextBox2.Text = sifre(X) Then
            Unload Me
            MsgBox "...", vbInformation, "ŞİFRENİZ ONAYLANDI. "
            UserForm1.Show
            Exit Sub: End If
        Next
        Unload Me
        MsgBox "HATALI KULLANICI ADI/YADA HATALI ŞİFRE GİRİŞİ YAPTINIZ.", vbCritical, "..."
        ThisWorkbook.Close False
End Sub

. . .

 

[Emir Hüseyin Çoban]

. . .

Kodlardaki bilgisayar ismini büyük harfle girerek deneyin.

If Environ("COMPUTERNAME") <> "[COLOR="Red"]USER[/COLOR]" Then

. . .