ADMİN PANELİ ŞİFRE ÇOĞALTMA HAKKINDA YARDIM

[menderes01]

Arkadaşlar kolay gelsin bir excel çalışmam var admin paneli ekledik yetkili kişilerin şifre ile veri elemesi için sıkıntısız çalışıyor yalnız her birim için ayrı ayrı şifre tanımlamak istiyorum bunu nasıl yapabilirim

If TextBox1.Value = "625493" Then : bu kodu kullanıyorum "şifre" & "2.şifre" & "3.şifre" olarak denedim olmadı arasına noktalı virgül denedim olmadı kodu çoğalttım olmadı

 

[netzone]

Merhaba,

Aşağıdaki yapıda olduğu gibi kodunuzu yazabilirsiniz.

İyi çalışmalar.

If koşul1 Then doğruysa sonuç
ElseIf koşul2 Then doğruysa sonuç
ElseIf koşul3 Then doğruysa sonuç
ElseIf koşul4 Then doğruysa sonuç
ElseIf koşul5 Then doğruysa sonuç
Else yanlışsa sonuç
End If

 

[menderes01]

Private Sub CmdLogin_Click()
If TextBox1.Value = "11111" Then
ActiveWorkbook.Unprotect ("123456789")
Sayfa6.Visible = True
Sayfa7.Visible = True
Sayfa10.Visible = True
Sayfa10.Select
ActiveWorkbook.Protect Password:="123456789"
Else
MsgBox "Hatali Şifre Girişi"
End If
Unload Me
Unload UserForm11
End Sub

kodu eklemeye çalıştım ama her seferinde hata veriyor yanlış birşeyler yapıyorum muhtemelen kodlarım üst tarafdaki gibi size zahmet nasıl ekelenecek gösterirmisiniz

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

admin=123

 

[menderes01]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

admin=123

Teşekkür ederim yalnız uygulamaya çalıştım da pek beceremedim.

 

[TURKOLOG]

Private Sub CmdLogin_Click()
If TextBox1.Value = "11111" Then
ActiveWorkbook.Unprotect ("123456789")
Sayfa6.Visible = True
Sayfa7.Visible = True
Sayfa10.Visible = True
Sayfa10.Select
ActiveWorkbook.Protect Password:="123456789"
Else
MsgBox "Hatali Şifre Girişi"
End If
Unload Me
Unload UserForm11
End Sub

kodu eklemeye çalıştım ama her seferinde hata veriyor yanlış birşeyler yapıyorum muhtemelen kodlarım üst tarafdaki gibi size zahmet nasıl ekelenecek gösterirmisiniz

Sayın @menderes01 kişisel veriler olmadan örnek dosyayı eklerseniz çok çabuk sonuç alırsınız.