πολύ γενικό το ερώτημά σου εάν θέλεις το "βιβλίο1" στο κλείσιμό του να αποθηκεύει το "βιβλίο2" τότε θα πρέπει στο συμβάν
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
να του λές να σου κλείνη το βιβλίο2 το ερώτημα είναι που είναι το βιβλίο2 ????? στην ίδια διαδρομή ???? άρα θα κάνεις χρήση της εντολής application.activeworkbook.path ή θα πρέπει να έχει κάπου ορίσει την διαδρομή από πρίν ?????
επίσης λες να αποθηκεύει κάποια δεδομένα από το ωβιβλίο1 πολύ γενικό μάλλον πρέπει να μας πεις λεπτομέρειες