Open workbook properties on save.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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?
 
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
 
Back
Top