Witajcie.

Nie ma odpowiedzi. Ja w tym czasie szukałem różnych rozwiązań i chciałbym rozszerzyć moje pytanie.

Na razie moje rozwiązanie wygląda następująco:

Private Sub Workbook_Open()
    On Error Resume Next
    Application.DisplayAlerts = False


Ustalam, gdzie jest podłączany plik bazy:
 
    x = ActiveWorkbook.Path & "\Baza.xlsx"


Na wszelki wypadek usuwam zakładkę Baza w dokumencie głównym:

    Workbooks("Master.xlsm").Sheets("Baza").Delete


Otwieram plik, z którego skopiuję zawartość do zakładki Baza:

    Workbooks.Open (x)

Kopiuję bazę do dokumentu głównego, do zakładki Baza:

    Workbooks("Baza.xlsx").Sheets("Baza").Copy Before:=Workbooks("Master.xlsm").Sheets(1)

Zamykam bazę:
 
    Workbooks("Baza.xlsx").Close SaveChanges:=False
   
'  Kill x (zastanawiałem się, czy nie trzeba zamknąć procesu)
 
 
  Application.DisplayAlerts = True

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Dim x As String
        On Error Resume Next
        Application.DisplayAlerts = False
 
       
        x = ActiveWorkbook.Path & "\Baza.xlsx"
          
        Application.DisplayAlerts = False


Zapisuję backup bazy, ponieważ użytkownik mógł dokonać zmian:

     Workbooks("Baza.xlsx").Close SaveChanges:=False
        Name x As x & "_bkp_" & Format(Date + Time, "yyMMdd_hhMMss")
 
        With Workbooks("Master.xlsm").Sheets("Baza")

            .SaveAs ActiveWorkbook.Path & "\Baza.xlsx", FileFormat:=xlOpenXMLWorkbook
            .Delete
       
        End With
       
        Workbooks("Baza.xlsx").Close SaveChanges:=False
      
 
    
   
End Sub

Rozwiązanie wstępnie wydaje się działać. Czy Waszym zdaniem można coś ulepszyć?

Czy trzeba to zrobić inaczej? Bardziej efektywnie?

Załączam pliki Master (plik główny) i baza (plik, z którego kopiowane/ładowane są dane do zakładki baza w pliku Master).

Z góry dziękuję za pomoc i wszelkie uwagi,

Jacek.