Greetings,

Szeretnék több munkalapot levédeni és feloldani, valamint letiltani a Zárolt cellák kiválasztása opciót, hogy a védett cellákat ne lehessen kijelölni.

Találtam néhány VBA-kódot, amely egyszerre több munkalapot is zárolhat, és egy kis kódot a Locked Cells bithez, de fogalmam sincs, hogyan egyesíthetem a kettőt.

Megvannak a feloldani kívánt cellák a szalag Igazítás szakaszának Védelem lapján. 

Tájékoztatásul: Ez egy másik munkafüzet, mint a korábbi témám.

Mintakód, amelyet az összes munkalap védelmére találtam: Sub ProtectAllWorksheetsWithInputbox()
'1. lépés: Deklarálja a változókat
Dim ws munkalapként
Dim Pwd As String
'2. lépés: adja meg jelszavát az összes munkalap védelméhez
Pwd = InputBox ("Adja meg jelszavát az összes munkalap védelméhez", "Jelszó bevitele")
'3. lépés: Kezdje el végigfutni az összes munkalapot
Minden ws-hez az ActiveWorkbook.Worksheetsben
'4. lépés: Védelem és ugrás a következő munkalapra
ws.Protect Password:=Pwd
Következő ws
End Sub

Találtam kódot a Zárolt cellák kiválasztása opció letiltásához:

1. Az ActiveSheet programmal
   
2. .Védd meg
   
3. .EnableSelection = xlUnlockedCells
   
4. Vége
   

Köszönöm,

Viepyr