vraag bij sluiten excel

[Leenroc]

Hallo allen,

Ik wil wanneer ik een bepaald bestand in excel wil sluiten, dat hij met een popup komt met een beaaplde vraag.
Wanneer je deze met ja beantwoordt slaat hij het bestand op en sluit het bestand.
Zonee dat hij het bestand niet afsluit en wellicht meteen naar een bepaalde cel gaat.

voorbeeld vraag is :

heb je cel a1 wel ingevuld?

Grt Leenroc.

 

[Hoornvan]

Leenroc,

Kijk hier eens
en klik op Think before you ink of zoiets.
op de site bij vba code

 

[Leenroc]

Dat is wel ongeveer wat ik bedoel.
Maar dan wanneer een bestand afgesloten wordt.

Aangezien ik niet zo handig ben met VB kan iamnad mij hiermee helpen?

 

[Roncancio]

Bij deze:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
afsluiten = MsgBox("Heb je cel A1 ingevuld?", vbQuestion + vbYesNo, "Cel ingevuld?")
If afsluiten = vbYes Then
    ActiveWorkbook.Close savechanges:=True
Else
    Range("A1").Activate
    Cancel = True
End If
End Sub

Deze code plaatsen bij ThisWorkbook in Visual Basic Editor.

Extra - Macro - Visual Basic Editor.
Beeld - ProjectVerkenner
In het menu kiezen voor ThisWorkbook.

Met vriendelijke groet,


Roncancio

 

[Leenroc]

Helaam top!

Alleen moet ik nu twee keer op de knop ja klikken om hem af te laten sluiten klopt dat?

Alvast bedankt!

 

[Roncancio]

Helaam top!

Alleen moet ik nu twee keer op de knop ja klikken om hem af te laten sluiten klopt dat?

Alvast bedankt!

Je hebt gelijk.
Ik heb de code aangepast.

Dim IsClosed As Boolean, IsOpen As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
afsluiten = MsgBox("Heb je cel A1 ingevuld?", vbQuestion + vbYesNo, "Cel ingevuld?")
If afsluiten = vbYes Then
    ActiveWorkbook.Save
    IsClosed = True
Else
    Range("A1").Activate
    Cancel = True
End If
End Sub

Nu hoef je maar 1 keer te klikken.

Met vriendelijke groet,


Roncancio

 

[Leenroc]

Top bedankt!!!!