• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile satırı kilitleme

  • Konbuyu başlatan Konbuyu başlatan rames
  • Başlangıç tarihi Başlangıç tarihi
Katılım
24 Eylül 2012
Mesajlar
4
Excel Vers. ve Dili
2013 Türkçe
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.
 
. . .

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.


Kod:
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

. . .
 
Geri
Üst