时间戳

首页 > 解决方案 > 使用密码打开时取消保护工作簿

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

问题描述

我正在尝试打开用密码加密的受保护工作簿，密码是“密码”。

我写了下面的代码，但它不起作用。

请帮忙。

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

标签： excelvba

解决方案

如果您查看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 作为变量类型是最糟糕的选择，如果可以，请始终使用其他类型。

推荐阅读