Excel макрос на защиту всех листов с паролем

Как защитить лист в Excel паролем? Защита всех листов разными паролями

Защита листа от изменений пользователями в Excel устанавливается разными способами, рассмотрим два варианта установки защиты листа, классический, при помощи стандартных средств Excel и менее распространенный — с помощью макроса.

Как установить защиту листа в Excel 2003

Для того чтобы установить защиту на лист, необходимо перейти в пункт меню Сервис/Защита/Защитить лист.

При необходимости можно установить пароль для отключения защиты, введя его дважды в диалоговых окнах.

Как установить защиту листа в Excel 2007

Кнопка «Защитить лист» расположена на вкладке «Рецензирование». Нажав её, Вы без труда установите защиту на активный лист стандартным способом.

Для отключения защиты листа можно установить пароль.

Как установить защиту листа в Excel 2010

Защита листа в Excel 2010 осуществляется аналогично тому, как это делается в Excel 2007. Для этого необходимо перейти на вкладку «Рецензирование» и нажать на кнопку «Защитить лист».

После этого можно установить пароль для отключения защиты листа.

Как защитить лист паролем в Excel 2013

Для защиты листа в Excel 2013 необходимо перейти на вкладку «Рецензирование», как и в предыдущих версиях и в группе кнопок «Изменения» нажать кнопку «Защитить лист», отметить галочками разрешенные пользователям действия и при необходимости ввести пароль с последующим его подтверждением.

Как защитить лист в Excel 2016

В Excel 2016 защита на лист устанавливается аналогично тому, как это делается в предыдущей версии. После перехода на вкладку «Рецензирование» нажимается кнопка «Защитить лист», отмечаются разрешения и при необходимости устанавливается пароль, который подтверждается повторным вводом.

Быстрая защита листов

Если в рабочей книге содержится несколько листов, то можно пройтись по каждому листу и на каждый установить защиту. Групповая защита листов в Excel не предусмотрена, только по одному. Ускорить этот процесс можно при помощи VBA-надстройки, которая устанавливается в Excel и добавляет к его стандартным возможностям дополнительный функционал. После установки надстройки на ленте Excel появляется дополнительная кнопка, при помощи которой можно вызвать диалоговое окно и выбрать нужный режим установки защиты.

Защита листов без пароля

Защитить листы рабочей книги от случайных, неосторожных действий можно без использования пароля. Для этого достаточно вызвать диалоговое окно надстройки (его изображение показано ниже), выбрать опцию «Один пароль на все листы», а текстовое поле для ввода пароля оставить пустым.

Защита листов одним паролем

При ручной установке защиты с использованием паролей, на каждом листе запрашивается подтверждение, то есть пароль приходится вносить дважды на каждом листе. Вариант вполне приемлем, когда такую операцию приходится делать редко, а количество листов небольшое. Если же защита устанавливается и снимается достаточно часто, а рабочие книги содержат несколько листов, то защитить листы от изменений можно программно, при помощи макроса (надстройки). Макрос пройдет по всем листам рабочей книге и установит защиту на те листы, которые выбрал пользователь. Если в текстовое поле диалогового окна внести пароль, то на листы рабочей книги будет установлена защита практически мгновенно. Чтобы не забыть введенный пароль, можно установить флажок в поле «Сохранить пароли отдельным файлом». В этом случае программно создается еще одна рабочая книга, которая содержит введенный пароль и сохраняется в ту же папку, в которой находится книга с защищаемыми листами.

Защита листов отдельными случайными паролями

В надстройке предусмотрена возможность программно защищать листы отдельными паролями. При выборе соответствующей опции в диалоговом окне, надстройка генерирует случайные пароли заданной длины и устанавливает защиту с использованием этих паролей. Сами пароли могут быть автоматически записаны в отдельный файл и сохранены в папку с исходной рабочей книгой. После запуска программы макрос позволяет быстро защитить листы рабочей книги разными паролями.

Выборочная защита листов паролями из файла

Если в рабочей книге Excel в столбце «A» написать имена листов, а в столбце «B» — пароли для защиты листов с соответствующими именами и сохранить эту книгу на жестком диске, то такой файл можно использовать для программной установки защиты. Если файл содержит более одного листа, то лист рабочей книги, содержащий имена и пароли должен быть активным при сохранении. В диалоговом окне программы выбирается соответствующая опция и при помощи кнопки обзора указывается файл с паролями. Этот вариант защиты можно использовать в случаях, когда необходимо установить пароли не на все листы, а выборочно.

