versie nummer

[trucker10]

Met knop en msgbox zie je dat zo

Sub tst()
    Dim Ans As VbMsgBoxResult

    Ans = MsgBox("Ben je zeker wil je de datum wijzigen ? ", vbYesNo + vbExclamation, "Wijzigen datum ")
    If Ans = vbYes Then
    MsgBox ("je kan de macro voor datum hier plaatsen ") ' haal dit weg en zet onderstaande in de plaats ( haal het afkappingsteken weg )
     'Sheets("Blad1").Range("A1") = Date
    If Ans = vbNo Then
        Exit Sub
    End If
    End If
End Sub

Je kan hem ook in de event macro ThisWorBook zetten

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
de rest van de macro

 

[Warme bakkertje]

@ Daniël
Hij kan iets compacter

Sub tst()
    If MsgBox("Ben je zeker wil je de datum wijzigen ? ", vbYesNo + vbExclamation, "Wijzigen datum ") = vbYes Then
        Sheets("Blad1").Range("A1") = Date
    Else: Exit Sub
    End If
End Sub