Ik wil graag dat degene die mijn bestand sluit middels de "X" button rechtsboven in Excel een andere messagebox krijgt dan je standaard krijgt of dezelfde echter als er op Yes wordt geklikt wil ik dat mijn bestand bepaald waar deze op wordt geslagen en de naam bepalen.
Ik kom een eind met een eigen YesNoCancel messagebox gecreeerd in "Public Sub Workbook_BeforeClose" maar die doet niet wat ik wil. Cancel werkt niet, Als ik op Yes klik slaat hij niet op maar sluit wel af.
Ik doe vast wat verkeerd.... met hele avond puzzelen is het eigenlijke script behoorlijk gewijzigd. Hoop gezocht en gepuzzeld, maar ik kom er niet uit.
Ik kom een eind met een eigen YesNoCancel messagebox gecreeerd in "Public Sub Workbook_BeforeClose" maar die doet niet wat ik wil. Cancel werkt niet, Als ik op Yes klik slaat hij niet op maar sluit wel af.
Ik doe vast wat verkeerd.... met hele avond puzzelen is het eigenlijke script behoorlijk gewijzigd. Hoop gezocht en gepuzzeld, maar ik kom er niet uit.
Code:
Public Sub Workbook_BeforeClose(Cancel As Boolean)
'Application.EnableEvents = False
'Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Sheets("Document").Range("B7") = "Ja" Then 'Voor de beheerder (ja) om aanpassingen aan het origineel te doen
Sheets("Document").Range("M1") = "" 'Versie terug naar leeg zetten (gebruik ik ipv datum en tijd als unieknr in bestand)
Exit Sub
Else
Dim Pad As String
Bestandnaam = Sheets("Document").Range("M1") 'versie- annex volgnummer staat in M1
Pad = Sheets("Document").Range("C3") & "\Calculatie " & Sheets("Calculatie").Range("C2") & " - " & Sheets("Calculatie").Range("B2") & " - " & Bestandnaam & ".xlsm"
MsgBox "Bestand opslaan op lokatie en met naam: " & Pad & " ? ", vbYesNoCancel, "Afsluiten Excelbestand"
If Response = vbYes Then
ActiveWorkbook.SaveCopyAs Filename:=Pad
Sheets("Document").Range("M1") = ""
Else
If Response = vbNo Then
ThisWorkbook.Saved = True
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
'hier moet ik iets met Cancel, op dit moment bij klikke op cancel wordt document gesloten
End If
End If
End If
End Sub
Laatst bewerkt: