A Dumb Input Box Question....

[ChiTownDiva]

The answer is probably in my face and I just can't see it, but here goes:

Private Sub Workbook_Open()
Application.WindowState = xlMaximized

Worksheets("Shamika Bailey&quot.Visible = False
Worksheets("Michael Brown&quot.Visible = False
Worksheets("LaJuanda Hall&quot.Visible = False
Worksheets("Jean Hedden&quot.Visible = False
Worksheets("Adria Lundy&quot.Visible = False
Worksheets("Yasu Talodin&quot.Visible = False
Worksheets("Melissa Thompson&quot.Visible = False
Worksheets("Lovita Whitfield&quot.Visible = False

Dim GetPassword As String
Dim IncorrectResponse As Long
Dim Response As Long

Password: GetPassword = InputBox("Enter Password", "Password&quot

If GetPassword = "pktspfk" Then
Worksheets("Shamika Bailey&quot.Visible = True
Worksheets("Michael Brown&quot.Visible = False
Worksheets("LaJuanda Hall&quot.Visible = False
Worksheets("Jean Hedden&quot.Visible = False
Worksheets("Adria Lundy&quot.Visible = False
Worksheets("Yasu Talodin&quot.Visible = False
Worksheets("Melissa Thompson&quot.Visible = False
Worksheets("Lovita Whitfield&quot.Visible = False

Else

IncorrectResponse = MsgBox("Incorrect Password", vbRetryCancel + vbCritical)

End If


If Password = 2 Then
Workbooks("Book5.xls&quot.Close SaveChanges:=False
End If

If IncorrectResponse = 4 Then
GoTo Password 'GetPassword

ElseIf IncorrectResponse = 2 Then
Workbooks("Book5.xls&quot.Close SaveChanges:=False

End If
End Sub


Okay, here's the dilema...when I click the cancel button on the "Password" input box, the "Incorrect Password" message box pops up. This is good. When I click "Retry" on the message box, the "Password" input box comes back up. This is also good. When I enter a correct password, the sheet becomes visible, but the "Password" box won't go away. It keeps prompting for a password. This is not good. I know the answer is staring me in the face, but I can't see it.

Does anybody out there see it?

Thanks.

ChiTownDivaus

 

[ChiTownDiva]

One more thing...how do I stop that "Disable/Enable" Macros box from popping up everytime I open the worksheet?

My security is set to Medium.

Thanks.

 

[rmikesmith]

ChiTownDiva,

I'm revamping your procedure; will put something together this evening. Gonna get rid of those ugly GoTo's.


Regards,
Mike

 

[snake1411]

As far as getting rid of the enable/disable macros pop-up, you need to create a digital signature and assign it to the project.

Here are some links about the subject:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnimo00/html/combat.asp

http://support.microsoft.com/default.aspx?scid=KB;en-us;217221&

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_dsvba.asp

http://msdn.microsoft.com/library/d.../en-us/odeopg/html/deovrsigningvbaproject.asp

 

[RobBroekhuis]

Here's how I might restructure it:

Private Sub Workbook_Open()
Dim GetPassword As String
dim PassWordOK as boolean
Application.WindowState = xlMaximized
Worksheets("Shamika Bailey&quot.Visible = False
Worksheets("Michael Brown&quot.Visible = False
Worksheets("LaJuanda Hall&quot.Visible = False
Worksheets("Jean Hedden&quot.Visible = False
Worksheets("Adria Lundy&quot.Visible = False
Worksheets("Yasu Talodin&quot.Visible = False
Worksheets("Melissa Thompson&quot.Visible = False
Worksheets("Lovita Whitfield&quot.Visible = False

do
PasswordOK=true
GetPassword = InputBox("Enter Password", "Password&quot
select case GetPassword
case "pktspfk"
Worksheets("Shamika Bailey&quot.Visible = True
case "kas;fdj"
Worksheets("Michael Brown&quot.Visible = true
...
case else
PasswordOK=false
if GetPassword="" then 'user didn't enter pwd (Cancel)
Workbooks("Book5.xls&quot.Close SaveChanges:=False
End If

if MsgBox("Incorrect Password", vbRetryCancel + vbCritical)=vbcancel then
Workbooks("Book5.xls&quot.Close SaveChanges:=False
End If
end select
loop until PasswordOK
End Sub

Rob