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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть файл в режиме для записи при рекомендации для чтения (Макросы/Sub)

Alenka546

Дата: Среда, 01.09.2021, 12:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Прошу помощи.
Есть кнопка, к которой прикручена процедура Zapusk(), которая показывает форму с параметрами запуска отчета и запускает приватную процедуру Formirivanie(), которая формирует отчет.
Чтобы пользователи ничего не поломали, при открытии стоит пароль на изменение (т.е. пользователи открывают для чтения и жмут кнопку).

Задача: автоматически формировать и сохранять отчет в определенное время.
Выбранное решение: Процедура AutoExec() определяет параметры автоматического запуска и вызывает Zapusk(). В планировщике задач в определенное время вызывается скрипт vbs, который запускает AutoExec.
[vba]

Код

Set NewExcel = CreateObject("Excel.Application")
with NewExcel
    .Visible = False 'True '
    .Workbooks.Open("S:\...\Отчет.xlsm")
    .Run "AutoExec"
    .ActiveWorkbook.Close
    .Quit
end with
set NewExcel = Nothing

[/vba]
Проблема: появляется окно для ввода пароля для записи.
Подскажите,
1) как ввести пароль в vbs?
2) если стоит не пароль, а галка "Рекомендовать доступ только для чтения" и при открытии появляется окно "Автор рекомендует открывать файл только для чтения. Открыть для чтения? Да/Нет/Отмена" - как выбрать "нет"?

Нагуглить обход на VBA тоже не получилось

Ответить

СообщениеДобрый день!
Прошу помощи.
Есть кнопка, к которой прикручена процедура Zapusk(), которая показывает форму с параметрами запуска отчета и запускает приватную процедуру Formirivanie(), которая формирует отчет.
Чтобы пользователи ничего не поломали, при открытии стоит пароль на изменение (т.е. пользователи открывают для чтения и жмут кнопку).

Задача: автоматически формировать и сохранять отчет в определенное время.
Выбранное решение: Процедура AutoExec() определяет параметры автоматического запуска и вызывает Zapusk(). В планировщике задач в определенное время вызывается скрипт vbs, который запускает AutoExec.
[vba]

Код

Автор - Alenka546
Дата добавления - 01.09.2021 в 12:29

bmv98rus

Дата: Среда, 01.09.2021, 13:25 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

https://docs.microsoft.com/en-us/office/vba/api/excel.workbooks.open

1.[vba]

Код

.Workbooks.Open("S:\...\Отчет.xlsm",,,,PASSWORD)

[/vba]
2.
[vba]

Код

.DisplayAlerts = False
.Workbooks.Open "c:\temp\11111.xlsx"
.DisplayAlerts = True

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Среда, 01.09.2021, 13:35

Ответить

Alenka546

Дата: Среда, 01.09.2021, 15:49 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

bmv98rus, спасибо за наводку! Собиралась написать, что пробовала password и не помогло, а оказалось что файл висит в фоновом приложении, и поэтому он и открывался только для чтения (тупиццо).
Зато благодаря вашей ссылке на матчасть нашла параметр IgnoreReadOnlyRecommended, который и ответил на мой второй вопрос.
Спасибо за подсказку и время!

Ответить

Страница 1 из 1
1