Exelde Yeni Kullanıcı ekleme ve şifre değiştirme

[sait2020]

Merhaba arkadaşlar.Excelimde login ekranı var fakat ben bu ekrana şifre değiştirme bölümü eklemek istiyorum. Kişi bu bölüme kullanıcı adını eski şifresini ve yeni şifresini yazacak eski şifre doğru ise şifre değişecek.Bu konuda bana yardımcı olursanız çok sevinirim.Şimdiden herkese teşekkürler. Dosya şifresi : admin

 

[Mertsan]

VBA kodları da şifreli!

 

[sait2020]

VBA kodları da şifreli!

Hocam tekrar dosyayı gönderdim.

 

[bydogannn67]

Merhabalar,

Örnek dosyayı inceleyiniz.

KULLANICI : ADMİN

ŞİFRE : 123456

 

[sait2020]

Merhabalar,

Örnek dosyayı inceleyiniz.

KULLANICI : ADMİN

ŞİFRE : 123456

Hocam 64 bit Hatası veriyor.Ayrıca benim dosyama entegre etmeniz mümkün mü?

 

[sait2020]

Hocam dosyayı kendime göre uyarladım.Yalnız bi sorum olacak ben şifre değiştir dediğimde şifreyi değiştiriyor fakat hemen ardından run time error hatası veriyor. Yardımcı olabilir misiniz rica etsem. şifre : 1234

 

[bydogannn67]

Merhabalar,

Değiştir butonundaki kodu aşağıdaki ile değiştiriniz

Private Sub CommandButton67_Click()
Sheets("sayfa2").Select


If TextBox4.Value <> TextBox5.Value Then
MsgBox "Şifreniz yanlış kontrol ediniz.", vbInformation
TextBox5.Text = ""

Exit Sub
Else
If TextBox6.Value = "" Then
MsgBox "Yeni Şifrenizi giriniz.", vbInformation

Exit Sub

Else
KAYITYAP.Show

ActiveCell.Offset(0, 1).Value = TextBox6.Value
MsgBox "İŞLEM BAŞARI İLE TAMAMLANDI..!!", vbOKOnly + vbInformation, "KAYIT"
End If
ComboBox1.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End Sub

 

[sait2020]

Merhabalar,

Değiştir butonundaki kodu aşağıdaki ile değiştiriniz

Private Sub CommandButton67_Click()
Sheets("sayfa2").Select


If TextBox4.Value <> TextBox5.Value Then
MsgBox "Şifreniz yanlış kontrol ediniz.", vbInformation
TextBox5.Text = ""

Exit Sub
Else
If TextBox6.Value = "" Then
MsgBox "Yeni Şifrenizi giriniz.", vbInformation

Exit Sub

Else
KAYITYAP.Show

ActiveCell.Offset(0, 1).Value = TextBox6.Value
MsgBox "İŞLEM BAŞARI İLE TAMAMLANDI..!!", vbOKOnly + vbInformation, "KAYIT"
End If
ComboBox1.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End Sub

Hocam çok sağolun ellerinize sağlık.

 

[bydogannn67]

Rica ederim