afsluitmacro excel

[arnoderuig]

Ik zoek een methode die regelt dat een Excelsheet pas kan worden afgesloten als een bepaalde celwaarde gelijk is aan nul. Wil men het sheet afsluiten en is de waarde van de cel niet gelijk aan nul dan moet een pop-up verschijnen met een tekst. Na klikken op de pop-up moet de celwijzer gaan naar een bepaalde cel.

Hoe kan ik dit regelen?

 

[leofact]

Dat is vrij makkelijk te verwezenlijken met een event (gebeurtenis) macro
In dit geval in de BeforeClose event.
Zet de volgende code in de module ThisWorkbook (dus niet in een aparte module)
Er wordt gekeken naar cel a1 op blad 1.
Zie ook bijlage

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Blad1.Cells(1, 1) > 0 Then
        Cancel = True
            Call MsgBox("Excel wordt niet afgesloten" _
                & vbCrLf & "waarde A1 is groter dan 0", vbExclamation, "Afsluiten")
                    Blad1.activate
                       Blad1.Cells(1, 1).Select
    End If
End Sub

mvg leo

 

[arnoderuig]

Geweldig bedankt. Je moet het maar weten.