Veri girilen hücre değiştirilemesin

[krsdzds]

Arkadaşlar,

Aşağıdaki kodda yapmak istediğim vermiş olduğum alanlara yalnızca bir defa giriş yapılabilmesini sağlamak ve dolayısıyla içeriği korumak fakat kod maa lesef çalışmadı yardımcı olmanızı dilerim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D4403, F4:K403, T4:AL403, BH4:BR403,CD4:CN403,CZ4J403, DV4:EF403, ER:FB403, FN4:FX403")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If ActiveCell <> "" Then Selection.Locked = True
If ActiveCell = "" Then Selection.Locked = False
ActiveSheet.Protect

End Sub

 

[Ömer]

Merhaba,

http://www.excel.web.tr/f48/otomatik-hucre-korumasy-t79063.html

Bu şekilde işinize yarar mı? Yoksa her veri girişinde mi işlemin gerçekleşmesini istiyorsunuz.

.

 

[krsdzds]

Ömer Bey teşekkür ederim ama istediğim tam olarak o değildi. istediğim örneğin A1 hücresine veri girdikten sonra şifre açılmadıktan sonra veri değiştirilemesin.

 

[Ömer]

ThisWorbook sayfasına;

Sayfa1 sayfa adını kendinize göre düzenlersiniz.

Private Sub Workbook_Open()
    On Error Resume Next
 
    Sheets("[COLOR=red]Sayfa1[/COLOR]").Select
 
    ActiveSheet.Unprotect "123"
        Cells.Locked = False
        Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
    ActiveSheet.Protect "123"
 
End Sub

Çalışma sayfasının kod bölümüne;

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

.