Excel vba Before_Close

[function]

Καλημέρα παίδες,

 

Μία απλή (μάλλον) ερώτηση. Στο Before_Close event, πως γίνεται να παρέμβεις στα κουμπιά του Save, Don't Save, Cancel? Γνωρίζω πως υπάρχει ένα event Before_Save (που επηρρεάζει το ένα από τα τρία κουμπιά) αλλά πως θα καλέσω κώδικα όταν χτυπηθεί ένα από τα άλλα δύο??

 

Ευχαριστώ πολύ!

[function]

Καλημέρα παίδες,

 

Μία απλή (μάλλον) ερώτηση. Στο Before_Close event, πως γίνεται να παρέμβεις στα κουμπιά του Save, Don't Save, Cancel? Γνωρίζω πως υπάρχει ένα event Before_Save (που επηρρεάζει το ένα από τα τρία κουμπιά) αλλά πως θα καλέσω κώδικα όταν χτυπηθεί ένα από τα άλλα δύο??

 

Ευχαριστώ πολύ!

 

Νομίζω βρήκα απάντηση ...

 

==========================

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Do you want to save and make a backup?" ' Define message.

Style = vbYesNo ' Define buttons.

Title = "MsgBox Demonstration" ' Define title.

Help = "DEMO.HLP" ' Define Help file.

Ctxt = 1000 ' Define topic

' context.

' Display message.

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' User chose Yes.

'SaveWorkbookBackup ' Perform some action.

Else ' User chose No.

Me.Close savechanges:=False ' Perform some action.

End If

End Sub

====================================