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

Question

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

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

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

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

Answer 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 - худший выбор в качестве переменной типа, всегда используйте что-нибудь еще, если можете.