Prevent "firing" of Inputbox

[SIGE]

Hello again,

I have some Worksheet event code:

Private Sub Worksheet_Activate()
Dim pwd As String:  pwd = "splashpassword"

Cells(1, 1).Activate 'Cells(Rows.Count, Columns.Count).Activate
    If LCase(Application.InputBox("What is the password to view this sheet?", "Access Password", "???")) <> pwd Then
        ShowAlways.Activate 'WRONG PASSWORD GOTO another Sheet
        MsgBox "Wrong password"
    Else
        Range("A1").Activate
    End If
End Sub

The code fires also when the sheet gets activated in the:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'I hide all other sheets and activate the SplashSheet.
End Sub

Any ideas on how I can prevent the Worksheet_activate code from firing when triggered by the Workbook_BeforeClose event?

Thanks in advance,
Sige

 

[VoG]

Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
'I hide all other sheets and activate the SplashSheet.
Application.EnableEvents = True
End Sub

 

[GTO]

You can use a Public Boolean, setting it to TRUE in BeforeClose. In your _Activate event, If not bolInProcess then...

 

[Yard]

Try:

The code fires also when the sheet gets activated in the:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[COLOR="Red"]Application.EnableEvents=False[/COLOR]
'I hide all other sheets and activate the SplashSheet.
[COLOR="Red"]Application.EnableEvents=True[/COLOR]
End Sub

Any ideas on how I can prevent the Worksheet_activate code from firing when triggered by the Workbook_BeforeClose event?

Thanks in advance,
Sige

 

[SIGE]

Ok Thanks, seems to do the trick!