Darbe.ru

Быт техника Дарби
0 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Вставка гиперссылок на листы в Excel макрос

Вставка гиперссылок на листы в Excel макрос

Добрый день уважаемые читатели блога! После небольшого перерыва возобновляю работу по Excel. Вопросов накопилось довольно много — буду отвечать на них по очереди.

Сегодня речь пойдёт о гиперссылках в Excel, точнее об их автоматической вставке на лист. Представим ситуацию, когда в нашей книге листов огромное количество, бухгалтерские расчёты, к примеру.

Вставка гиперссылок на листы в Excel макрос

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

Вставка гиперссылок на листы в Excel макрос

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

Вставим в наш документ новый модуль:

  1. Вкладка «Разработчик», блок кнопок «Код», кнопка «Visual Basic»;
  2. Далее «Insert» — > «Module».

Вставка гиперссылок на листы в Excel макрос

Поместим в поле кода следующий текст:

Sub SheetNamesAsHyperLinks()
Dim sheet As Worksheet
Dim cell As Range
With ActiveWorkbook
‘ Для каждого листа (имени) создадим свою ссылку
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets(1).Cells(sheet.Index, 1)
.Worksheets(1).Hyperlinks.Add Anchor:=cell, Address:=»», _
SubAddress:=» » & sheet.Name & «!A1»
cell.Formula = sheet.Name
Next
End With
End Sub

  • у нас есть две переменные «sheet» и «cell», лист и ячейка;
  • «With activeWorkbook» — показывает, что макрос будет оперировать пространством всей книги;
  • » For Each sheet In ActiveWorkbook.Worksheets
    Set cell = Worksheets(1).Cells(sheet.Index, 1)
    .Worksheets(1).Hyperlinks.Add Anchor:=cell, Address:=»», _
    SubAddress:=» » & sheet.Name & «!A1″ » » — для каждого листа в рабочей книге мы будем использовать первую ячейку (А1);
  • » cell.Formula = sheet.Name» — формула для макроса будет помещение в ячейку A1 названия первого листа книги, далее в A2 второго и т.д.

Таким образом, мы экономим себе время на переходах, так как не отвлекаемся на нижнюю часть экрана с именами листов, а имеем список листов в виде гиперссылок. Понаблюдаем за результатами работы. Нажимаем сочетание клавиш ALT+F8 или переходим на вкладку «Разработчик», нажимаем кнопку «Макросы», у нас единственная строка «SheetNamesAsHyperLinks», нажимаем «Выполнить».

Вставка гиперссылок на листы в Excel макрос

На листе «Оглавление» появится список всех существующих листов в нашей рабочей книге.

Вставка гиперссылок на листы в Excel макрос

Теперь мы можем просто щёлкать ячейку с именем листа для перехода.

Если что-то было непонятно, посмотрите наше видео!

Инструкция, как включить макросы в Эксель и его определение

Microsoft Excel – это популярное для работы с таблицами приложение, используемое в офисах и домах 90% людей. Несмотря на то что программе уже 34 года, новые возможности продолжают добавляться в обновлениях. Поэтому программа до сих пор популярна. Чтобы облегчить себе работу, нужно знать, как работают эти опции. Для начала расскажем о том, что такое макросы, а потом – как включить макросы в Excel 2010, 2007, 2003.

Как включить макросы в Excel 2010, 2007, 2003

Что такое макрос?

До того как включить макросы в Excel, необходимо узнать, для чего они нужны. Макросы – это сохраненные в строках таблицы заранее созданные последовательности действий с данными. Реализованы на языке VBA, что позволяет работать не только с командами Экселя, но и других приложений Office, поддерживающих этот язык. Используя макросы, можно настроить автоматическое форматирование строк таблицы, отправку по почте, или создание презентации.

как включить макросы в excel 2010

Описание параметров макросов

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

  1. Отключить макросы без уведомления. Применяется для таблиц, автор которых неизвестен. Деактивирует сохраненные в ячейках макросы, не предупреждая об этом. Пользуйтесь им при опасности вирусов в таблице.
  2. Отключить макросы с уведомлением. Этот режим выбран стандартно. Предлагает выключать макросы, но перед этим запрашивает разрешения пользователя. С ним вы сможете решать, оставлять ли, или нет отдельно каждый макрос.
  3. Отключить макросы, кроме макросов с цифровой подписью. Похож на предыдущий, но автоматически разрешает использование макросов, подписанных цифровой подписью предприятия, доверие которому вы уже подтвердили.
  4. Включить макросы. Из названия понятно, что параметр разрешает использование макрокоманд, записанных в таблицу.
  5. Доверять доступ к объектной модели проектов VBA.

как в excel вставить макрос

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

макросы excel как включить

Переход в параметры Microsoft Excel Переход в раздел безопасности макросов в Microsoft Excel Включение режима разработчика в Microsoft Excel Включение макросов в Microsoft Excel Отключение макросов в Microsoft Excel

Excel 2003

Для одной из первых версий 2003 года процесс запуска макрокоманды следующий:

  1. На Панели управления ищете вкладку Сервис, затем из выпадающего списка выбираете строку Макрос и переходите в раздел Безопасность.
Читайте так же:
Как в таблице ворд написать текст вертикально

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

На заметку! Чтобы изменения окончательно вступили в силу, необходимо закрыть и открыть редактор. Это общее правило для всех поколений Microsoft Office.

Способы

Включить макрокоманды можно одним из трех путей:

  • во время показа окна сообщения;
  • с помощью Backstage;
  • когда появляется предупреждение системы безопасности.

Как включить макросы в Excel 2010, 2007, 2003

Во время показа окна сообщения

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

Как включить макросы в Excel 2010, 2007, 2003

С помощью Backstage

Если открыть книгу с макросами, в меню «Файл» появляется сообщение, позволяющее активировать их. Для этого сделайте следующее:

  1. Раскройте меню «Файл» — левая в ленте вверху страницы.
  2. В окне «Предупреждение системы безопасности» кликните по «Включить содержимое».
  3. Появится диалоговое меню, где необходимо будет о.

Как включить макросы в Excel 2010, 2007, 2003

После того как все получилось, перезагрузите приложение.

Настройка макросов в Параметрах программы как включить макросы в excel 2010 как включить макросы в excel 2013

Как включить макросы в Эксель

  • Для активации необходимо запустить программу, в верхней левой части нажать на «Файл».
  • Откроется окно, остановитесь на «Параметры».
  • В левой части запустившегося меню, отыщите «Безопасность».
  • Справа кликните по «Параметры центра управления».
  • Страница перегрузится, и справа, в верхнем столбце, нужно установить галочку рядом с «Включить все».

Как включить макросы в Эксель

  • Обязательно подтвердите действия, выбрав в нижней части окна «Ок».

Прежде чем приступить к активации, следует запомнить, что:

  • Макрорекордер запишет все действия пользователя, в том числе и ошибки.
  • Записываться будут только те действия, которые выполняются в Microsoft Excel. При переключении на другую программу запись остановится.
  • Макрорекордер способен записать действия, выполняемые серфером вручную.

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

В появившемся окне Открывается новое окошко

Excel 2010

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

  1. Нажимаете Файл – Параметры.

  1. Переходите к настройкам ленты и в блоке основные вкладки ставите галочку напротив строки Разработчик. Подтверждаете действие нажатием кнопки ОК.

Переходите к настройкам ленты

  1. Как видите, в основной ленте появилась новая вкладка. Щелкаете по ней и ищете кнопку Безопасность макросов. Программа автоматически открывает окно с настройкой защиты. Как и в предыдущем случае выбираете строку Включить все макросы.

В основной ленте появилась новая вкладка

Реализовать макрокоманды можно при помощи языка программирования Visual Basic (VBA), что требует определенных знаний от простого пользователя. Для упрощения процесса рекомендуем использовать запись последовательности действий в макрос. Для этого достаточно нажать кнопку Запись во вкладке Разработчик и производить действия на рабочем листе. Затем останавливаете запись и сохраняете макрокоманду. При этом редактор сам интерпретирует каждый шаг в отдельную программу.

Реализовать макрокоманды

Для версий 2013 и 2020 годов процесс активации макроса идентичен серии 2010 года. На windows 7 советуем использовать excel 2003 и 2007 года, а на windows 10 целесообразно пользоваться более свежими версиями.

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

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

Абсолютная и относительная запись макроса

Вы уже знаете про абсолютные и относительные ссылки в Excel? Если вы используете абсолютную ссылку для записи макроса, код VBA всегда будет ссылаться на те же ячейки, которые вы использовали. Например, если вы выберете ячейку A2 и введете текст «Excel», то каждый раз — независимо от того, где вы находитесь на листе и независимо от того, какая ячейка выбрана, ваш код будет вводить текст «Excel» в ячейку A2.

Если вы используете параметр относительной ссылки для записи макроса, VBA не будет привязываться к конкретному адресу ячейки. В этом случае программа будет «двигаться» относительно активной ячейки. Например, предположим, что вы уже выбрали ячейку A1, и вы начинаете запись макроса в режиме относительной ссылки. Теперь вы выбираете ячейку A2, вводите текст Excel и нажмите клавишу Enter. Теперь, если вы запустите этот макрос, он не вернется в ячейку A2, вместо этого он будет перемещаться относительно активной ячейки. Например, если выбрана ячейка B3, она переместится на B4, запишет текст «Excel» и затем перейдет к ячейке K5.

Читайте так же:
Где находятся стили в фотошопе cs6

Теперь давайте запишем макрос в режиме относительных ссылок:

  1. Выберите ячейку A1.
  2. Перейдите на вкладку «Разработчик».
  3. В группе «Код» нажмите кнопку «Относительные ссылки». Он будет подсвечиваться, указывая, что он включен.
  4. Нажмите кнопку «Запись макроса».
  5. В диалоговом окне «Запись макроса» введите имя для своего макроса. Например, имя «ОтносительныеСсылки».

Записать макрос в Excel - имя макроса

Макрос в режиме относительных ссылок будет сохранен.

Теперь сделайте следующее.

  1. Выберите любую ячейку (кроме A1).
  2. Перейдите на вкладку «Разработчик».
  3. В группе «Код» нажмите кнопку «Макросы».
  4. В диалоговом окне «Макрос» кликните на сохраненный макрос «ОтносительныеСсылки».
  5. Нажмите кнопку «Выполнить».

Как вы заметите, макрос записал текст «Excel» не в ячейки A2. Это произошло, потому что вы записали макрос в режиме относительной ссылки. Таким образом, курсор перемещается относительно активной ячейки. Например, если вы сделаете это, когда выбрана ячейка B3, она войдет в текст Excel — ячейка B4 и в конечном итоге выберет ячейку B5.

Вот код, который записал макрорекодер:

Код макроса VBA для относительной ссылки

Sub ОтносительныеСсылки() ‘ ‘ ОтносительныеСсылки Макрос ‘ ‘ ActiveCell.Offset(1, 0).Range(«A1»).Select ActiveCell.FormulaR1C1 = «Excel» ActiveCell.Offset(1, 0).Range(«A1»).Select End Sub

Обратите внимание, что в коде нет ссылок на ячейки B3 или B4. Макрос использует Activecell для ссылки на текущую ячейку и смещение относительно этой ячейки.

Не обращайте внимание на часть кода Range(«A1»). Это один из тех случаев, когда макрорекодер добавляет ненужный код, который не имеет никакой цели и может быть удален. Без него код будет работать отлично.

Как создавать, изменять и выполнять макросы в Excel

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

Создание макросов

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

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

Метод 1: Записываем макрос в автоматическом режиме

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

Узнать, как это можно сделать, можно в нашей статье – “Как включать и отключать макросы в Excel”.

После того, как макросы включены, можно перейти к нашей основной задаче.

Запись макроса в Эксель

  1. Переключаемся во вкладку “Разработчик”. В группе инструментов “Код” щелкаем по значку “Записать макрос”.
  2. На экране появится окошко, в котором мы можем выполнить настройки записи. Здесь указывается:
    • имя макроса – любое, но должно начинаться с буквы (не с цифры), не допускаются пробелы.
    • комбинация клавиш, которая будет использоваться для запуска макроса. Обязательной является Ctrl, а вторую мы можем назначить в специальном поле. Допустим, пусть это будет клавиша “r”. Если нужно использовать заглавную букву, нужно зажать клавишу Shift, которая будет добавлена в сочетание клавиш.

Запускаем выполнение макроса

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

  1. В той же вкладке (“Разработчик”) и группе “Код” нажимаем кнопку “Макросы” (также можно воспользоваться горячими клавишами Alt+F8).Переход к макросам в Excel
  2. В отобразившемся окошке выбираем наш макрос и жмем по команде “Выполнить”.Запуск выполнения макроса в ЭксельПримечание: Есть более простой вариант запустить выполнение макроса – воспользоваться сочетанием клавиш, которое мы задали при создании макроса.

Корректируем макрос

Созданный макрос можно изменить. Самая распространенная причина, которая приводит к такой необходимости – сделанные при записи ошибки. Вот как можно отредактировать макрос:

  1. Нажимаем кнопку “Макросы” (или комбинацию Ctrl+F8).
  2. В появившемся окошке выбираем наш макрос и щелкаем “Изменить”.Переход к редактированию макроса в Excel
  3. На экране отобразится окно редактора “Microsoft Visual Basic”, в котором мы можем внести правки. Структура каждого макроса следующая:
    • открывается с команды “Sub”, закрывается – “End Sub”;
    • после “Sub” отображается имя макроса;
    • далее указано описание (если оно есть) и назначенная комбинация клавиш;
    • команда “Range(“…”).Select” возвращает номер ячейки. К примеру, “Range(“B2″).Select” отбирает ячейку B2.
    • В строке “ActiveCell.FormulaR1C1” указывается значение ячейки или действие в формуле.Код макроса в Эксель
  4. Давайте попробуем скорректировать макрос, а именно, добавить в него ячейку B4 со значением 3. В код макроса нужно добавить следующие строки:
    Range(«B4»).Select
    ActiveCell.FormulaR1C1 = «3» Редактирование макроса в Эксель
  5. Для результирующей ячейки D2, соответственно, тоже нужно изменить начальное выражение на следующее:
    ActiveCell.FormulaR1C1 = «=RC[-2]*R[1]C[-2]*R[2]C[-2]» .Редактирование макроса в ExcelПримечание: Обратите внимание, что адреса ячеек в данной строке (ActiveCell.FormulaR1C1) пишутся в стиле R1C1.
  6. Когда все готово, редактор можно закрывать (просто щелкаем на крестик в правом верхнем углу окна).
  7. Запускаем выполнение измененного макроса, после чего можем заметить, что в таблице появилась новая заполненная ячейка (B4 со значением “3”), а также, пересчитан результат с учетом измененной формулы.Результат выполнения измененного макроса в Эксель
  8. Если мы имеем дело с большим макросом, на выполнение которого может потребоваться немало времени, ручное редактирование изменений поможет быстрее справиться с задачей.
    • Добавив в конце команду Application.ScreenUpdating = False мы можем ускорить работу, так как во время выполнения макроса, изменения на экране отображаться не будут.Отключение и включение отображения действий макроса на экране в Эксель
    • Если потребуется снова вернуть отображение на экране, пишем команду: Application.ScreenUpdating = True .
  9. Чтобы не нагружать программу пересчетом после каждого внесенного изменения, в самом начале пишем команду Application.Calculation = xlCalculationManual , а в конце – Application.Calculation = xlCalculationAutomatic . Теперь вычисление будет выполняться только один раз.Отключение и включение автоматических расчетов по макросу в Эксель

Метод 2: создание макроса вручную

Опытные пользователи Эксель в некоторых случаях предпочитают создавать макросы от начала до конца полностью вручную . План действий следующий:

  1. Во вкладке “Разработчик” нажимаем на значком “Visual Basic” (группа инструментов “Код”).Переход к редактору Visual Basic в Эксель
  2. В результате, на экране появится уже знакомое окно, которое мы рассмотрели выше.Редактор Visual Basic в Excel
  3. Здесь создается макрос и пишется ее код – полностью вручную.

Заключение

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

Обход безопасности Outlook при отправке email через макрос Excel

Я сделал автоматическое напоминание об отправке писем из Excel, вызванное файлом VBS (помещенным в папку StartUp). Когда я открываю свой PC, срабатывает напоминание, и он должен отправить email, но у меня есть ошибка безопасности.

Это макрос Excel:

Как я могу обойти эту ошибку, добавив что-то еще в свой макрос? error
(Я перепробовал все коды из google, но ни один из них не работает. Я также не хочу ничего менять в настройках Outlook или Windows Reg.)

2 ответа

  • Запустить макрос Excel из макроса Outlook?

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

У меня есть рабочая книга с поддержкой макросов Excel, сохраненная в надежном месте. Я пытаюсь открыть эту книгу и запустить макрос из Outlook. Sub run_Excel_Macro() Dim App As Excel.Application Dim wkbk As Excel.Workbook Set App = New Excel.Application App.Visible = True Set wkbk =.

У вас есть несколько вариантов:

  1. Установите up-to-date антивирусное программное обеспечение (Outlook не будет отображать запрос), если вы можете контролировать среду, в которой выполняется ваш код
  2. Расширенный MAPI (C++ или Delphi, не применяется в случае скрипта VB). Однако вы можете использовать оболочку, подобную Redemption , которая использует расширенный MAPI, но доступна с любого языка, включая VBS.
  3. Такой продукт, как ClickYes .

См . http://www.outlookcode.com/article.aspx?id=52 для обсуждения и списка доступных вариантов.

Повторите попытку после обновления антивирусной защиты.

enter image description here

Похожие вопросы:

У меня есть этот довольно тяжелый макрос Excel. Когда он запускается, Outlook замерзает. Я знаю, что он не использует всю силу CPU, потому что а) у меня есть мощная многоядерная машина б) все мои.

Я хочу минус 2 дня с текущего дня при отправке почты ( нужно поставить дату в теме)через outlook с помощью excel vba

У меня есть макрос Excel, который открывает Internet Explorer, ищет & и запрашивает экспорт для каждого элемента в столбце A. Экспорт отправляется в my Outlook email и автоматически фильтруется.

Приветствую всех, Я работаю над функцией, где можно запустить макрос excel из outlook. мое условие состоит в том, чтобы запустить макрос excel с открытым файлом excel и также открытым файлом outlook.

У меня есть рабочая книга с поддержкой макросов Excel, сохраненная в надежном месте. Я пытаюсь открыть эту книгу и запустить макрос из Outlook. Sub run_Excel_Macro() Dim App As Excel.Application Dim.

Я очень новичок в VB. Я получаю ошибку № 287 (ошибка определения приложения или объекта)при отправке email из excel (outlook 2010). Я установил инструмент->опция Заранее спасибо за вашу любезную.

Я использую следующий код VBA в ThisOulookSession , чтобы добавить адрес BCC при отправке писем : Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMe As Recipient Set.

Я пытаюсь настроить автоматизированный процесс для того, чтобы, когда я получаю email в Outlook, содержащий subject, он автоматически запускал макрос в Excel и запускал макрос, который я настроил в.

У нас есть небольшой макрос (добавленный на ленту), который по щелчку должен прикрепить некоторые файлы из определенной папки. Это работает при создании Почты new из Outlook. При использовании.

Авторизация в Excel на VBA

Что же представляет из себя авторизация в Excel? Это форма, то есть окно, с запросом ввода логина и пароля, при успешном вводе которых, пользователю будут открываться различные листы документа, в зависимости от группы доступа пользователя. Точно также, помимо открытия листов, можно будет выставить ограничения на действия в Excel: запрет форматирования ячеек, удаление строк, столбцов, использование фильтров, объектов, сценариев и так далее. Но обо всем по порядку.

Авторизация в Excel: основной алгоритм работы

Для начала, необходимо разработать алгоритм, по которому мы будем работать, и выглядеть он будет примерно так:

Авторизация на VBA: алгоритм

Итак, поехали!

Авторизация в Excel: макет документа

Наш рабочий документ будет состоять из четырех листов:

  1. Лист с приветствием — единственный лист, который будет отображаться всем пользователям до авторизации
  2. Лист с дашбордом (визуализированным отчетом) — графики, диаграммы/гистограммы — изначально со свойством VeryHidden*
  3. Лист с данными — источник расчетов для дашборда — изначально со свойством VeryHidden
  4. Служебный/технический лист — для хранения логинов, паролей и служебной и вспомогательной информации — также, со свойством VeryHidden

*VeryHidden— свойство листа, при котором сам лист скрыт и включить его отображение можно только через использование режима разработчика. Для выбора данного свойства, необходимо в Excel зайти в меню «Разработчик» — «Visual Basic». Далее, необходимо выбрать нужный нам лист и в его свойствах («Properties») найти свойство Visible и установить в «2 — xlSheetVeryHidden».

Авторизация на VBA: свойство VeryHidden

После этого лист станет «очень скрытым». Отменить свойство VeryHidden можно точно так же через режим разработчика, либо используя необходимый нам макрос, о котором я напишу чуть дальше.

Авторизация в Excel: группы доступа

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

  1. Администраторы (Admin): доступны все листы , в том числе служебный, а также отсутствуют какие-либо ограничения.
  2. Руководители и ответственные за данные (Head): доступны 2 рабочих листа + стоит пароль на изменение структуры книги.
  3. Рядовые сотрудники компании (Worker): доступен только 1 рабочий лист с дашбордом + стоит пароль на изменение структуры книги.
Авторизация в Excel: разработка макета формы

С этим пунктом не должно возникнуть никаких проблем. Элементов на форме авторизации должно быть не так уж и много:

  • Поле ввода для логина
  • Поле ввода для пароля
  • Кнопка «Авторизация» (проверка логина и пароля)
  • Различные подписи на форме
  • По желанию: кнопка закрытия формы, кнопка восстановления пароля, логотипы, справка и все, что душе угодно

Для тех, кто не знает, как создавать формы в VBA: нужно зайти в меню «Разработчик» — «Visual Basic», нажать правой кнопкой по нашему проекту (VBAProject Название_Файла.xlsx), затем Insert — UserForm. Создается форма с названием UserForm1, на которой мы и будем размещать все наши объекты с помощью меню «ToolBox».

Если быстро набросать элементы, которые мы перечислили, должно получиться что-то вроде этого:

Авторизация на VBA: форма авторизации

После добавления элементов, поменял их стандартные названия:

«UserForm1» переименовал в «Authorization».
«TextBox1» переименовал в «TextBox_Login».
«TextBox2» переименовал в «TextBox_Pass».

Также, в свойствах «TextBox_Pass», мы находим свойство «PasswordChar» и вводим любой символ, который мы хотим видеть вместо вводимых символов пароля — чаще всего используется символ «*».

Ничего лишнего, пока что все просто. Переходим далее.

Подготовка служебного листа

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

Итак, для начала, содержимое служебного листа будет выглядеть вот так:

Авторизация на VBA: служебный лист

Авторизация в Excel: особенности и написание программного кода на VBA

Данные пункты тесно взаимосвязаны между собой, поэтому я их объединил в один большой. Здесь мы будем писать программный код для всего нашего файла: как для формы, так и для некоторых событий.

Для начала, мы напишем код, который будет отображать различные листы в зависимости от роли пользователя после авторизации. Макрос user_group мы делаем приватным и вписывать его будем не в отдельный модуль, а в нашу готовую форму Authorization. Аргументом для макроса является переменная X, которая будет содержать название группы доступа в виде текстовой строки String:

Хочу обратить внимание на то, что у нашего файла будет стоять «защита структуры книги» с паролем «112», т.е. пользователь не сможет создавать, удалять и переименовывать листы нашего документа. И, чтобы изменить видимость листов, необходимо сначала снять эту защиту программно, а затем, в зависимости от роли пользователя, поставить обратно, что мы и делаем в нашем коде.

Далее, код для кнопки «Авторизация». При нажатии на данную кнопку, запускается несколько проверок:

  • Проверка полей логина и пароля заполнение: если одно из них не заполнено — выводится уведомление, выполнение макроса прекращается.
  • Проверка переменной Check: данная переменная хранит значение «некорректных» попыток входа. Ее необходимо объявить в основном модуле книги: Public check As Integer. Если данная переменная больше 3х — доступ к авторизации в текущей сессии блокируется.
  • Поиск и проверка логина на наличие на листе «Settings». Если логин найден — введенный пароль хешируется и сравнивается с хранимым хешем на соответствующей строке логина:
    • Если все корректно — запускается макрос User_Group, который открывает доступ к листам в зависимости от группы доступа, соответствующей логину.
    • Если данные некорректные — пользователь предупреждается об этом, а также наращивается счетчик некорректных попыток авторизации.

    В макросе CommandButton1_Click используется функция GetHash (строка 15), которая преобразует входящие данные в хеш. Данная функция взята с сайта ExcelVba.ru, за что выражаю им огромную благодарность. Код необходимо вставить в главный модуль книги:

    Основной код написан, теперь переходим к более мелким.

    Макрос, который запускает форму авторизации (можно установить на кнопку на главном листе «Main»):

    Также, макрос можно использовать при событии «Open» — при открытии книги:

    Стоит отметить, что у большинства пользователей запуск макросов по умолчанию отключен, именно поэтому на главном листе Main необходимо сделать что-то вроде «памятки» со справочной информацией о том, как активировать работу макросов.

    Макрос для закрытия книги.

    При закрытии книги, нам нужно снять защиту со структуры книги, затем скрыть все листы (кроме листа «Main»), а затем снова вернуть защиту структуры книги с паролем «112» (можно установить на какую-либо кнопку):

    Да, данный макрос можно использовать при событии «BeforeClose» — перед закрытием книги. Однако, может возникнуть несколько проблем:

    • Если пользователь сохраняется вручную до закрытия документа, закрывает документ, а затем при автоматическом запросе о сохранении нажимает «не сохранять». В таком случае, при новом запуске документа, скрытые листы будут видны всем. Да, вероятность такого события крайне мала, но она все-таки есть.
    • Если добавим принудительное сохранение после скрытия всех листов, перед окончательным закрытием файла (как на примере ниже). В таком случае, если пользователь очень сильно ошибется с данными в файле и нажмет на крестик, чтобы начать все с нуля — файл все равно сохранится и восстановить исходные данные не получится.

    Поэтому, чтобы избежать такой ситуации, я хочу предложить более радикальный, менее удобный вариант, который, однако, сведет вышеперечисленные потенциальные проблемы к минимуму: помимо выполнения макроса close_book перед каждым закрытием книги с помощью события «BeforeClose» (как на первом проблемном варианте), мы будем выполнять его и перед каждым ручным сохранением файла с помощью события BeforeSave:

    Осталось только сделать памятку по включению макросов на главном листе документа, а также выполнить важный шаг, без которого все наши проделанные действия не имеют смысла — поставить пароль на проект VBA: Меню «Разработчик» — «Visual Basic» — «Tools» — «VBAProject — Project Properties» — Вкладка «Protection» — поставить галочку «Lock project for viewing» и ввести пароль и нажать «Ок».

    Авторизация на VBA: защита проекта

    Сохраняем файл в формате «.xlsb» или «.xlsm» и все, наша «Авторизация на VBA» готова. Помимо этого, можно защитить проект еще сильнее — о способах защиты написано моей отдельной статье.

    Также, по желанию, мы можем сделать отдельную форму для администраторов, для добавления новых пользователей на лист «Settings», либо форму для восстановления пароля по какому-либо ключевому слову, но в данном примере такие функции мы реализовывать не будем.

    голоса
    Рейтинг статьи
Ссылка на основную публикацию
Adblock
detector