Снять защиту книги при открытии с паролем

Я пытаюсь открыть защищенную книгу, которая зашифрована паролем, а пароль — «пароль».

Я пишу ниже код, но он не работает.

пожалуйста, помогите в этом.

Sub demo()
Dim path_file As Variant
path_file = "c:\login\FloorLoginData.xlsx"
Workbooks.Open(path_file).Unprotect Password:="password"
end sub

"это не работает" не является полезным описанием ошибки. Вместо этого опишите, что происходит или какие ошибки вы получаете.

— 22.05.2019 11:14

Спасибо Пех, снова просит ввести пароль

— 22.05.2019 11:19

excel vba

22.05.2019 11:08

3 метода стилизации элементов HTML

Когда дело доходит до применения какого-либо стиля к нашему HTML, существует три подхода: встроенный, внутренний и внешний. Предпочтительным обычно...

Формы c голосовым вводом в React с помощью Speechly

Пытались ли вы когда-нибудь заполнить веб-форму в области электронной коммерции, которая требует много кликов и выбора? Вас попросят заполнить дату,...

Стилизация и валидация html-формы без использования JavaScript (только HTML/CSS)

Будучи разработчиком веб-приложений, легко впасть в заблуждение, считая, что приложение без JavaScript не имеет права на жизнь. Нам становится удобно...

Flatpickr: простой модуль календаря для вашего приложения на React

Если вы ищете пакет для быстрой интеграции календаря с выбором даты в ваше приложения, то библиотека Flatpickr отлично справится с этой задачей....

В чем разница между Promise и Observable?

Разберитесь в этом вопросе, и вы значительно повысите уровень своей компетенции.

Что такое cURL в PHP? Встроенные функции и пример GET запроса

Клиент для URL-адресов, cURL, позволяет взаимодействовать с множеством различных серверов по множеству различных протоколов с синтаксисом URL.

469

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Если вы заглянете в документацию Метод Workbooks.Open, вы увидите, что у него есть параметр Password.

Option Explicit

Sub demo()
    Dim PathFile As String
    PathFile = "c:\login\FloorLoginData.xlsx"

    Dim wb As Workbook
    Set wb = Workbooks.Open(FileName:=PathFile, Password:="password")
End Sub

Примечание: не используйтеVariantесли вы можете использоватьString.Variantэто худший выбор в качестве типа переменной, всегда используйте что-то другое, если можете.

22.05.2019 11:17

Другие вопросы по теме

WorksheetFunction.SumIfs на основе диапазона с датой и временем

Вычесть строки друг из друга, но пропустить строки

Как мне включить этот макрос для запуска каждый раз, когда я открываю или редактирую что-либо в своем Excel?

Цикл с условием. Делать, пока числа не закончатся

Цикл: копирование абзаца на основе списка Excel из одного документа в другой с помощью закладки

Очистка веб-страниц с URL-адресом в миллисекундах Unix

Проверка данных в динамическом диапазоне

Как запустить макрос через папку, содержащую сотни текстовых файлов

Нужна помощь в оптимизации кода Excel VBA, который объединяет дубликаты

Как извлечь номер телефона и разделить его на столбец в листе Google?

Снять защиту книги при открытии с паролем

Ответы 1

Другие вопросы по теме

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