Code:
ActiveSheet.Protect "1", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowFiltering:=True
ActiveSheet.Protect "1", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowFiltering:=True
Funkcije koje su mi potrebne da rade u zaključanom sheetu su podešavanje visine reda, autofilter, selektovanje svih ćelija i naravno gproup/ungroup sa čim imam problem.
Našao sam sledeći kod koji bi trebalo da radi ono što mi treba, ali nikako nisam uspeo da ga prilagodim da sve radi onako kako mi treba
Private Sub Workbook_Open()
Code:
For Each ws In Sheets
With ws
.Unprotect Password:="Secret"
.Protect Password:="Secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next ws
End Sub
For Each ws In Sheets
With ws
.Unprotect Password:="Secret"
.Protect Password:="Secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next ws
End Sub
BTW Moje znanje kodiranja je veoma skromno