Melding verkrijgen bij afsluiten doc

[Yasminefan]

Hoi,

Is er een mogelijkheid om een melding (pop-up) te laten zien bij het afsluiten of opslaan van een word doc (formulier)?

Alvast bedankt,

Grjts

 

[OctaFish]

Je kunt een macro maken die bij de gebeurtenis Close van ofwel een specifiek document (als je de macro alleen bij dat document wilt gebruiken) of in de Normal.Dot als je hem altijd wilt gebruiken. De macro maak je in beide gevallen in de module ThisDocument. Een voorbeeldje:

Private Sub Document_Close()
Dim Check As Integer

    Check = MsgBox("Je staat op het punt om het docje te sluiten. Ookeej?", vbOKCancel)
    If Check = 1 Then
        ActiveDocument.Close
    Else
        SendKeys "{Esc}"
        Exit Sub
    End If
End Sub