Dear all,

I'm trying to force users of certain files to keep a logbook updated. So when they try to save those files a message box appears and asks if they need to update the log book:

if yes Open the logbook files
if no save the current file.

It works very well for excel files but not for word files (i'll will also do it for PPT). The final idea is to insert this code in template for each file format.

I already thank you for your help

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Confirm As VbMsgBoxResult

Application.EnableEvents = False

Cancel = True

Confirm = MsgBox("Do you need to updtate de log book?", vbYesNo)

If Confirm = vbYes Then
Workbooks.Open ("C:\Users\Vincent\Desktop\test1.xlsx")

Else

ThisDocument.Save

End If
Application.EnableEvents = True

End Sub