Auto_open inputbox before showing the sheets

[Vepa]

Hello,

I would like to create a following functionality to my workbook. When the
user opens the Excel file he sees only inputbox for password but not the
contens of the activesheet in the Excel file. I have the following code:

Private Sub auto_open()
Dim answer As String
answer = InputBox("Insert password")
If answer = "abc" Then
Sheets("Sheet1").Activate
Else
ActiveWorkbook.Close
End If
End Sub

However, the problem is that now Excel already shows the information in the
active sheet and I would like to prevent this. Any ideas how to do this?

Best regards
Vepa

 

[Tom Hutchins]

Try this:

Private Sub auto_open()
Dim answer As String
Application.Visible = False
answer = InputBox("Insert password")
If answer = "abc" Then
Sheets("Sheet1").Activate
Application.Visible = True
Else
Application.Visible = True
ActiveWorkbook.Close
End If
End Sub

However, this is far from foolproof. All the user has to do is disable
macros before opening the workbook. There is not much security in Excel once
the user has the workbook open. Why not save the workbook with a password
required to open it?

Hope this helps,

Hutch