Надстройка для быстрой установки защиты

Надстройка позволяет:

1. Быстро защитить листы рабочей книги без пароля (поле для ввода пароля должно оставаться пустым);

2. быстро установить защиту с использованием одного пароля;

3. защитить листы случайными паролями заданной длины (от 1 до 255 символов);

4. сохранить пароли в отдельный файл (файл сохраняется на жестком диске в папке с защищаемой рабочей книгой);

5. использовать для установки защиты пароли из файла (столбец «А» — имена листов, столбец «В» — пароли к ним);

6. выборочно защищать листы (в файле с именами и паролями указываются только те имена листов, которые необходимо запаролить);

7. устанавливать различные сочетания разрешенных действий для защищенных листов;

8. защищать все листы рабочей книги, видимые, скрытые и непустые листы, листы с заданными именами, номерами или определенными значениями в заданном диапазоне ячеек.

*имена листов указываются без пробелов, через точку с запятой «;»

также могут использоваться специальные символы совпадения * и ?

Следует заметить, что установка пароля при защите листа может подвергаться взлому и подбору пароля путем перебора символов и не является надежным способом защиты информации, скорее это защита от механических ошибочных изменений, а также от неопытных пользователей. Кроме защиты листа, в Excel существуют и другие способы защиты данных, такие как защита файла паролем и защита книги.

Источник

Как защитить лист от пользователя, но не от макроса?

Иногда бывает полезно защитить данные на листе от изменений другими пользователями, но при этом так же надо будет работать с данными на листе из VBA(т.е. вносить изменения с помощью кода). Обычная защита листа, конечно, подходит, хоть и есть небольшой недостаток: надо перед каждым обращением к листу снимать с него защиту, выполнять необходимые действия и защищать заново:

Sub Write_in_ProtectSheet() ‘снимаем защиту с листа Worksheets(«Лист1»).Unprotect ‘если лист защищен с паролем 1234: Worksheets(«Лист1»).Unprotect «1234» ‘действия на листе.Например,изменение значения ячейки А1 Cells(«A1»).Value = «www.excel-vba.ru» ‘устанавливаем защиту на лист Worksheets(«Лист1»).Protect ‘если лист был защищен с паролем 1234: Worksheets(«Лист1»).Protect «1234» End Sub

Но есть метод проще.
Если выполнить ниже приведенную строчку кода, то пользователю невозможно будет изменить данные на листе(кроме тех, которые Вы сами разрешите), однако код VBA(макрос) сможет преспокойно вносить любые изменения, не снимая защиту.

Sub Protect_for_User_Non_for_VBA() ActiveSheet.Protect Password:=»1111″, UserInterfaceOnly:=True End Sub

Основную роль здесь играет параметр UserInterfaceOnly . Если его установить в True , то это говорит Excel-ю, что коды VBA могут выполнять действия по изменению ячеек, не снимая защиты методом Unprotect. Однако сама защита листа при этом не снимается и вручную изменить данные ячеек, не сняв защиту с листа, невозможно.
Код выше устанавливает такую защиту только на активный лист книги. Но можно указать лист явно(например установить защиту на лист с именем Лист1 в активной книге и лист, идущий вторым по порядку в книге( Sheets(2) )):

Sub Protect_for_User_Non_for_VBA() Sheets(2).Protect Password:=»1111″, UserInterfaceOnly:=True Sheets(«Лист1″).Protect Password:=»1111», UserInterfaceOnly:=True End Sub

Так же приведенный код можно еще чуть модернизировать и разрешить пользователю помимо изменения ячеек еще и использовать автофильтр:

Sub Protect_for_User_Non_for_VBA() Sheets(2).Protect Password:=»1111″, UserInterfaceOnly:=True ‘на лист «Лист1» поставим защиту и разрешим пользоваться фильтром Sheets(«Лист1″).Protect Password:=»1111», AllowFiltering:=True, UserInterfaceOnly:=True End Sub

Можно разрешить и другие действия(выделение незащищенных ячеек, выделение защищенных ячеек, форматирование ячеек, вставку строк, вставку столбцов и т.д. Чуть подробнее про доступные параметры можно узнать в статье Защита листов и ячеек в MS Excel). А как будет выглядеть строка кода с разрешенными параметрами можно узнать, записав макрорекордером установку защиты листа с нужными параметрами:

После этого получится строка вроде такой:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowFiltering:=True

