Tek hücreye şifre

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Oluşturmaya çalıştığım çalışmada, şifreli bir sayfada tek hücreye şifre oluşturma gerekti. Acaba sayfa şifresini bilmeden, sadece tek hücredeki rakamı değiştirebilmek için, hücreye şifre verilebilir mi?
Saygılarımla

 

[ÖmerBey]

Merhaba,
Sayfaya şifre verdiğinizde bahsettiğiniz bir tek hücrenin kilidini kaldırarak değiştirilebilir yaparsınız. Daha sonra o hücre seçildiği veya değiştirildiği zaman çalışmak üzere yazılan makro koduna inputbox ya da şifre girişi için oluşturacağınız bir userform kullanarak şifre ile işlemin tamamlanmasını sağlarsınız. Ancak makro etkin olmadığında bu sistem çalışmayacaktır.

Sayfa1 A1 hücresi için kabaca hazırladığım aşağıdaki kodları kullanabilirsiniz.
Bir modül içine

Public eski

ThisWorkbook bölümüne

Private Sub Workbook_Open()
eski = Sheets("Sayfa1").Range("A1").Value
End Sub

ilgili sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
sfr = Application.InputBox("Değiştirmek için şifre giriniz.")
If sfr <> 123 Then
    Application.EnableEvents = False
    Range("A1").Value = eski
    Application.EnableEvents = True
End If
eski = Range("A1").Value
End Sub

 

[Tevfik_Kursun]

Sayın ÖmerBey Hocam,
İlginize çok teşekkür ederim, deneyeceğim.
Saygılarımla