Sheet voor error: macro's niet ingeschakeld

[jgmiddel]

Ik werk aan een bestand waarin de macro's ingeschakeld moeten zijn. Staan deze niet ingeschakeld, moet de gebruiker een error krijgen. Ik heb daar een werkblad met de foutmelding voor ingericht.Ik heb in ThisWorkbook het volgende opgenomen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Error").Visible = True
Sheets("Error").Select
Sheets("Welkom").Visible = xlSheetVeryHidden
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Welkom").Visible = True
Sheets("Welkom").Select
Sheets("Error").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

Echter, het scherm flikkert toch. Iemand enig idee hoe dit op te lossen?

 

[jzeedijk]

Hoi JGMiddel,

Application.ScreenUpdating = False
...
Sheets("Error").Select
...

Oftewel: "Blijf staan en ga naar ..."

In de oplossing die gekozen is, is dit onvermijdellijk (denk ik).

Jeroen

 

[jgmiddel]

Ik ga een andere oplossing maken: de opmerking dat de macro's niet zijn ingeschakeld kan ook in een rij, die verborgen wordt. Hyperlinkje erin naar de error-sheet, klaar!!