Question

我正在尝试打开受保护的工作簿，该工作簿已使用密码加密并且密码为“ password”。

我写了下面的代码，但是没有用。

请对此提供帮助。

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 method的文档，就会发现它具有一个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作为变量类型，是最差的选择，请尽可能使用其他东西。

使用密码打开时取消保护工作簿

1 个答案: