ЛП сменить Уровень Безопасности эксел
Dim secAutomation As MsoAutomationSecurity

secAutomation = Application.AutomationSecurity

Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.FileDialog(msoFileDialogOpen).Show

Dim fn As String

fn = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
Application.Workbooks.Open fn
Application.AutomationSecurity = secAutomation.

не работает может чего то не хватает?

АлексейКвот код понижения уровня безопасности до низкого
если кому надо


эх, хорошо бы еще подпись

класно спасибо давно искал
есть задумка из внешней проге включать макро и тогда можно ... Ух.

АлексейКвирусотрояны чтоль?

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

написал .vbs положил в автозагрузку уже проще.

Юра613Здравствуйте

fn = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

не знаете, почему у меня в этом месте ошибка возникла?

Очень требуется совет специалистов
Юра613
И можно уточнить, это код
авторOn Error Resume Next
Dim OShell
Set OShell = CreateObject("WScript.Shell")
OShell.RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\11.0\\Excel\\Security\\Level", 2, "REG_DWORD"
OShell.RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\10.0\\Excel\\Security\\Level", 2, "REG_DWORD"
OShell.RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\9.0\\Excel\\Security\\Level", 2, "REG_DWORD"

Set OShell = Nothingнадо в модуле писать или в private sub workbook_open&
пишишь это в текстовом файле
после закрытия файла меняешь расширение с ".txt" на ".vbs"
кладешь полученный файл в автозагрузку "Windows" и всё.

Юра613fn = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
с этим мест уже проблем нет, разобрался

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

для чего я спрашиваю.
Я рассылаю экселевские файлы для отчета(сбор информации) Я делал по простому, рисовал таблицу, выделял цветом важные места и обязательные для заполнения, и блокировал те зоны в которых ничего писать не надо. Но в итоге люди или заполняют ячейки неправильно или вообще не заполняют. Поэтому я решил сделать тот же Экселевский файл в котором при открытии будет появляться форма. В эту форму нужно будет вводить необходимую информацию и если что то будет не правильно или не хватать информации то форма будет "ругаться". Потом при нажатии кнопки все будет записываться на лист.Но если у о пользователей будет стоять вывсокий уровень защиты то все мои старания коту под хвост.
Также не удобно рассылать изменненный текстовой файл(проще попросить поставить низкий уровень безопасности)
примерно такой же вопрос сдесь уже обсуждался
пришли вот к чему
на листе который будет при открытии виден вставяется во весь экран надпись
типа "У вас отключены макросы и поэтому файл работать не будет",
а в событии "Private Sub Workbook_Open()"
прописан код который убирает эту надпись.
получается следующее:
если макросы отключены, то все нормально, а
если макросы не отключены то пользователь видит эту надпись.
Вообще с этим можно поиграться например
изночально поставить защиту на все листы, а при открытии в событии
"Private Sub Workbook_Open()"
прописать код снятия защиты
что-то типа
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect "123"
Next
соответственно при закрытии д.б. ("Private Sub Workbook_BeforeClose(Cancel As Boolean)")
For Each Sh In ThisWorkbook.Worksheets
Sh.Protect "123"
Next

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

извиняюсь перепутал
читать надо так

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

жаль что сообщение редактировать нельзя