vba 工作簿 动态密码

以下是一个VBA代码示例，可以实现在打开Excel工作簿时输入动态密码：

Private Sub Workbook_Open()

Dim Password As String

Password = InputBox("请输入密码：")

If Password = "mypassword" Then
    '密码正确，执行操作
    MsgBox "密码正确"
Else
    '密码错误，关闭Excel
    MsgBox "密码错误"
    ThisWorkbook.Close False
End If

End Sub

在这个示例中，当打开Excel工作簿时，会弹出一个输入框要求输入密码。如果输入的密码与代码中指定的密码相同，则会弹出一个消息框提示密码正确，并且可以执行其他操作。如果密码不正确，则会弹出一个消息框提示密码错误，并且关闭Excel工作簿（设置 `ThisWorkbook.Close False`）。你可以将代码中的 "mypassword" 替换为你实际使用的密码。

相关问题

vba带密码的工作簿保存时不使用密码保护

如果你要在 VBA 中保存一个带密码的工作簿但不使用密码保护，可以使用 `SaveAs` 方法并在保存时省略密码参数。以下是一个示例代码：

Sub SaveWorkbookWithoutPassword()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    '保存工作簿并省略密码参数
    wb.SaveAs Filename:="C:\example.xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

在这个代码中，我们使用 `SaveAs` 方法来保存工作簿，并在 `Password` 参数中省略了密码。这将使保存的工作簿不再受到密码保护。

vba打开密码的工作簿后，另存时取消密码保护

要取消一个带密码的工作簿的密码保护，可以使用 `SaveAs` 方法并在保存时省略密码参数。以下是一个示例代码：

Sub SaveWorkbookWithoutPassword()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\example.xls", Password:="mypassword")
    
    '保存工作簿并省略密码参数
    wb.SaveAs Filename:="C:\example2.xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    
    '关闭原始工作簿并打开新的工作簿
    wb.Close
    Workbooks.Open("C:\example2.xls")
End Sub

在这个代码中，我们首先使用 `Workbooks.Open` 方法打开一个带密码的工作簿，然后在 `Password` 参数中提供正确的密码。接下来，我们使用 `SaveAs` 方法来将工作簿另存为一个新的文件，同时省略密码参数以取消密码保护。最后，我们关闭原始工作簿并打开新的工作簿，新的工作簿不再受到密码保护。