定期將共享工作簿的更改存儲到單獨的工作簿中

Question

我有兩個工作簿，一個共享的「xlsx」文件A，它存儲數據並且不共享包含我的宏的「xlsm」文件B.我想保持定期跟蹤文件A和密碼的更改 - 保護此更改歷史記錄。我知道文件A中有「跟蹤更改」功能，它可以創建一個包含更改歷史記錄的單獨工作表。但是，此工作表位於正在共享的工作簿A中。有沒有辦法在B中編寫一個宏來定期從A中提取這個更改歷史記錄，並將它放入帶有密碼的「xlsx」文件C中？

這裏的一點是我想阻止變更歷史被破壞。只有我有權訪問它。請注意，我無法創建文件「啓用宏」並在其中寫入宏。

謝謝。

Answer 1

當您打開共享WB，更新變化的信息，然後複製歷史記錄表

Sub Demo() 
    Dim wbShared As Workbook 
    Dim wbHistory As Workbook 

    Set wbHistory = Application.Workbooks.Open(_ 
     Filename:="\\Path\To\Your\History\FileC.xlsx", _ 
     Password:="Password") 

    Set wbShared = Application.Workbooks.Open(_ 
     FileName:="\\Path\To\Your\Shared\FileA.xlsx") 

    ' Generate History Sheet (maybe change xlAllChanges to suit needs) 
    With wbShared 
     .HighlightChangesOptions _ 
      When:=xlAllChanges, _ 
      Who:="Everyone" 
     .ListChangesOnNewSheet = True 
    End With 

    ' Copy out History to FileC 
    wbShared.Worksheets("History").Copy After:=wbHistory.Sheets(wbHistory.Sheets.Count) 

    ' Clean Up 
    wbShared.Close False 
    wbHistory.Close True 
End Sub 

Answer 2

使用您的私人工作簿，可以使用宏打開共享工作簿並將工作表再次複製到私人工作簿。

編輯：對不起，我錯過了部分關於它保存到一個文件C.

這裏是讓你開始：

Sub wbCopy() 
    Dim sharedWb, myWb As Workbook 
    Dim sharedWs As Worksheet 

    Set myWb = New Workbook 

    Workbooks.Open Filename:="192.168.0.10\sharedWorkbook.xls", ReadOnly:=True 
    Set sharedWb = "sharedWorkbook.xls" 
    Set sharedWs = sharedWb.Worksheets(2) 

    sharedWs.Copy myWb.Worksheets(Sheets.Count) 

    Workbooks("sharedWorkbook.xls").Close 

    myWb.SaveAs Filename:="File C.xls" 
End Sub