Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Office :: Excel :: Ungroup u zaključanom sheetu (prilogođavanje koda)

[ Pregleda: 727 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

snenad_82
Nenad Stevanovic
Niš

Član broj: 126686
Poruke: 74
*.dynamic.isp.telekom.rs.



Profil

icon Ungroup u zaključanom sheetu (prilogođavanje koda)12.07.2017. u 06:45 - pre 81 meseci
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
 
Odgovor na temu

snenad_82
Nenad Stevanovic
Niš

Član broj: 126686
Poruke: 74
*.dynamic.isp.telekom.rs.



Profil

icon Re: Ungroup u zaključanom sheetu (prilogođavanje koda)13.07.2017. u 21:28 - pre 81 meseci
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
 
Odgovor na temu

[es] :: Office :: Excel :: Ungroup u zaključanom sheetu (prilogođavanje koda)

[ Pregleda: 727 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.