Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Открытие закрытой книги с защитой от записи - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие закрытой книги с защитой от записи (Макросы/Sub)
Открытие закрытой книги с защитой от записи
Knopix Дата: Воскресенье, 09.12.2018, 23:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

2017
Уважаемые форумчане, не нашел решения в просторах интернета, прошу дать либо формулировку метода или желательно готовое решение.
Имеется необходимость открывать закрытую книгу для внесения в нее изменений при помощи vba, но книга защищена от внесения изменений (при открытии диалог: открыть только для чтения, ввести пароль и открыть, отмена. )
Как можно открыть текущий файл из другой книги с снятием защиты от записи(после закрытия, если файл открывать обычным способом защита должна работать) Файл прилагаю. Пароль - "gfhjkm".
К сообщению приложен файл: 8259111.xlsm(8.9 Kb)
 
Ответить
СообщениеУважаемые форумчане, не нашел решения в просторах интернета, прошу дать либо формулировку метода или желательно готовое решение.
Имеется необходимость открывать закрытую книгу для внесения в нее изменений при помощи vba, но книга защищена от внесения изменений (при открытии диалог: открыть только для чтения, ввести пароль и открыть, отмена. )
Как можно открыть текущий файл из другой книги с снятием защиты от записи(после закрытия, если файл открывать обычным способом защита должна работать) Файл прилагаю. Пароль - "gfhjkm".

Автор - Knopix
Дата добавления - 09.12.2018 в 23:01
boa Дата: Понедельник, 10.12.2018, 00:36 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 294
Репутация: 65 ±
Замечаний: 0% ±

2013, 365
workbooks.open параметры
плюс, отключите сообщения Application.DisplayAlerts = False


 
Ответить
Сообщениеworkbooks.open параметры
плюс, отключите сообщения Application.DisplayAlerts = False

Автор - boa
Дата добавления - 10.12.2018 в 00:36
Knopix Дата: Понедельник, 10.12.2018, 13:32 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

2017
boa, Пробывал, не работает, он все равно при открытии запрашивает пароль.
код такой:
[vba]
Код

Sub OpenClosedWorkbook()
  Workbooks.Open "здесь путь к файлу", , , , "текущий пароль от файла" & Application.DisplayAlerts = False
End Sub
[/vba]
:(
Что я не так делаю?
 
Ответить
Сообщениеboa, Пробывал, не работает, он все равно при открытии запрашивает пароль.
код такой:
[vba]
Код

Sub OpenClosedWorkbook()
  Workbooks.Open "здесь путь к файлу", , , , "текущий пароль от файла" & Application.DisplayAlerts = False
End Sub
[/vba]
:(
Что я не так делаю?

Автор - Knopix
Дата добавления - 10.12.2018 в 13:32
boa Дата: Понедельник, 10.12.2018, 13:45 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 294
Репутация: 65 ±
Замечаний: 0% ±

2013, 365
Knopix,
[vba]
Код
Sub OpenClosedWorkbook()
    Application.DisplayAlerts = False
    Workbooks.Open Filename:="здесь путь к файлу", WriteResPassword:="текущий пароль внесения изменений в файл"
    Application.DisplayAlerts = True
End Sub
[/vba]


 
Ответить
СообщениеKnopix,
[vba]
Код
Sub OpenClosedWorkbook()
    Application.DisplayAlerts = False
    Workbooks.Open Filename:="здесь путь к файлу", WriteResPassword:="текущий пароль внесения изменений в файл"
    Application.DisplayAlerts = True
End Sub
[/vba]

Автор - boa
Дата добавления - 10.12.2018 в 13:45
Knopix Дата: Понедельник, 10.12.2018, 16:40 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

2017
boa, Спасибо, то что нужно. Вопрос закрыт.
 
Ответить
Сообщениеboa, Спасибо, то что нужно. Вопрос закрыт.

Автор - Knopix
Дата добавления - 10.12.2018 в 16:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открытие закрытой книги с защитой от записи (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!