Greetings, I would like to protect and unprotect multiple worksheets and disable the Select Locked Cells option so that the protected cells cannot be selected. I have found some VBA code that can lock multiple worksheets at once and a bit of code for the Locked Cells bit but I have no clue on how to merge the two. I have the cells I want unlocked through the Protection tab in the Alignment section on the Ribbon. For FYI: This is a different workbook than my earlier topic. Sample code I found to protect all the worksheets:Sub ProtectAllWorksheetsWithInputbox() 'Step 1: Declare your variables Dim ws As Worksheet Dim Pwd As String 'Step 2: enter your password to protect all worksheets Pwd = InputBox("Enter your password to protect all worksheets", "Password Input") 'Step 3: Start looping through all worksheets For Each ws In ActiveWorkbook.Worksheets 'Step 4: Protect and loop to next worksheet ws.Protect Password:=Pwd Next ws End Sub Code I found to disable the Select Locked Cells option: <ol start="1"> <li>With ActiveSheet </li><li>.Protect </li><li>.EnableSelection = xlUnlockedCells </li><li>End With </li></ol> Thanks, Viepyr

Új

Több lap védelme, ha nincs bejelölve a zárolt cellák kiválasztása

Excel

Viepyr

30, kedd 2021 november

3 Válaszok

5.4K látogatás

Szavazatok

Kibont

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:

Az ActiveSheet programmal
.Védd meg
.EnableSelection = xlUnlockedCells
Vége

Köszönöm,

Viepyr

Amanda Lee

2 éve

#2360

Szavazatok

Kibont

Szia Viepyr!

Sikerült egyesíteni a két kódot, kérjük, próbálja meg.

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.1. lépés: Védelem és ugrás a következő munkalapra
ws.Protect Password:=Pwd
'4.2. lépés: tiltsa le a Select Locked Cells funkciót
ws.EnableSelection = xlUnlockedCells
Következő ws
End Sub

Remélem, ez működik az Ön számára

Amanda

Viepyr

2 éve

#2361

Szavazatok

Kibont

Még egyszer köszönöm,

Ez működik, és leegyszerűsíti azt, amin dolgozom.

Viepyr

Amanda Lee

2 éve

#2362

Szavazatok

Kibont

Jó

Amanda

Oldal:
1

Erre a bejegyzésre még nem válaszoltak.

Kérjük, jelentkezzen be a válasz elküldéséhez

A válasz elküldéséhez be kell jelentkeznie. Jelentkezzen be a jobb oldali űrlap segítségével, vagy regisztráljon egy fiókot, ha új itt. Itt regisztrálj "