Как защитить лист чтобы работали макросы

Опубликовано: 05.05.2024

В Microsoft Excel 2003 есть возможность запрета доступа ко всему файлу с помощью пароля, но иногда требуется запретить доступ к определенному листу в Excel. В этой статье я опишу свой способ, как можно поставить пароль на определенный лист.

Для начала расскажу, что я хочу реализовать. Вы открываете файл Excel и попадаете на определенный лист, доступ к которому Вы имеете, и при переходе на другой лист, на котором стоит пароль, будет выскакивать формочка для ввода пароля, при этом содержимое листа будет скрыто. Другими словами пользователь, который не должен, иметь доступ к этому листу не будет видеть, что там есть, но если пользователь просто случайно нажал на этот лист, у нас будет кнопочка возврата на исходный лист. Все это будет реализовано на VBA (Visual Basic for Applications).

Ставим пароль на доступ к листу Excel

Ну, давайте начнем, откройте Excel и сохраните его, допустим под названием «Пароль на лист». Затем на первом листе, в центре напишите «Секретные данные», а на Листе2 напишите «Общедоступный лист».

После этого нажимайте ALT+F11 для перехода в редактор Visual Basic. Затем нажмите Insert->UserForm (для добавления в проект формы). Добавьте на форму две кнопки и одно текстовой поле.

Измените свойство Caption кнопки CommandButton1 на «Ввод», а кнопки CommandButton2 на «Вернуться назад». Также измените значение Caption нашей формы (UserForm1), скажем на «Для продолжения введите пароль». Измените свойство TextAlign, нашего текстового поля TextBox1, на 2, т.е. выравнивание текста по центру. Также можете изменить шрифт и размер текста в свойстве Font. А еще в свойстве Text (объекта TextBox1) впишите «Введите пароль», чтобы по умолчанию загружался этот текст.

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

Код VBA для запрета доступа к листу Excel

Затем впишите вот такой код в окно кода формы:

Теперь осталось вызывать эту форму при активации листа, для этого в редакторе VB выберите лист, на который Вы хотите поставить пароль, щелкните два раза по нему, у Вас откроется окно кода, Вы вставляете туда вот это:

Еще, для того чтобы по умолчанию всегда открывался общедоступный лист, также в редакторе выберите «Эта книга» откройте редактор кода (двойным щелчком) и вставьте вот это:

Можно еще запретить изменять пароль пользователем, т.е. допустим, с этим файлом работает человек, который немного разбирается в Excel, и он легко может зайти в редактор Visual Basic и изменить пароль. Для того чтобы этого избежать поставим пароль на редактирования VBA проекта. В редакторе Visual Basic нажмите правой кнопкой на VBAProject, откроется меню, в нем выберите Properties. Далее в следующем окне перейдите на вкладку Protection, поставьте галочку как на картинке и введите пароль.

После этого редактировать код всех макросов, т.е. код Visual Basic сможете только Вы, или тот человек, который знает пароль на проект VBA.

Если Вы все сделали правильно, то у Вас при открытие файла будет открываться «Лист2», а при попытке перейти на «Лист1» будет запускаться форма для ввода пароля, а при нажатие кнопки «Вернуться назад», Вы будете возвращаться на «Лист2».

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

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

Если вы когда-либо пытались выполнить макрос Excel на защищенном рабочем листе, то знаете, что, как только этот рабочий лист упоминается в макросе, макрос, вероятнее всего, перестает работать и появляется ошибка выполнения. Перед началом работы рекомендуем хорошенько отдохнуть, к вашим услугам гостиницы краснодара недорого и с полным пансионом. А теперь к делу. Один из способов обойти это — использовать код, например, следующий, чтобы снять защиту, а потом снова защитить рабочий лист, как это показано в листинге 7.21.

//Листинг 7.21 Sub MyMacro() Sheet1.Unprotect Password:="Secret" //ВАШ КОД Sheet1.Protect Password:="Secret" End Sub

Как можно видеть, этот код снимает защиту листа Sheet1 с паролем Secret, выполняет код, а затем снова включает защиту паролем. Этот код работает, но у него есть несколько недостатков. Например, он может вызвать ошибку и остановиться до того, как дойдет до строки кода Sheet1.Protect Password:=«Secret» . Это, конечно же, приведет к тому, что рабочий лист останется незащищенным. Еще один недостаток заключается в том, что потребуется похожий код для всех макросов и всех рабочих листов.

Еще один способ обойти проблему — использовать UserlnterFaceOnly, необязательный аргумент метода Protect, которому можно присвоить значение True (значение по умолчанию равно False). Если значение этого аргумента равно True, Excel позволяет всем макросам Excel VBA выполняться на рабочих листах, защищенных с паролем или без пароля.

Однако если вы используете на рабочем листе метод Protect, аргумент UserlnterfaceOnly которого равен True, а затем сохраните рабочую книгу, весь рабочий лист (а не только интерфейс) будет полностью защищен при очередном открытии рабочей книги. Чтобы снова присвоить аргументу UserlnterfaceOnly значение True после открытия рабочей книги, необходимо еще раз применить метод Protect, присваивающий истинное значение UserlnterfaceOnly.

Чтобы избежать неразберихи, используйте событие Workbook_Open, которое выполняется при открытии рабочей книги. Так как это событие принадлежит объекту Workbook ЭтаКнига (ThisWorkbook), необходимо поместить следующий код в частный модуль объекта ЭтаКнига (ThisWorkbook). Для этого в версиях Excel для Windows правой кнопкой мыши щелкните значок Excel и в контекстном меню выберите команду Исходный текст (View Code). На Macintosh откройте объект Workbook в окне Projects в VBE. Затем введите код, показанный в листинге 7.22.

//Листинг 7.22 Private Sub WorkbookOpen() //Если у вас разные пароли для всех рабочих листов. Sheets(l).Protect Password:="Secret". UserInterFaceOnly:=True Sheets(2).Protect Password:="Carrot". UserInterFaceOnly:=True //Повторить необходимое количество раз. End Sub

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

//Листинг 7.23 Private Sub WorkbookOpen() Dim wSheet As Worksheet For Each wSheet In Worksheets wSheet.Protect Password:="Secret", UserInterFaceOnly:=True Next wSheet End Sub

Теперь каждый раз при открытии рабочей книги будет выполняться этот код, присваивая свойству UserlnterfaceOnly значение True и позволяя макросу работать, одновременно запрещая любые другие изменения.

Защита листа от изменений пользователями в 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 существуют и другие способы защиты данных, такие как защита файла паролем и защита книги.

В Excel вы можете изменять параметры безопасности макросов, определяя, какие макросы и при каких обстоятельствах должны выполняться при открытии книги. Например, можно разрешить выполнение макроса в зависимости от наличия цифровой подписи надежного разработчика.

Дополнительные сведения о параметрах безопасности макросов в документах Microsoft Office см. в статье Включение и отключение макросов в файлах Office.

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

Отключить все макросы без уведомления. Выберите этот параметр, если не доверяете макросам. Все макросы в документе и предупреждения о безопасности макросов отключаются. Если у вас есть документы, содержащие неподписанные макросы, которым вы доверяете, эти документы можно поместить в надежное расположение. Документы из надежных расположений разрешается выполнять без проверки системой центра управления безопасностью.

Отключить все макросы с уведомлением. Этот параметр задан по умолчанию. Выберите этот вариант, если хотите отключить макросы, но при этом получать предупреждения о безопасности, если макросы есть. Так вы можете в каждом конкретном случае решать, стоит ли включать эти макросы.

Отключить все макросы кроме макросов с цифровой подписью. Этот параметр подобен параметру Отключить все макросы с уведомлением, не считая того, что макрос с цифровой подписью надежного издателя может выполняться, если вы уже доверяете этому издателю. Если издатель не считается надежным, вы получаете уведомление. Так вы можете выбрать, следует ли включить эти подписанные макросы и выразить доверие издателю. Все макросы без подписи отключаются без уведомления.

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

Доверять доступ к объектной модели проектов VBA Этот параметр используется для разработчиков и используется для преднамеренной блокировки или блокировки программного доступа к объектной модели VBA из любого клиента автоматизации. Другими словами, он обеспечивает параметр безопасности для кода, который создается для автоматизации программы Office и программного управления средой и объектной моделью Microsoft Visual Basic для приложений (VBA). Этот параметр настраивается для каждого пользователя и каждого приложения и по умолчанию не имеет доступа. Этот параметр безопасности затрудняет несанкционированный доступ к созданию кода "саморекопирования", который может навредить системам конечных пользователей. Чтобы любой клиент автоматизации мог получить доступ к объектной модели VBA программным путем, пользователь, работающий с кодом, должен явно предоставить доступ. Чтобы включить доступ, выберите этот квадрат.

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

Установив свой цифровой сертификат, вы можете подписывать файлы и макросы.

Получение цифрового сертификата для подписания

Цифровой сертификат можно получить в коммерческом центре сертификации (ЦС) или у администратора безопасности локальной сети либо ИТ-специалиста.

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

Создание своего самозаверяющего цифрового сертификата

С помощью программы Selfcert.exe вы можете создать свой самозаверяющий сертификат.

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

Дополнительные сведения о добавлении цифровой подписи к макросам см. в статье Подписание макроса.

Изменение параметров безопасности макросов

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

На вкладке Разработчик в группе Код нажмите кнопку Безопасность макросов.

Чтобы включить вкладку "Разработчик", см. раздел Отображение вкладки "Разработчик".

В категории Параметры макросов в разделе Параметры макросов выберите нужный вариант.

Примечание: Все изменения, внесенные в категории Параметры макросов в Excel, применяются только к Excel и не влияют на другие приложения Microsoft Office.

Доступ к центру управления безопасностью также можно получить из окна "Параметры Excel". Для этого щелкните Параметры (версии Excel с 2010 по 2016) или нажмите кнопку Microsoft Office (Excel 2007), а затем щелкните Центр управления безопасностью > Параметры центра управления безопасностью > Параметры макросов.

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

Устранение неполадок

Не удается изменить параметры безопасности макросов

Некоторые пользователи не могут изменять параметры центра управления безопасностью из-за групповых политик безопасности в их организациях. В таких случаях необходимо обратиться к ИТ-администратору организации.

Что случилось с параметрами безопасности "Очень высокий", "Высокий", "Средний" и "Низкий"?

Параметр Excel 2003

Эквивалент в Excel 2007/2010/2013/2016

Дополнительные сведения

Отключить все макросы без уведомления

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

Если эти условия не соблюдены, то при использовании параметра "Очень высокий" макросы VBA не выполняются в Excel 2003.

Отключить все макросы кроме макросов с цифровой подписью

В Excel 2003 могут выполняться только исполняемые файлы (EXE или COM), подписанные утвержденным надежным источником (то есть имеющие сертификат). В противном случае все исполняемые модули, связанные с документами или внедренные в них, автоматически отключаются без предупреждения, когда пользователь открывает документы.

При установке всех приложений Office 2003 по умолчанию задается параметр "Высокий".

Отключить все макросы с уведомлением

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

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

Включить все макросы (не рекомендуется, возможен запуск опасной программы)

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

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

На лист можно поставить защиту, при которой все могут просматривать содержание листа, но нельзя ничего в нем изменять. Так же можно заблокировать все, кроме диапазона ячеек для ввода данных. А иногда можем просто скрыть формулы или источники данных.

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

В таблице данных защитим ячейки листа от изменений, данных в шапке и строке итоговых значений.

Выделите диапазон ячеек B2:B6 и вызовите окно «Формат ячеек» (CTRL+1). Перейдите на вкладку «Защита» и снимите галочку на против опции «Защищаемая ячейка». Нажмите ОК.
Выберите инструмент «Рицензирование»-«Защитить лист».
В появившемся диалоговом окне «Защита листа» установите галочки так как указано на рисунке. То есть 2 опции оставляем по умолчанию, которые разрешают всем пользователям выделять любые ячейки. А так же разрешаем их форматировать, поставив галочку напротив «форматирование ячеек». При необходимости укажите пароль на снятие защиты с листа.

Теперь проверим. Попробуйте вводить данные в любую ячейку вне диапазона B2:B6. В результате получаем сообщение: «Ячейка защищена от изменений». Но если мы захотим отформатировать любую ячейку на листе (например, изменить цвет фона) – нам это удастся без ограничений. Так же без ограничений мы можем делать любые изменения в диапазоне B2:B6. Как вводить данные, так и форматировать их.

Как видно на рисунке, в окне «Защита листа» содержится большое количество опций, которыми можно гибко настраивать ограничение доступа к данным листа.

Как скрыть формулу в ячейке Excel

Часто бывает так, что самое ценное на листе это формулы, которые могут быть достаточно сложными. Данный пример сохраняет формулы от случайного удаления, изменения или копирования. Но их можно просматривать. Если перейти в ячейку B7, то в строке формул мы увидим: «СУММ(B2:B6)» .

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

Запретить выделять ячейки на листе.
Включить скрытие содержимого ячейки.

Рассмотрим, как реализовать второй способ:

Если лист защищенный снимите защиту выбрав инструмент: «Рецензирование»-«Снять защиту листа».
Перейдите на ячейку B7 и снова вызываем окно «Формат ячеек» (CTRL+1). На закладке «Защита» отмечаем опцию «Скрыть формулы».
Включите защиту с такими самыми параметрами окна «Защита листа» как в предыдущем примере.

Теперь переходим на ячейку B7 и убеждаемся в том, что в строке формул ничего не отображается. Даже результат вычисления формулы.

Примечание. Закладка «Защита» доступна только при незащищенном листе.

Как скрыть лист в Excel

Допустим нам нужно скрыть закупочные цены и наценку в прайс-листе:

Заполните «Лист1» так как показано на рисунке. Здесь у нас будут храниться закупочные цены.
Скопируйте закупочный прайс на «Лист2», а в место цен в диапазоне B2:B4 проставьте формулы наценки 25%: =Лист1!B2*1,25.
Щелкните правой кнопкой мышки по ярлычке листа «Лист1» и выберите опцию «Скрыть». Рядом же находится опция «Показать». Она будет активна, если книга содержит хотя бы 1 скрытый лист. Используйте ее, чтобы показать все скрытие листы в одном списке. Но существует способ, который позволяет даже скрыть лист в списке с помощью VBA-редактора (Alt+F11).
Для блокировки опции «Показать» выберите инструмент «Рецензирование»-«Защитить книгу». В появившемся окне «Защита структуры и окон» поставьте галочку напротив опции «структуру».
Выделите диапазон ячеек B2:B4, чтобы в формате ячеек установить параметр «Скрыть формулы» как описано выше. И включите защиту листа.

Внимание! Защита листа является наименее безопасной защитой в Excel. Получить пароль можно практически мгновенно с помощью программ для взлома. Например, таких как: Advanced Office Password Recovery – эта программа позволяет снять защиту листа Excel, макросов и т.п.

Полезный совет! Чтобы посмотреть скрытые листы Excel и узнать их истинное количество в защищенной книге, нужно открыть режим редактирования макросов (Alt+F11). В левом окне «VBAProject» будут отображаться все листы с их именами.

Но и здесь может быть закрыт доступ паролем. Для этого выбираем инструмент: «Tools»-«VBAProjectProperties»-«Protection» и в соответствующих полях вводим пароль. С другой стороны, если установленные пароли значит, книга скрывает часть данных от пользователя. А при большом желании пользователь рано или поздно найдет способ получить доступ этим к данным. Об этом следует помнить, когда Вы хотите показать только часть данных, а часть желаете скрыть! В данном случае следует правильно оценивать уровень секретности информации, которая предоставляется другим лицам. Ответственность за безопасность в первую очередь лежит на Вас.

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

Читайте также: