hücreye şifre ile giriş yapmak

[magnet2014]

Arkadaşlar merhaba,

Excel sayfasında sheet1, AT3 hücresinde data validation ile oluşturulmuş bir listbox mevcut. Bu hücrenin kullanımını macro ile şifrelemek istiyorum. Yani hücreye gelip listeden seçim yapmak istendiğinde şifre sordurabilir miyim? Yetkili personel tarafından yoğun bir kullanım olduğu için sayfa şifreleme oldukça zorlayıcı oluyor. Şimdiden desteğiniz için teşekkür ederim.

İyi çalışmalar,

 

[sametozyavuz]

ilgili sayfanın kod bölümüne bu makro yazılabilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AT$3" Then
    sifre= InputBox("şifre", "yetkili girişi")
    If sifre= 123 Then
    Range("AT3").Select
    Else
    Range("AT2").Select
 End If

End If

End Sub