Привіт,

Я хотів би захистити та зняти захист кількох аркушів та вимкнути параметр Вибрати заблоковані клітинки, щоб не можна було вибрати захищені клітинки.

Я знайшов деякий код VBA, який може блокувати кілька аркушів одночасно, і трохи коду для блоку заблокованих осередків, але я не знаю, як об’єднати ці два.

У мене є клітинки, які я хочу розблокувати на вкладці «Захист» у розділі «Вирівнювання» на стрічці. 

Для довідки: це інша книга, ніж моя попередня тема.

Зразок коду, який я знайшов для захисту всіх робочих аркушів: Sub ProtectAllWorksheetsWithInputbox()
'Крок 1: оголосіть свої змінні
Dim ws As Worksheet
Dim Pwd As String
«Крок 2: введіть свій пароль, щоб захистити всі аркуші
Pwd = InputBox("Введіть свій пароль, щоб захистити всі аркуші", "Введення пароля")
«Крок 3: Почніть перебирати всі аркуші
Для кожного ws в ActiveWorkbook.Worksheets
«Крок 4: захистіть і перейдіть до наступного аркуша
ws.Protect Password:=Pwd
Далі ws
End Sub

Код, який я знайшов, щоб відключити параметр Вибрати заблоковані клітинки:

1. За допомогою ActiveSheet
   
2. .Захистити
   
3. .EnableSelection = xlUnlockedCells
   
4. Кінець з
   

Спасибі,

Вієпир