zakljucavanje i otkljucavanje celija

Odgovori Nova tema

1 odgovor
1.373 pregleda

zakljucavanje i otkljucavanje celija 23.04.2022. u 19:13 · pre 55 meseci #1

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

Re: zakljucavanje i otkljucavanje celija 02.05.2022. u 13:01 · pre 54 meseca #2

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

Potpis

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme