Защитить проект VBA – S.H.T.E.M. – ЭЦП Эксперт

Macos

Теперь, когда мы разобрались с Microsoft Windows, давайте посмотрим, как при помощи десктопной операционной системы от Apple распаковывать или создавать архивы в формате RAR на Мак. Изначально мы должны поступить следующим образом:

1. Так как по умолчанию поддержка работы с RAR в яблочных операционных системах отсутствует, необходимо установить архиватор. Это будет полностью бесплатная программа. Для начала давайте откроем AppStore.

1. Дальше, перейдя в левую часть окна Макбука, в поисковой строке прописываем название искомого архиватора. Рекомендуем воспользоваться приложением The Unarchiver. Как только поисковая выдача появится, кликаем по обозначенному на скриншоте результату.

1. Найдя нужное нам приложение, кликаем по кнопке с надписью «Загрузить».

1. Дальше повторяем действия, но уже с кнопкой «Установить».

1. Запустится скачивание и автоматическая установка программы. Но для того чтобы это произошло нас могут попросить ввести пароль от Apple ID.

1. Программа установлена и теперь мы можем запустить ее. Делается это прямо из AppStore либо Launchpad, находящегося на рабочем столе операционной системы.

1. Для начала запускаем только что установленный архиватор.

1. Как и в случае с Windows, нам необходимо прописать соответствующие ассоциации. Устанавливаем флажки напротив тех типов архивов, которые хотим открывать с помощью нашего архиватора. Естественно, флажок должен стоять и напротив «RAR».

1. Теперь, когда мы попытаемся открыть любой архив, запакованный в формате RAR в операционной системе Apple macOS, это делается без труда. У любого файла такого типа появится соответствующая иконка.

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

Безопасность файлов

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

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

Но плохо даже не то, что Microsoft перестраховывается в поиске потенциальных угроз. Огорчает непоследовательность и постоянное усложнение процедуры управления безопасностью проектов Excel-VBA. Кроме того, явно прослеживается тенденция, направленная на использование цифровой подписи надежных издателей.

Вот как исторически изменялись характеристики безопасности:

• Excel 2007 (12.0) – переписан интерфейс параметров, появился так называемый «Центр управления безопасностью». Уровни безопасности изменились по поведению, хотя их также осталось четыре. По умолчанию при открытии файла с макросами под лентой появляется окошко с возможностью активизировать макросы. Условно говоря, это тот же диалог подключения макросов, но открывается он немодально. Решение с одной стороны кажется привлекательным по интерфейсу, но может привести к несовместимости со старым версиями: например, пользователь может поработать некоторое время без макросов, а затем их подключить. Появилась отдельная опция возможности управления объектом VBE на уровне кода, которая по умолчанию отключена. Также отдельно настраивается безопасность надстроек Excel, которые по умолчанию пока все-таки подключаются без дополнительных вопросов.

Учитывайте эти различия в настройках при разработке и распространении собственных приложений для Excel.

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

Как разархивировать файл

Здравствуйте уважаемый посетитель сайта! Если вы хотите знать, как на своем компьютере разархивировать файлы, такие как видео, музыку, фотографии, папки с файлами, то тогда вам сюда, из этого урока вы узнаете, как правильно разархивировать файл на своем компьютере.

Чтобы разархивировать rar или zip, вам нужно на своем компьютере выполнить следующие действие на своем компьютере:Открываем локальный диск, в котором у вас лежит архив, который вы хотите разархивировать, затем наводим мышку на наш архив и два раза нажимаем левую кнопку мыши.

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

Когда вы выберите пункт «Извлечь в указанную папку», на вашем компьютере откроется окошко, в котором вам нужно выбрать локальный диск, в который будет произведена разархивация файла или папки.И так в правой часть окошка «Проводник», раскрываем «Мой компьютер», затем наводим курсор мыши на тот локальный диск, на который вы хотите разархивировать файлы и нажимаем левую кнопку мыши.Когда вы выберете нужный вам локальный диск, вам остается нажать на кнопку «OK».

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

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

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

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

На своем компьютере я создал папку в локальном диске (D) и переименовал папку в «Фото».

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

Когда вы нажмете на кнопку «OK», то на вашем компьютере начнется процесс извлечения файлов в выбранную вами папку.Вот таким вот способом происходит извлечение файлов из архива rar и zip.

Как разархивировать файл zip на компьютер

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

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

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

• с помощью стандартных инструментов ОС;
• используя программу 7-Zip;
• посредством WinRAR.

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

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

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

Оставляя отмеченной галочку «показать файлы», после извлечения можно увидеть окно с новой, уже открытой папкой. Ещё проще без распаковки, просто войти в архив по примеру обычных папок и открыть необходимый файл.

Программа знакома многим, так как нередко входит в комплект программного обеспечения операционки. Приложение служит для архивации и открытия документов в формате RAR и ZIP. Даже если она не присутствует на ПК, её можно загрузить с сайта разработчика.

Открывать нужные файлы можно тремя способами, для этого выбирают:

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

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

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

Если в таких действиях нет необходимости, и нет представления о том, как разархивировать файл zip на компьютер, лучше использовать второй и третий вариант. Сам процесс длится всего несколько минут, конечно, в зависимости от объёма архива.

Кратко, как создается данная защита

Для создания данной защиты нужно, разархивировать файл Excel. Перейти в архиве в папку

, открыть файл

vbaProject.bin

,  в конце файла находятся наши ключи, редактируем значения ключей на пусто, сохраняем файл. Переводим наш архив, обратно в файл Excel. Готово! 

Это самый простой вариант данной защиты, но существует множество модификаций.

Алгоритм снятия защиты Project is Unviewable.

1)  Разархивируем подопытный файл, переходим в файл  …xl_relsworkbook.xml.rels

2)      В файле workbook.xml.rels  ищем строку, содержащую слово  vbaProject, обычно имеет следующий вид:  />. В этой строке нас интересует ключ Target,иего значение. Значение является название файла, в котором находится проект VBA.

3)      Открываем на редактирование файл, указанный в  ключе Target, ищем в файле ключи  CMG, DPB, GC. И меняем в их названиях любую букву на любую другую, например: CMC, DPC, CC. При поиске нужно быть аккуратным, так как защищающий может поместить  в проект форму,  подписью повторяющую один из ключей, например такую:

4)      Переводим архив обратно в файл Excel.

5)      Запускаем приложение Excel, выполняем следующее: в Центре управления безопасностью -> Параметры макросов  -> Отключить все макросы без уведомления. Перезапускаем Excel. Данная операция нужна, для блокировки защиты, которую иногда ставят авторы макросов.

6)      Открываем файл. Если все правильно сделано то, Excel, будет ругаться на не правильные ключи, которые мы отредактировали, в пункте 3. Жмем, да, пока данные сообщения не закончатся и диалоговое окно закроется. 

      Если данное сообщение не появляется то, вы отредактировали не файл который содержит проект VBA.

7)      Открываем проект VBA. После всего, проект VBA должен быть доступен.

8)      Но иногда защита не снимается, тогда нужно сохранить файл, проверить, что он действительно сохранился! И проделать повторно операции с 1 по 7. Обычно так происходит когда в файле workbook.xml.rels в ключе Target  установлено printerSettings.bin.При сохранение,  Excel  исправляет это на значение на vbaProject.bin

Данную защиту можно установить и снять следующим инструментом:

Третий вид защиты — Hidden  Module, скрытые модули VBA

Время на снятие:  от 15 до 20 мин (нужен редактор OLE — объектов, Structured Storage Viewer, например.

Недостаток: доступ к коду модуля VBA

Менее распространенный вид  защиты обычно встречается в комбинации с защитой Project is Unviewable. При установке данной защиты модуль VBA не отображается в проекте книги Excel. О его существовании можно узнать, проанализировав код VBA (что требует время!) или открыть файл Excel в программе  OpenOffice  или  LibreOffice (так же можно смотреть код при защите Project is Unviewable, но данный способ не дает возможность получить рабочий файл, без пароля).

Просмотр кода VBA в 

LibreOffice

Мобильные устройства

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

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

Если же вам не повезло, и ваше устройство не способно самостоятельно этого сделать, рассмотрим, как разархивировать файл на «Андроиде». Для этого вам понадобится установить специальную программу на ваше устройство. Лучше всего подойдёт файловый менеджер AndroZip. Он свободно распространяется в интернете с 2009 года.

Работая с ним, вы сможете совершать любые операции с файлами так же, как и на обычном персональном компьютере. Что касается архивов, он поддерживает такие расширения, как rar, zip, tar, gzip. А создаваемые этим приложением архивы можно распаковывать с помощью WinRar на персональном компьютере.

На пк

1. Нажимаем “Извлечь файлы”;

   

2. Так мы запускаем процесс распаковки, определяем параметры процесса;
3. Далее у нас несколько вариантов.

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

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

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

Вы можете опять же поставить галочку напротив пункта “Оставить на диске поврежденные файлы” и посмотреть запустятся они или нет.

Разхивирование — не единственная возможность архиватора. Также программа помогает организовывать резервное копирование информации.

Папки Winrar можно защитить — создайте архив с паролем и ваши данные будут в полной безопасности.

Обфускация кода

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

Например, имеется простейший код, который сравнивает две переменные и выводит сообщение:

Sub sravnenie()
Dim a As Double 
Dim b As Double
a = 50 'первая переменная
b = 30 'вторая переменная
If (a >= b) Then 'сравнение
    MsgBox a & " больше или равно " & b, "Сравнение"
Else
    MsgBox a & " меньше " & b, "Сравнение"
End If
End Sub

После обфускации получится следующий код:

Sub q3294ac481200c9f62b6a7dac981cea19()
Dim b17fea5c0191a5bc3c2640b8f16b14e98 As Double
Dim ea06f6764676da2a53039a8c582369215 As Double
b17fea5c0191a5bc3c2640b8f16b14e98 = 50
ea06f6764676da2a53039a8c582369215 = 30
If (b17fea5c0191a5bc3c2640b8f16b14e98 >= ea06f6764676da2a53039a8c582369215) Then
MsgBox b17fea5c0191a5bc3c2640b8f16b14e98 & " больше или равно " & ea06f6764676da2a53039a8c582369215, "Сравнение"
Else
MsgBox b17fea5c0191a5bc3c2640b8f16b14e98 & " меньше " & ea06f6764676da2a53039a8c582369215, "Сравнение"
End If
End Sub

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

Для того, чтобы защитить проект VBA с помощью обфускации, можно воспользоваться готовыми инструментами:

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

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

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

Получение цифрового удостоверения для отправки сообщений с помощью Microsoft Exchange Server.

1. Получите цифровое удостоверение S/MIME из центра сертификации.
2. Выберите в меню Сервис команду Параметры и откройте вкладку Безопасность.
3. Нажмите кнопку «Получить удостоверение».
4. Установите переключатель Получить сертификат S/MIME из центра сертификации и нажмите кнопку «OK».
5. Будет автоматически запущен web-обозреватель и открыта страница на web-узле Microsoft Office. Щелкните ссылку, наиболее близкую к расположению ваших страны или региона. Будет открыта страница со списком нескольких центров сертификации. Выберите любой из них и выполните указания на web-странице, чтобы зарегистрироваться для получения сертификата. Из центра сертификации будут высланы цифровое удостоверение и дополнительные указания.
6. Выберите используемое цифровое удостоверение.
7. Выберите в меню Сервис команду Параметры и откройте вкладку Безопасность.
8. Нажмите кнопку «Настройка».
9. Если цифровая подпись существует, она была автоматически настроена при создании. Если необходимо поменять используемую цифровую подпись, выполните следующие действия:
   • нажмите кнопку «Создать» раздела Настройки безопасности;
   • введите имя в поле «Имя конфигурации»;
   • в списке Формат криптографии выберите пункт «S/MIME». При другом типе сертификата может потребоваться выбрать пункт «Exchange server security»;
   • рядом с полем «Сертификат подписи» нажмите кнопку «Выбрать» и щелкните по цифровому удостоверению.

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

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

Примеры работы с range

Sheets(“result”).ActivateDim r As RangeSet r = Range(“A1”)r.Value = “123”Set r = Range(“A3,A5”)r.Font.Color = vbRedr.Value = “456”Set r = Range(“A6:A7”)r.Value = “=A1 A3”

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

1. Считали группы из очередной строки.
2. Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
   1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
3. После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As StringGetCol = Chr(Asc(“A”)   Col)End Function

Function GetCellS(Sheet As String, Col As Integer, Row As Integer) As RangeSet GetCellS = Sheets(Sheet).Range(GetCol(Col)   CStr(Row))End Function

Function GetCell(Col As Integer, Row As Integer) As RangeSet GetCell = Range(GetCol(Col)   CStr(Row))End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

Примеры синтаксиса

‘ Процедура. Ничего не возвращает’ Перегрузка в VBA отсутствуетSub foo(a As String, b As String)’ Exit Sub ‘ Это значит “выйти из процедуры”    MsgBox a   “;”   bEnd Sub

‘ Функция. Вовращает IntegerFunction LengthSqr(x As Integer, y As Integer) As Integer’ Exit Function    LengthSqr = x * x   y * yEnd Function

Sub FormatPrice()Dim s1 As String, s2 As Strings1 = “str1″s2 = “str2″If s1 <> s2 Thenfoo “123”, “456” ‘ Скобки при вызове процедур запрещены    End If

Dim res As sTRING ‘ Регистр в VB не важен. Впрочем, редактор Вас поправит    Dim i As Integer’ Цикл всегда состоит из нескольких строк    For i = 1 To 10res = res   CStr(i)

    Dim x As Doublex = Val(“1.234”) ‘ Парсинг чисел    x = x   10MsgBox x

    On Error Resume Next ‘ Обработка ошибок – игнорировать все ошибки    x = 5 / 0MsgBox x

    On Error GoTo Err ‘ При ошибке перейти к метке Err    x = 5 / 0MsgBox “OK!”GoTo ne

Err:MsgBox “Err!”

ne:On Error GoTo 0 ‘ Отключаем обработку ошибок’ Циклы бывает, какие захотите    Do While TrueExit Do

Loop ‘While True    Do ‘Until False        Exit DoLoop Until False’ А вот при вызове функций, от которых хотим получить значение, скобки нужны.    ‘ Val также умеет возвращать Integer    Select Case LengthSqr(Len(“abc”)

    ‘ Двухмерный массив.    ‘ Можно также менять размеры командой ReDim (Preserve) – см. google    Dim arr(1 to 10, 5 to 6) As Integerarr(1, 6) = 8

Dim coll As New CollectionDim coll2 As Collectioncoll.Add “item”, “key”Set coll2 = coll ‘ Все присваивания объектов должны производится командой Set    MsgBox coll2(“key”)Set coll2 = New CollectionMsgBox coll2.CountEnd Sub

Распаковываем архив с расширением rar

В отличии от предыдущего случая, для RAR потребуется установка сторонних программ. Например, одна из таких надежных программ как 7-Zip, отлично справляется с подобными архивами (а еще она поддерживает множество других типов: 7z, Zip, tar и др.). Загрузить это приложение можно с официального сайта и оно совершенно бесплатное.

Сама программа достаточно простая в управлении. Для распаковки архива, сделайте по нему клик правой кнопкой мышки и в разделе меню «7-Zip» нажмите на один из таких пунктов:

• Распаковать – появится окно с параметрами извлечения;
• Распаковать здесь – извлечение начнется сразу, в тот же каталог где и архив;
• Распаковать в «название папки» – извлечение начнется в здесь же созданную папку с таким же именем, как и архив. Лучше всего использовать именно этот вариант.

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

В этом окне можно указывать подходящую папку, в которую будет происходить распаковка. Тут же можете выбрать такой параметр как «Без путей», при этом все файлы извлекутся сплошной кучей, без папок в которых они находились. При выборе «Перезаписи» можно активировать возможность редактирования файлов находящихся в архиве. Но при стандартных настройках приложение будет делать запрос, во время их запуска.

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

Создание самоподписанного сертификата средствами powershell – pki extensions

$Cert=New-Object-ComObjectX509Enrollment.CX509CertificateRequestCertificate.1

[↓] [vPodans] $cert | gm -MemberType methods


   TypeName: System.__ComObject#{728ab35a-217d-11da-b2a4-000e7bbb2b09}

Name                             MemberType Definition
----                             ---------- ----------
CheckPublicKeySignature          Method     void CheckPublicKeySignature (IX509PublicKey)
CheckSignature                   Method     void CheckSignature (Pkcs10AllowedSignatureTypes)
Encode                           Method     void Encode ()
GetCspStatuses                   Method     ICspStatuses GetCspStatuses (X509KeySpec)
GetInnerRequest                  Method     IX509CertificateRequest GetInnerRequest (InnerRequestLevel)
Initialize                       Method     void Initialize (X509CertificateEnrollmentContext)
InitializeDecode                 Method     void InitializeDecode (string, EncodingType)
InitializeFromCertificate        Method     void InitializeFromCertificate (X509CertificateEnrollmentContext, string...
InitializeFromPrivateKey         Method     void InitializeFromPrivateKey (X509CertificateEnrollmentContext, IX509Pr...
InitializeFromPrivateKeyTemplate Method     void InitializeFromPrivateKeyTemplate (X509CertificateEnrollmentContext,...
InitializeFromPublicKey          Method     void InitializeFromPublicKey (X509CertificateEnrollmentContext, IX509Pub...
InitializeFromTemplate           Method     void InitializeFromTemplate (X509CertificateEnrollmentContext, IX509Enro...
InitializeFromTemplateName       Method     void InitializeFromTemplateName (X509CertificateEnrollmentContext, string)
IsSmartCard                      Method     bool IsSmartCard ()
ResetForEncode                   Method     void ResetForEncode ()


[↓] [vPodans]

[↓] [vPodans] $cert | gm -MemberType methods | ?{$_.name -eq "InitializeFromPrivateKey"} | select definition

Definition
----------
void InitializeFromPrivateKey (X509CertificateEnrollmentContext, IX509PrivateKey, string)


[↓] [vPodans]

$PrivateKey=New-Object-ComObjectX509Enrollment.CX509PrivateKey

$PrivateKey.ProviderName="Microsoft Base Cryptographic Provider v1.0"$PrivateKey.KeySpec=0x2$PrivateKey.Length=1024$PrivateKey.MachineContext=0x0$PrivateKey.Create()

$Cert.InitializeFromPrivateKey(0x1,$PrivateKey,"")

$Cert.NotBefore=[datetime]::Now$Cert.NotAfter=$Cert.NotBefore.AddDays(365)

$SubjectDN.Encode("CN=Some Subject,DC=lucernepublishing,DC=COM",0x0)

$Cert.Subject=$SubjectDN$Cert.Issuer=$Cert.Subject

$EKU=New-Object-ComObjectX509Enrollment.CX509ExtensionEnhancedKeyUsage

$OIDs=New-Object-ComObjectX509Enrollment.CObjectIDs

$OID=New-Object-ComObjectX509Enrollment.CObjectID$OID.InitializeFromValue("1.3.6.1.5.5.7.3.3")$OIDs.Add($OID)$EKU.InitializeEncode($OIDs)

$Cert.X509Extensions.Add($EKU)

[↓] [vPodans] $cert


Type                        : 4
EnrollmentContext           : 1
Silent                      : False
ParentWindow                :
UIContextMessage            :
SuppressDefaults            : False
ClientId                    :
CspInformations             : System.__ComObject
HashAlgorithm               : System.__ComObject
AlternateSignatureAlgorithm : False
TemplateObjectId            :
PublicKey                   : System.__ComObject
PrivateKey                  : System.__ComObject
NullSigned                  : False
ReuseKey                    : False
Subject                     : System.__ComObject
CspStatuses                 : System.__ComObject
SmimeCapabilities           : False
SignatureInformation        : System.__ComObject
KeyContainerNamePrefix      : lp
CryptAttributes             :
X509Extensions              : System.__ComObject
CriticalExtensions          : System.__ComObject
SuppressOids                : System.__ComObject
Issuer                      : System.__ComObject
NotBefore                   : 16.04.2021 18:25:22
NotAfter                    : 16.04.2021 18:25:22
SignerCertificate           :
PolicyServer                :
Template                    :



[↓] [vPodans]

$Request=New-Object-ComObjectX509Enrollment.CX509enrollment$Request.InitializeFromRequest($Cert)

$endCert=$Request.CreateRequest(0x0)

[↓] [vPodans] $endcert
-----BEGIN CERTIFICATE-----
MIICaTCCAdKgAwIBAgIQEzCS/mFIxLBAiGjz7 n0dDANBgkqhkiG9w0BAQUFADBP
MRMwEQYKCZImiZPyLGQBGRYDQ09NMSEwHwYKCZImiZPyLGQBGRYRbHVjZXJuZXB1
Ymxpc2hpbmcxFTATBgNVBAMMDFNvbWUgU3ViamVjdDAeFw0xMDA0MTgxMTI5MDla
Fw0xMTA0MTgxMTI5MDlaME8xEzARBgoJkiaJk/IsZAEZFgNDT00xITAfBgoJkiaJ
k/IsZAEZFhFsdWNlcm5lcHVibGlzaGluZzEVMBMGA1UEAwwMU29tZSBTdWJqZWN0
MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDBGa PnrhnOFO5 76c5zX5/ xh
Kb2hUYl/pRuIKzYcqrmkvqjpPK/McusibT1h70emUkED0TSZsAlSivdIFK6WSxn6
HsTCaGIHhyOSKAvzQkBsZ74BPEydGT5LiX0 MOTyxwFAHhb bqfbkdkXqUSkJAHK
Z6p fgX8uaJkKjL/kwIDAQABo0YwRDATBgNVHSUEDDAKBggrBgEFBQcDAzAdBgNV
HQ4EFgQUzIFwoRTY6KjUiqmjWjSjlkxbNncwDgYDVR0PAQH/BAQDAgeAMA0GCSqG
SIb3DQEBBQUAA4GBACizodCpl/cF3OGLUx8HVag0yhr1e1P8 CLPc31FmCPAY1CO
T0yxyJPoafkbXKRjclevNJdvxE3ys9fyYigFUhgswh3oWmjanDaatPKa0kE4147k
SQHvN8JP20KeDDCJBk/FbS3xCn3jTix90ddzTa1uFoqBbBNbKOaDHIrqypTY
-----END CERTIFICATE-----

[↓] [vPodans]

$Request.InstallResponse(0x2,$endCert,0x0,"")

functionNew-SigningCert{[CmdletBinding()]param([string]$Subject="CN=PowerShell User, OU=Test Signing Cert",[int][ValidateSet("1024","2048")]$KeyLength=1024,[datetime]$NotBefore=[DateTime]::Now,[datetime]$NotAfter=$NotBefore.AddDays(365),[switch]$Force)$OS=(Get-WmiObjectWin32_OperatingSystem).Versionif($OS[]-lt6){Write-Warning"Windows XP, Windows Server 2003 and Windows Server 2003 R2 are not supported!"return}$SubjectDN=New-Object-ComObjectX509Enrollment.CX500DistinguishedName$SubjectDN.Encode($Subject,0x0)$OID=New-Object-ComObjectX509Enrollment.CObjectID$OID.InitializeFromValue("1.3.6.1.5.5.7.3.3")$OIDs=New-Object-ComObjectX509Enrollment.CObjectIDs$OIDs.Add($OID)$EKU=New-Object-ComObjectX509Enrollment.CX509ExtensionEnhancedKeyUsage$EKU.InitializeEncode($OIDs)$PrivateKey=New-Object-ComObjectX509Enrollment.CX509PrivateKey$PrivateKey.ProviderName="Microsoft Base Cryptographic Provider v1.0"$PrivateKey.KeySpec=0x2$PrivateKey.Length=$KeyLength$PrivateKey.MachineContext=0x0$PrivateKey.Create()$Cert=New-Object-ComObjectX509Enrollment.CX509CertificateRequestCertificate$Cert.InitializeFromPrivateKey(0x1,$PrivateKey,"")$Cert.Subject=$SubjectDN$Cert.Issuer=$Cert.Subject$Cert.NotBefore=$NotBefore$Cert.NotAfter=$NotAfter$Cert.X509Extensions.Add($EKU)$Cert.Encode()$Request=New-Object-ComObjectX509Enrollment.CX509enrollment$Request.InitializeFromRequest($Cert)$endCert=$Request.CreateRequest(0x1)$Request.InstallResponse(0x2,$endCert,0x1,"")if($Force){[Byte[]]$bytes=[System.Convert]::FromBase64String($endCert)foreach($Containerin"Root","TrustedPublisher"){$x509store=New-ObjectSecurity.Cryptography.X509Certificates.X509Store$Container,"CurrentUser"$x509store.Open([Security.Cryptography.X509Certificates.OpenFlags]::ReadWrite)$x509store.Add([Security.Cryptography.X509Certificates.X509Certificate2]$bytes)$x509store.Close()}}}

Создание шаблонов диалоговых окон

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

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

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

Export File (или нажмите комбинацию клавиш <Ctrl E>). После этого на экране появится запрос на ввод имени файла. Затем для создания проекта на основе шаблона выполните команду File –> lmport File, чтобы загрузить ранее сохраненное диалоговое окно.

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

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

[1] По материалам книги Джон Уокенбах. Excel 2021. Профессиональное программирование на VBA. – М: Диалектика, 2021. – С. 405–438.