Aşağıdaki Dosyamda Kod Hatası hk.

[HACI46]

Arkadaşlar Merhaba
Yutub tan bakarak bir kullanıcı yetkili Login çalışması yapmıştım ama bir hata veriyor ben amatörüm anlayamadım.
Deneyimli kardeşlerimiz bir bakıp bu sorunu çözebilir misiniz.
BuÇalışmaKitabı ' CloseWorkbook u yorum satırına dönüştürdüm dosya kapalı gitmesin diye, bilgilerinize.
Herkese selamlar. Sağlıklı günler dileği ile.

 

[Muzaffer Ali]

Merhaba.
1- Ne hatası veriyor?.
2- Ne yapınca hata veriyor?
3- Nerede veriyor?
4- Tam olarak ne yapmaya çalışıyorsunuz?

 

[HACI46]

Merhaba.
1- Ne hatası veriyor?.
2- Ne yapınca hata veriyor?
3- Nerede veriyor?
4- Tam olarak ne yapmaya çalışıyorsunuz?

Muzaffer bey merhaba, İlginiz için çok teşekkür ediyorum.
Dosyayı tekrar yüklüyorum, Örnek: Kullanıcı Ahmet Şifre 123 OK deyip giriş yapıldığında Modül WBSecurity teki kod da hata veriyor.
Saygı ve Selamlar, Sağlıklı günler dileği ile.

 

[HACI46]

Muzaffer bey merhaba, İlginiz için çok teşekkür ediyorum.
Dosyayı tekrar yüklüyorum, Örnek: Kullanıcı Ahmet Şifre 123 OK deyip giriş yapıldığında Modül WBSecurity teki kod da hata veriyor.
Saygı ve Selamlar, Sağlıklı günler dileği ile.

Muzaffer bey birde dosya yükleme olduğundan mıdır bilmem ama Login Form u Önce Kapatıp Geliştirici VBA da tekrar Login Formu (F5) Çalıştırdığınıza hatayı görürsünüz zaten. Tekrar saygılar Selamlar.

 

[Muzaffer Ali]

WBSecurity adlı modulede bulunan, aşağıdaki satırların yerlerini değiştirin

.Range("B5:B6").ClearContents
UserRow = .Range("B8").Value ' UserRow

Yani aşağıdaki gibi olmalı

UserRow = .Range("B8").Value ' UserRow
.Range("B5:B6").ClearContents

 

[HACI46]

WBSecurity adlı modulede bulunan, aşağıdaki satırların yerlerini değiştirin

.Range("B5:B6").ClearContents
UserRow = .Range("B8").Value ' UserRow

Yani aşağıdaki gibi olmalı

UserRow = .Range("B8").Value ' UserRow
.Range("B5:B6").ClearContents

Teşekkürler Muzaffer bey, bu hata gitti inşallah başka hatalarım çıkmaz. Sağlıklı günler dileği ile selamlar.