[ 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
[ snenad_82 @ 13.07.2017. 21:28 ] @
Rešio sam problem evo i koda ukoliko nekom treba

Code:
With Worksheets("Sheet1")
        .Protect Password:="1", userinterfaceonly:=True, AllowFormattingRows:=True, AllowFiltering:=True
        .EnableOutlining = True
End With