[es] - zakljucavanje i otkljucavanje celija

Davorenko
Davor Ilic
BiH

Član broj: 163509
Poruke: 63
*.dynamic.telemach.ba.

Profil

zakljucavanje i otkljucavanje celija

^{23.04.2022. u 18:13 - pre 24 meseci}

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

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.dynamic.isp.telekom.rs.

Sajt: www.gowi.rs

+109 Profil

Re: zakljucavanje i otkljucavanje celija

^{02.05.2022. u 12:01 - pre 23 meseci}

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu