创build受密码保护的备份

我想创build一个用密码encryption的备份excel工作簿，每当我点击一个button保存。

到目前为止，我有这个，但仍然不知道如何保护所有新的.xlsm文件与密码，所以没有人不能做一个不知道密码备份文件的变化。 在不同的文件夹中保存和创build备份文件。

谢谢。

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方法