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.
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.