Registracija

Ungroup u zaključanom sheetu (prilogođavanje koda)

Odgovori Nova tema

1 odgovor
1.211 pregleda

Ungroup u zaključanom sheetu (prilogođavanje koda) 12.07.2017. u 07:45 · pre 113 meseci #1

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

Re: Ungroup u zaključanom sheetu (prilogođavanje koda) 13.07.2017. u 22:28 · pre 113 meseci #2

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme