创建受密码保护的备份

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方法。然后你可以给文件分配一个密码。

然后再次打开你的“旧”版本。

检查出在这里：MSDN - Workbook.SaveAs-Method