Як створити захист паролем за допомогою макросу
Ви хотіли б переконатися, що всі аркуші у вибраній вами папці захищені паролем за допомогою макросу? Це може бути корисним, якщо у вас занадто багато проблем із захистом робочих листів окремо або якщо ви хочете автоматично захистити всі книги в каталозі. Використовуйте наступний макрос, щоб призначити пароль "захист" для всіх аркушів в активній папці:
Sub AllSchuetzen ()
Затемнений аркуш як робочий аркуш
Для кожного аркуша в ActiveWorkbook.Worksheets
Blatt.Protect ("захист")
Наступний аркуш
End Sub
Замість тексту "Schutz" використовуйте пароль за вашим вибором. Звичайно, цей програмний код має сенс лише тоді, коли ви вводите його поза робочою книгою, у якій ви створюєте захист. В іншому випадку кожен користувач може прочитати пароль у вихідному тексті VBA.
Щоб мати змогу щось змінити на захищених аркушах, потрібно зняти захист. Це можна зробити вручну за допомогою команди EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. Ця команда доступна лише в тому випадку, якщо поточний аркуш дійсно захищений.
Якщо ви хочете знову випустити всі захищені аркуші за допомогою макросу, використовуйте такий код програми:
Sub AllExposure ()
Затемнений аркуш як робочий аркуш
Для кожного аркуша в ActiveWorkbook.Worksheets
Blatt.Unprotect ("захист")
Наступний аркуш
End Sub