Hüçre Şifreleme

[g_demir]

ben sayfa1 deki a1 hücresinin değişmesi için şifre istiyorum böyle birşey varmı?
şimdiden teşekkür ederim

 

[Leoncio]

Merhaba;

Sayfa1 kod sayfasına aşağıdaki kodları yapıştırınız. Örnek olarak şifre 123 verilmiştir.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [a1]) Is Nothing Then

If sifre = False Then
c = InputBox("Şifre yazınız.", "Onay şifresi")
If c <> 123 Then
Application.Undo
Else
sifre = True
End If
End If
End If
Application.EnableEvents = True
End Sub

 

[g_demir]

sagolun &#231;ok i&#351;ime yarad&#305;

 

[Leoncio]

Rica ederim. İyi çalışmalar.