Привіт,
Я хотів би захистити та зняти захист кількох аркушів та вимкнути параметр Вибрати заблоковані клітинки, щоб не можна було вибрати захищені клітинки.
Я знайшов деякий код 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
Код, який я знайшов, щоб відключити параметр Вибрати заблоковані клітинки:
- За допомогою ActiveSheet
- .Захистити
- .EnableSelection = xlUnlockedCells
- Кінець з
Спасибі,
Вієпир