здесь я разрешил использовать автофильтр( AllowFiltering:=True ), вставлять строки( AllowInsertingRows:=True ) и столбцы( AllowInsertingColumns:=True ).Чтобы добавить возможность изменять данные ячеек только через код VBA, останется добавить параметр UserInterfaceOnly:=True:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowFiltering:=True, UserInterfaceOnly:=True

и так же неплохо бы добавить и пароль для снятия защиты, т.к. запись макрорекордером не записывает пароль:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowFiltering:=True, UserInterfaceOnly:=True, Password:=»1111″

Этот метод всем хорош, все отлично, но. Параметр UserInterfaceOnly сбрасывается сразу после закрытия книги. Т.е. если установить таким образом защиту на лист и закрыть книгу, то при следующем открытии защиты этой уже не будет — останется лишь стандартная защита. Поэтому, если необходимо такую защиту видеть постоянно, то данный макрос лучше всего прописывать на событие открытия книги(модуль ЭтаКнига(ThisWorkbook)).
Сделать это можно таким кодом:

Private Sub Workbook_Open() Sheets(«Лист1″).Protect Password:=»1111», UserInterfaceOnly:=True End Sub

Этот код сработает только после того, как книга будет открыта. А это значит, чтобы увидеть результат необходимо после записи этого кода в ЭтаКнига сохранить книгу, закрыть её и открыть заново. Тогда в сам момент открытия книги код сработает и установит на «Лист1» правильную защиту.

Часто так же бывает необходимо устанавливать одинаковую защиту на все листы книги. Сделать это можно таким кодом, который так же должен быть размещен в модуле ЭтаКнига(ThisWorkbook):

Private Sub Workbook_Open() Dim wsSh As Object For Each wsSh In Me.Sheets Protect_for_User_Non_for_VBA wsSh Next wsSh End Sub Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet) wsSh.Protect Password:=»1111″, UserInterfaceOnly:=True End Sub

Плюс во избежание ошибок лучше перед установкой защиты снимать ранее установленную(если она была):

Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet) wsSh.Unrotect «1111» wsSh.Protect Password:=»1111″, UserInterfaceOnly:=True End Sub

Ну и если надо такую защиту установить только на конкретные листы, то убираем цикл и вызываем процедуру только для нужных листов. Если известны их имена, то можно прибегнуть к использованию массивов:

Private Sub Workbook_Open() Dim arr, sSh arr = Array(«Отчет», «База», «Бланк») For Each sSh in arr Protect_for_User_Non_for_VBA Me.Sheets(sSh) Next End Sub Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet) wsSh.Protect Password:=»1111″, AllowFiltering:=True, UserInterfaceOnly:=True End Sub

Для применения в своих задачах в данном коде необходимо лишь изменить(добавить, удалить, вписать другие имена) имена листов в этой строке: Array(«Отчет», «База», «Бланк»)

Примечание: Метод защиты через UsefInterface всем хорош, но есть одно ограничение: метод невозможно использовать в книге с общим доступом(Рецензирование -Доступ к книге), т.к. при общем доступе существуют ограничения, среди которых и такое, которое запрещает изменять параметры защиты для книги в общем доступе.

Статья помогла? Поделись ссылкой с друзьями!

Источник

Excel макрос на защиту всех листов с паролем

Как автоматически защитить все рабочие листы при закрытии книги Excel?

Обычно вы можете вручную защитить лист или всю книгу паролем с помощью функции «Защитить лист» или «Защитить книгу» в Excel. Но если вы хотите автоматически защитить все рабочие листы паролем при закрытии книги, что вы можете сделать? Эта статья покажет вам метод VBA для этого.

Quickly Protect multiple/all worksheets with password at the same time in current workbook:

The Protect Worksheet utility of Kutools for Excel helps you easily protect multiple or all worksheets with password at the same time. See below screenshot:

• Enable the Protect Worksheet utility
• Check the worksheets you will protect at once
• Specify password

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download the free trial Now!

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

Чтобы автоматически защитить все листы при закрытии книги, примените следующий код VBA.

1. В книге, все листы которой вы хотите защитить при закрытии файла, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, дважды щелкните значок Эта рабочая тетрадь на левой панели, а затем скопируйте ниже код VBA в окно кода. Смотрите скриншот:

Код VBA: защитить все листы при закрытии книги

Tips:

3. Затем нажмите другой + Q клавиши, чтобы закрыть окно Microsoft Visual Basic для приложений.

После вышеуказанного шага все рабочие листы или указанный рабочий лист будут автоматически защищены при закрытии книги.

Источник