Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim dLastSaved As Date
On Error Resume Next
dLastSaved = Me.BuiltinDocumentProperties("Last save time").Value
If Err < 0 Then
Application.Dialogs(xlDialogProperties).Show
End If
End Sub

This code is to be pasted into ThisWorkbook Code

HTH
--
AP

"Colinhp" a écrit dans le message de
news: ...
Please can someone tell me what the VBA code is to open the Workbook
properties dialogue box when a user first saves an Excel workbook?