Citat:
Jpeca:
Prvo pitanje - već je bio odgovor na forumu
http://www.elitesecurity.org/t334370-0#2033786. Na žalost ja ne mogu da pristupim linku koji se tu navodi.
Uglavnom ako je problem sa izmenom na protektovanom listu, rešenje je da se u makrou izvši otključavanje lista pre koda i zaključavanje (opet) na kraju
Code:
' Otključavanje lista
ThisWorkbook.Worksheets("Promet").Unprotect Password:="..."
'Tvoj makro
' Ponovno zaključavanje
ThisWorkbook.Worksheets("Promet").Protect Password:="..."
Ne uspevam. Kod mi ima grešku kada napišem ili mi VBA deli kod na dva dela. Može li kompletan zapis. Evo Ti šaljem moj kod:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
Application.ScreenUpdating = False
Set Rng = ThisWorkbook.Worksheets("Promet").Range("B4:B203")
For Each cl In Rng
If cl.Text <> "" And cl.Formula <> cl.Text Then
cl.Formula = cl.Text
End If
Next cl
Application.ScreenUpdating = True
End Sub
Kako ovde ubaciti "Unprotect" i "Protect"? Hvala i pozdrav.