Opties bij sluiten bestand

[don42]

Beste helpers,

Is het mogelijk dat er via VBA nog een macro kan worden genegeerd/aangeroepen bij sluiten van een bestand?

bij het sluiten van een bestand roep ik via:
(stukje van mijn code)

Private Sub Workbook_Open()
Dim lastrow As Integer
lastrow = Sheets("Activiteit-4").Cells(Rows.Count, 13).End(xlUp).Row + 1
If Excel.Application.UserName = "xxx xxxxx" Then
Else
Sheets("Activiteit-4").Cells(lastrow, 13) = Excel.Application.UserName
Sheets("Activiteit-4").Cells(lastrow, 14) = Now
Sheets("Activiteit-4").Cells(lastrow, 16) = Environ("computername")
End If
If Excel.Application.UserName = "xxx xxxxx" Then
Else
Call sendsms
End If
End Sub

hiermee krijg ik elke keer als iemand anders (van mijn colegae) het bestand sluit een sms bericht
(voor mijn eigen naam heb ik het getackeld)
het zou dus handig zijn als alleen een sms bericht verstuurd zou worden als er op "opslaan" geklikt wordt
en bij "niet opslaan" de macro niet aangeroepen wordt
ik dacht aan iets als vbYes - vbNo van een msgbox
maar weet niet of het ook mogelijk is bij het sluiten van een bestand
meestal wordt in het bestand alleen maar gezocht naar gegeven en niets opgeslagen
dan is een sms dus overbodig.

Wie helpt mij verder?

 

[JEC.]

Er is ook een BeforeSave event

 

[don42]

Moet ik dit dan ipv close uitvoeren?

 

[VenA]

Waarom 2 x hetzelfde?

If Excel.Application.UserName = "xxx xxxxx" Then

Excel. mag je weglaten.

If Application.UserName <> "xxx xxxxx" Then
sendsms
Else
iets anders
end if

 

[don42]

Ga er mee aan de slag
kijken hoe ver ik kom voor nu alvast bedankt voor jullie hulp

 

[don42]

Bedankt voor jullie hulp
met BeforeSave is het gelukt