- This topic has 5 hozzászólás, 3 résztvevő, and was last updated 3 years, 8 months telt el by
.
-
Sziasztok!
Egy kis segítséged szeretnék kérni. Adott egy Excel fájl, amiben 4 munkalap van. Szeretném mind a 4-et levédeni úgy, hogy a szűrés és az oszlopok csoportosítása (nyitás/zárás) lehetősége megmaradjon. VBA-ban próbálkoztam az alábbi kóddal, de csak 1 munkalapot tudtam így levédeni, a többin nem működött, illetve a szűrést nem tudom hogyan kellene beleírnom.
Köszi előre is a segítséget.Private Sub Workbook_Open()
With Worksheets()
.Protect Password:=””, Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Szia!
Ha lapvédelmet kapcsolsz, akkor a sor és oszlop csoportosításról le kell mondanod, az autoszűrő használatáról viszont nem.
Ha bekapcsolod a lapvédelmet (pl. Munkalap neve jobb klikk -> lapvédelem…), akkor feljön egy ablak, aminek az alsó részében azok a a műveletek vannak felsorolva, amiket a védelem ellenére mégis lehet csinálni. A vége felé ott az „Autoszűrő használata”, csak be kel pipálni.Kipróbáltam, a többi művelet közül egyik sem engedélyezi a sor és oszlop csoportosítást.
Viszont a már meglévő csoportok ki-be csukogatását lehet engedélyezni
A fenti kód pedig azért nem jó, mert jelszóval védeni/feloldani egyszerre csak egy munkalapot lehet.
Erre szoktunk ciklust írni, ami végigmegy minden munkalapon.
Valami ilyesmi kellene:Private Sub Workbook_Open() Dim s As Worksheet For Each s In Sheets s.Protect Password:="Demo", AllowFiltering:=True, userinterfaceonly:=True s.EnableOutlining = True Next End SubImre
- Be kell jelentkezni a hozzászóláshoz.
