Admin şifre ile tüm yetkiler açılsın

[o2l3m]

Dosya açılınca Admin şifresi sorsun.
Cancel veya 3 kez hatalı giriş olursa Sayfadaki aşağdıaki kod aktif ve geçerli olsun.

Sayfadaki kod :

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Intersect(Target, [E:J]) Is Nothing Then
If sor = False Then
i = InputBox("DEĞİŞİKLİK YAPMAYA YETKİLİ DEĞİLSİNİZ...!!!")
If i <> 123 Then
Application.Undo
Else
sor = True
End If: End If: End If
Application.EnableEvents = True
End Sub

 

[o2l3m]

Yardım edecek yok mu?

 

[o2l3m]

Merhaba
Ekli dosyada gerekli düzenlemeyi yapabilecek bir arkadaş yok mu acaba?

 

[muygun]

Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.

 

[o2l3m]

Elinize sağlık. Galiba tam olarak istediğimi anlatamadım.
1.mesajdaki kod mavi sütunlarda E:J sütun aralığında değişiklik yapmayı engelliyordu.

Kural1:
Admin ile giriş yapılınca 1.mesajdaki kod pasif olsun. Sayfada hertürlü değişiklik yapılabilsin.

Kural2:
Diğer tüm kullanıcılar giriş yapınca da 1.mesajdaki kod sayfada aktif olsun. E:J sütun aralığında işlem yapılamasın.

Yardımlarınız için çok teşekkürler

Merhaba;
Ekteki gibi olabilir.
Deneyin.
İyi çalışmalar.