İşletme Defteri

[yavuz829]

Selam arkadaşlar ekteki işletme defterinde veri girdiğimiz zaman dolu olan hücreyi korumaya alan bir makro olurmu acaba. Girdiğimiz verileri yanlışlıkla silmemek için boş olan hücreler korumasız olsun hücreye veri yazıp başka bir hücreye geçtiğimiz zaman dolu olan hücreyi otomatik olarak korumaya alsın örneğin hücre koruma şifresi 1 olabilir. Bu konuda yardımlarınızı bekliyorum. Yardımlarınız için şimdiden teşekürler.

 

[Muzaffer Ali]

Öncelikle tüm sayfalarınızdaki veri olmayan hücrelerin koruma özelliğinin kilitli olmamasını sağlayınız. Bunu yapmak için, hücreyi sağ tıklatıp Hücreleri Biçimlendir'i tıklatınız, açılan pencerenin Koruma tabını açıp kilitle onay kutusunu temizleyiniz.
Daha sonra aşağıdaki kodları çalışma kitabı(ThisWorkbook) kod editörüne yazınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Sifre As String
    Sifre = 1
    ActiveSheet.Unprotect Sifre
    If Target.Value = "" Then
        Target.Locked = False
    Else
        Target.Locked = True
    End If
        ActiveSheet.Protect Password:=Sifre, DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub

Bu kod eğer hücreye bir veri yazarsanız o hğcrenin koruma özelliğini kilitli duruma getirir.

 

[yavuz829]

Hocam çok teşekürler ellerinize sağlık tam istediğim gibi olmuş.