[ snenad_82 @ 12.07.2017. 06:45 ] @
Potrebna mi je pomoć oko VBA koda za zaključavanje sheeta ali da ostane omogućeno group/ungoup. Za zaključavanje koristim kod Code: 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 BTW Moje znanje kodiranja je veoma skromno |