zakljucavanje i otkljucavanje celija

[ Davorenko @ 23.04.2022. 18:13 ] @

Postavio sam kod da se prilikom promjene vrijednosti u broj 4 otkljucavaju celije i mijenja svojstvo boje. I to radi sasvim ok.
Problem se deševa kad zakjucam radni list, tada funkcija locked javlja gresku jer ista se ne moze promjeniti zato sto je radni list zakljucan.
Bez obzira na svojstvo celije da li je zakljucan ili otkljucana.

Moze li netko pogledati u cemu je greska
Hvala unaprijed

[code]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("m28") = 4 Then
Range("D39:G39").Locked = False
Range("G39:F39").Interior.Color = RGB(255, 255, 255)
Range("D39") = "Broj JCI"

Else
Range("D39:G39").Locked = False
Range("f39:g39").Interior.Color = RGB(220, 230, 241)
Range("d39").ClearContents
Range("D39:g39").Locked = True
End If
End Sub

[ Jpeca @ 02.05.2022. 12:01 ] @

Jednostavno otključaj taj list pre svega ostalog i zaključaj ga na kraju. Mislim da je potrebno (u svakom slučaju je dobra praksa) da isptaš da li se izmena na listu odnosi na konkretnu ćeliju - u suprotnom kod će se izvšavati za izmenu bilo koje ćelije - pa i onih unutar koda

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$28" Then
    ActiveSheet.Unprotect
    If Range("M28") = 4 Then
        Range("D39:G39").Locked = False
        Range("G39:F39").Interior.Color = RGB(255, 255, 255)
        Range("D39") = "Broj JCI"
    Else
        Range("D39:G39").Locked = False
        Range("F39:G39").Interior.Color = RGB(220, 230, 241)
        Range("D39").ClearContents
        Range("D39:G39").Locked = True
    End If
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub