Voorkom afsluiten via het kruisje

Normaal hebben wij alleen serieuze excel artikelen op excelweb. Dit keer hebben we echter een luchtigere variant, deze VBA code kan je ook goed gebruiken om een grap uit te halen bij iemand.
We gaan namelijk zorgen dat het kruisje waarmee je excel kan afsluiten niet meer werkt. Uiteraard gaan we er wel voor zorgen dat dit wel op een andere manier kan.

Vooraf is het handig om te weten hoe je het Ontwikkelaars tabblad krijgt en hoe je een macro toevoegt.

Video

 

Afsluiten voorkomen

Als eerst gaan we zorgen dat het kruisje niet meer werkt.

Open de VBA editor, sneltoets ALT + F11 om het snel te openen, en open ThisWorkbook. Plak hier de volgende code:

Public Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Afsluiten gaat niet met het kruisje" & _
vbNewLine & "Lees meer artikelen over Excel op www.excelweb.nl"
Cancel = True
End Sub

Dit was alles en nu is op het kruisje klikken niet meer gelijk aan afsluiten.
Melding bij het voorkomen van het afsluiten

Als je beetgenomen bent kun je ook heel simpel deze code verwijderen
 

Nieuwe knop maken om te kunnen afsluiten

Ik kan me voorstellen dat het toch nog wel handig is om het werkblad af te kunnen sluiten, daarom gaan we een nieuwe knop maken.
Open opnieuw de VBA editor en maak hier een nieuwe Module, plak daar deze code:

Public b_close As Integer
Public Sub s_close()
b_close = 1
Application.Quit
End Sub

Ga op het lint naar het tabblad Ontwikkelaars, klik hier op Invoegen en kies hier voor de knop.
Koppel hier de zojuist aangemaakte module aan (s_close).

Vervolgens gaan we de VBA code die we gemaakt hebben om het kruisje te deactiveren aanpassen. Open de VBA editor en open ThisWorkbook.
Pas de code iets aan en krijg dit (of plak dit gewoon):

Public Sub Workbook_BeforeClose(Cancel As Boolean)
If Not b_close = 1 Then
MsgBox "Afsluiten gaat niet meer" & _
vbNewLine & "Kijk voor meer informatie op www.excelweb.nl"
Cancel = True
End If
b_close = 0
End Sub

Je kunt nu gebruik maken van de nieuwe afsluit knop.

 

 

 

 

Nieuwsbrief

Als deze uitleg nuttig was, dan kan je je inschrijven voor onze nieuwsbrief.
Een keer per maand ontvang je de nieuwste berichten in je mailbox.
Klik hier om je in te schrijven.
Je kan ons ook volgen op Facebook en Twitter.

Dit vind je misschien ook leuk...

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *

Spring naar toolbar