Şifreli veri girişi

[cimbom05]

İyi günler,
Bir excel sayfası içerisinde M sütununda isim tanımlaması yapılmaktadır. Burada o satırda tanımlanan işi yapan personel tanımlanacaktır. Ancak burada tanımlanacak isim örneğin İsa ise bu sütuna İsa olarak yazılmayacak bu kiişye ait bir şifre belirlenecek. Örneğin İsa 'ya ait şifre 123 olsun. Bu sütundaki örneğin M15 hücresine gelindiğinde 123 yazdığımda hücrede İsa görünecek. Ancak bu isim için M15 hücresinde İsa yazılırsa kabul etmeyecek. Farklı isimleri kabul edebilir. Sadece şifre ile tanımlanan isimler için şifre girmek zorunlu olacaktır. Bu söylediğim hücre kilitlemek değildir. Bu konuda yardımlarınızı rica ederim.

 

[fedeal]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [m15]) Is Nothing Then Exit Sub
If Cells(15, "m").Value = "ali" Or Cells(15, "m").Value = "ALİ" And Cells(65536, 250).Value = "" Then
a = InputBox("şifreli giriş", "fedeal")
If a = 1234 Then
Else
Cells(15, "m").Value = ""
End If
End If
Cells(65536, 250).Value = ""
If Cells(15, "m").Value = "1234" Then
Cells(65536, 250).Value = "X"
Cells(15, "m").Value = "ALİ"
End If
End Sub

ALİ ŞİFRE 1234,iyi çalışmalar.

 

[baydeniro]

Güzel çalışma teşekkürler.

 

[fedeal]

Güzel çalışma teşekkürler.

Ricaederim,saygılar.

 

[cimbom05]

Teşekkürer sayın Fedeal
Anlatımdaki M15 tanımlaması sadece örnekti. Bu işlem tüm M sütunu için geçerli olacak. Sanırım bu şekilde düzenleyebilirim. Her şey için teşekkürler.