I am trying to make a hidden sheet viewable only with a password. Either of
the below approaches are somewhat effective except for one issue: The
"active" cell address in the hidden worksheet displays as "ghosting" in the
upper left corner of the window and the cell formula displays in the formula
bar while Excel waits for the Password. I hate to be so fussy, but I do not
like this!

Is there a more professional method to keep the sheet hidden but allow it to
be unhidden with a password?

Thanks.

'==========Alternative One==============
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
If Sh.Name = "KeepHidden" Then
Sh.Range("IV65536").Select
If InputBox("Enter Password") < "MyPassword" Then
Sh.Visible = False
End If
End If
Application.ScreenUpdating = True
End Sub


'==========Alternative Two -- Actually fires before Alternative One but the
results are the same ==============
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
If ActiveSheet.Name = "HiddenSheet" Then
If InputBox("Enter Password") < "MyPassword" Then
Sheets("HiddenSheet").Visible = False
End If
End If
Application.ScreenUpdating = True
End Sub