Периодически сохраняйте изменения общей книги в изолированной книге

Question

У меня есть две книги, общий «xlsx» файл A, который хранит данные и без обмена файлом «xlsm» B, который содержит мои макросы. Я хотел бы регулярно отслеживать изменения в файле A и защищать паролем эту историю изменений. Я знаю, что в файле A есть функция «Отслеживание изменений», и она может создать отдельный лист, содержащий историю изменений. Однако этот лист находится в книге A, которая используется совместно. Есть ли способ написать макрос в B, чтобы периодически извлекать эту историю изменений из A, помещать ее в файл xlsx C с паролем?

Здесь я хотел бы предотвратить изменение истории изменений. Только у меня есть к нему доступ. Обратите внимание, что я не могу сделать файл «Макрос включен» и писать макрос в нем.

Thank.

Answer 1

При открытии общего доступа ВБ, обновить данные изменения, затем скопируйте лист истории

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

Используя свою личную книгу, вы можете использовать макросы, чтобы открыть общую книгу и снова скопировать лист в частную книгу.

EDIT: К сожалению, я пропустил часть о сохранении его в файл 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