[ jaskojsako @ 01.03.2015. 10:32 ] @
poz imam jedno pitanje,kako da zaključam čeliju kada se u čeliju unese podatak u rasponu primer radi CC3:AG3,sljedeći raspon C4:AG4 i tako sve do C7:AG7 da kad unesem podatak u čeliju C3 da je zaključa a da mogu unijeti podatak u sljedeću čeliju D3 i da i nju zaključa poslije unosa podatka i tako redom imam kod ali čim unesem podatak u prvu čeliju odmah zakljuće i sve ostale naravno da traži pasword za otključavanje hvala Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C3:AG3")) Is Nothing Then 'set your range here ActiveSheet.Unprotect Password:="mypassword" Target.Locked = True ActiveSheet.Protect Password:="mypassword" End If End Sub |