Как да създадете защита с парола с помощта на макрос
Искате ли да сте сигурни, че всички работни листове в избрана от вас папка са защитени с парола с помощта на макрос? Това може да бъде полезно, ако имате твърде много проблеми със защитата на работни листове поотделно или ако искате да защитите автоматично всички работни книги в директория. Използвайте следния макрос, за да зададете парола „защита“ за всички работни листове в активната папка:
Sub AllSchuetzen ()
Затъмнен лист като работен лист
За всеки лист в ActiveWorkbook.Worksheets
Blatt.Protect ("защита")
Следващ лист
End Sub
Вместо текста „Schutz“, използвайте избраната от вас парола. Разбира се, този програмен код има смисъл само ако го въведете извън работната книга, в която създавате защитата. В противен случай всеки потребител може да прочете паролата в изходния текст на VBA.
За да можете да промените нещо в защитените работни листове, трябва да премахнете защитата. Можете да направите това ръчно с командата EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. Тази команда е достъпна само ако текущият работен лист е действително защитен.
Ако искате отново да освободите всички защитени работни листове с помощта на макрос, използвайте следния програмен код:
Sub AllExposure ()
Затъмнен лист като работен лист
За всеки лист в ActiveWorkbook.Worksheets
Blatt.Unprotect ("защита")
Следващ лист
End Sub