Hücre Kilitleme (Şifreli)

[ercu2010]

Arkadaşlar Herkese Kolay Gelsin

Excel de her hangi bir hücreye değer girince yeniden aynı hücreye değer girilmesin hücre kendini kilitlesin sadece sayfa koruma şifresi olan değiştirsin. Böyle birşey mümkün müdür.
örneğin a1 Hücresine Ahmet Yazdım kimse bunu silemesin yada değiştiremesin ama a2 hücresine yazmak isterse yazsın sonra buda kendini otomatik kilitlesin kimse bunu değiştiremesin
Böyle bir şey mümkün müdür.

 

[yanginci34]

Merhaba formda ustalardan biri bu kodu yazmıştı bende fayfalanmıştım. Sayfa ismine sağ tıklayıp kodu görüntüle ardından aşağıdaki kodu oraya yapıştırıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect 12345
If ActiveCell <> "" Then Selection.Locked = True
If ActiveCell = "" Then Selection.Locked = False
ActiveSheet.Protect 12345
End Sub

 

[ercu2010]

Hocam Teşekkürler
Sürekli Olarak "Run Time" Hatası veriyor

 

[ercu2010]

Merhaba formda ustalardan biri bu kodu yazmıştı bende fayfalanmıştım. Sayfa ismine sağ tıklayıp kodu görüntüle ardından aşağıdaki kodu oraya yapıştırıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect 12345
If ActiveCell <> "" Then Selection.Locked = True
If ActiveCell = "" Then Selection.Locked = False
ActiveSheet.Protect 12345
End Sub

Hocam Özür İşime Çok Yaradı teşekkürler
Zaten Sayfa Kilitli Olduğu için veriyormuş hatayı sayfa kilidini açıp yaptım 10 numara çok teşekkürler

 

[yanginci34]

Rica ederim iyi günler