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 Sub
Imre
-
A hozzászólás módosításra került: 3 years, 7 months telt el-horvimi.