Question

每当我点击按钮保存时，我想创建一个用密码加密的备份excel工作簿。

到目前为止，我已经有了这个，但仍然无法弄清楚如何使用密码保护所有新的.xlsm文件，因此在不知道密码的情况下，任何人都无法对备份文件进行更改。在不同文件夹中保存和创建备份文件。

感谢。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)


    Dim DestinationFolder   As String
    Dim WbName              As String
    Dim WbExtension         As String
    Dim WbNewPath           As String
    Dim sHostName           As String

    sHostName = Environ$("computername")

    DestinationFolder = "C:\Users\An\Dropbox\Orders - backup"

    If DestinationFolder = "" Or Dir(DestinationFolder, vbDirectory) = vbNullString Then
        MsgBox "The destination folder's path is incorect!", vbCritical, "Wrong folder's path"
        Exit Sub
    End If

    WbName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

    WbExtension = Right$(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))

    WbNewPath = DestinationFolder & "\" & WbName & sHostName & "(" & Format(Now(), "dd.mm.yyyy - hh.mm") & ")." & WbExtension

    ThisWorkbook.SaveCopyAs WbNewPath

End Sub

Answer 1

您应该使用.SaveAs方法。然后，您可以为文件指定密码。

然后打开你的老人＆＃34;版本。

点击此处：MSDN - Workbook.SaveAs-Method

创建受密码保护的备份

1 个答案: