Grey Out Screen VBA

[MarkCBB]

Hello there,

I am using the following code as a sort of Login page, however I would like to make it look a little bit more professional by greying out the background of excel, like it does when its not responding.

Private Sub Workbook_Open()
Dim Pass1 As String
Dim pss2 As String
pass2 = "Password"


Pass1 = InputBox("Please enter the user password below", "PASSWORD")
If Pass1 <> pass2 Then
Do
Pass1 = InputBox("You have entered in an incorrect password, please try again", " INCORRECT PASSWORD")
Loop Until Pass1 = pass2
Else
Sheet4.Range("A2") = Application.UserName
Sheet4.Range("B2").Speak
End If
End Sub

can anyone help me?

 

[RoryA]

Have a look at the code in the sample workbook here.

 

[MarkCBB]

Thank you very much.