hücre kilitleme

[msymsy]

sayfadaki bazı hücrelerde yazan değerlerin değiştirilmesini engellemek istiyorum sayfa koruma yolu dışında bunu nasıl gerçekleştirebilirim teşekkür ederim

 

[EErkut]

aşağıdaki kod a1 ve b2 hücrelerini kitler değişiklik için paralo ister parola doğru olmadıkca hücre içeriği değiştirilmez parola 123 kendi belirlediğin hücre aralıklarına uyarlarsan sorunun çözülür sanırım

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

If sifre = False Then
c = InputBox("Lütfen Hücre Değişikliği İçin Onay Şifresi Giriniz. ", "Lütfen Hücre Değişikliği İçin Onay Şifresi Giriniz")
If c <> 123 Then
Application.Undo
Else
sifre = True
End If
End If
End If
Application.EnableEvents = True
End Sub

 

[msymsy]

Say&#305;n EErkut;
&#246;ncelikle ilginize &#231;ok te&#351;ekk&#252;r ederim

ancak verdi&#287;iniz kodu uygulad&#305;&#287;&#305;m zaman mesela a1 h&#252;cresinde yap&#305;lan de&#287;i&#351;ikli&#287;in kal&#305;c&#305; olabilmesi i&#231;in &#351;ifre istiyor benim iste&#287;im ise a1 h&#252;cresine hi&#231; veri girilemesin

 

[Orion1]

A1 hücresine veri girmeyi deneyiniz.
Ekli dosyayı inceleyiniz.Veri doğrulama ile yapılmıştır.