Makro ile satırı kilitleme

[rames]

Arkadaşlar merhaba;

Excel konusunda yeniyim, benim istediğim olay şu,isim soyisim t.c vs gibi bilgileri girdikten sonra satırın sonuna kaydet butonu ekleyeceğim ve kaydete bastıktan sonra o satırda yazılan veriler kilitli kalacak değiştirilemeyecek. Bunu nasıl yapabilirim. Yardımlarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki makroyu bir kez çalıştırın. Daha sonra kullanmayın.

A sütununda ad soyad seçiliyken KOD makrosunu çalıştırın A:C aralığının kilitler.

Sub [B][COLOR="DarkRed"]Birkez_Çalıştır[/COLOR][/B]()

    On Error Resume Next
    ActiveSheet.Unprotect
    Cells.Locked = False
End Sub

Sub Kod()
    sat = Selection.Row
    süt = Selection.Column
    If süt <> 1 Then Exit Sub
    ActiveSheet.Unprotect
    Range("A" & sat & ":C" & sat).Locked = True
    ActiveSheet.Protect
End Sub

. . .