Eerst werkblad afsluiten voordat ik het bestand kan afsluiten

[DieBe]

Ik heb een bestand met twee bladen. Blad 2 is verborgen en kan ik met een knop op blad 1 zichtbaar maken. Voordat het bestand afgesloten mag worden moet blad 2 weer onzichtbaar gemaakt worden. Dit heb ik nu geregeld met een knop op blad 2 waarmee ik het blad weer verberg. Op blad 1 zit een knop met "afsluiten" waarmee het bestand wordt afgesloten. Probleem is dat als ik op blad 2 zit het bestand kan afsluiten met het kruisje. Dat mag dus niet. Het kruisje kan ik buitenwerking stellen met een code in ThisWorkbook maar dan werkt de macro op blad 1 niet meer.
Wie kan de code aanpassen?Bekijk bijlage werkblad2 afsluiten.xlsm

 

[edmoor]

Zet dit in de ThisWorkbook sectie:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Blad2").Visible = False
End Sub

Dan wordt Blad2 altijd onzichtbaar gemaakt bij het sluiten van het document.

 

[DieBe]

Bedankt voor de snelle reactie.
Ik heb de code ingevoegd en het werkt (had ook niet anders verwacht van u).
Weer wat geleerd.