Error sheet when macro's are not activated

J

jgmiddel

Hi,

Im working on a file, the macro's must be actived. If not, the use
should see the "errorsheet". I guess this should be the "openingspage
of the file. If the macro's are activated, the sheet Welcome i
selected. So far so good.

But, the screen blinks and that is not what I want. Is there
solution?

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 Su
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Word macro that can call cells out of Excel for a find and replace 0
Making a macro only work on certain files 2
Drawn Objects Q 2
Closing running sub from a different one 3
Workbook_BeforeSave 8
Object variable or with Block variable not set 9
Code execution is correct but generates Error :The file you aretrying to open is in a different form 3
Runtime error 1004: Select method of worksheet class failed 3

Top