Otomotik kilitleme

[boztepelibey]

DEĞERLİ ÜSTADLARIM;
A1 hücresine veriyi girdim entere bastım a2 hücresine geçtiğim zaman A1 hücresi otomotik olarak kendisini kilitleyebilir mi "123" şifresi ile Mümkün mü?
DUALARIMLA

 

[baydeniro]

Merhaba. Dosyanın This Workbook kısmına aşağıdaki kodu yapıştır :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> 0 Then ActiveSheet.Protect "123"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect "123"
If Target = 0 Then ActiveSheet.Unprotect "123"
End Sub

 

[boztepelibey]

Serdarokan ÜSTADIM
Teşekkür Ederim.Allah razı olsun.Hakkını helal et

 

[baydeniro]

Est. hocam, yardımcı olabildimse ne mutlu bana. bu kod forumdaki değerli üstatlardan birine ait. Zamanında kaydetmiştim.