Hide Command Buttons & Worksheets

[iecalpoly]

I cannot figure out why my code will not hide command buttons or worksheets based on a given password. I have attached the code so please help me out.

Private Sub Workbook_Open()
Dim strUser As String, strPassword As String
strUser = InputBox("Enter User Name")
strPassword = InputBox("Enter Password")
Select Case strUser
Case "O"
If strUserPassord = "O4" Then
ActiveWorkbook.Sheets("Main").Select
O.Enabled = True
GOODBYE.Enabled = True
S.Enabled = False
R.Enabled = False
A1.Enabled = False
A3.Enabled = False
A4.Enabled = False
Sheets("Set4").Visible = True
Sheets("Set5").Visible = False
Sheets("Set61").Visible = False
Sheets("Set63").Visible = False
Sheets("Set64").Visible = False
Sheets("Set7").Visible = False
Sheets("File").Visible = False
Sheets("Fild").Visible = True
Sheets("Ts").Visible = True
Sheets("26d").Visible = False
Sheets("263d").Visible = False
End If
Case "S"
If strUserPassord = "O5" Then
ActiveWorkbook.Sheets("Main").Select
O.Enabled = False
GOODBYE.Enabled = True
S.Enabled = True
R.Enabled = False
A1.Enable = False
A3.Enabled = False
A4.Enabled = False
Sheets("Set4").Visible = False
Sheets("Set5").Visible = True
Sheets("Set61").Visible = False
Sheets("Set63").Visible = False
Sheets("Set64").Visible = False
Sheets("Set7").Visible = False
Sheets("File").Visible = False
Sheets("Fild").Visible = True
Sheets("Ts").Visible = True
Sheets("261d").Visible = False
Sheets("263d").Visible = False
End If
Case "A"
If strUserPassord = "O6" Then
ActiveWorkbook.Sheets("Main").Select
O.Enabled = False
GOODBYE.Enabled = True
S.Enabled = False
R.Enabled = False
A1.Enable = True
A3.Enabled = True
A4.Enabled = True
Sheets("Set4").Visible = False
Sheets("Set5").Visible = False
Sheets("Set61").Visible = True
Sheets("Set63").Visible = True
Sheets("Set64").Visible = True
Sheets("Set7").Visible = False
Sheets("File").Visible = False
Sheets("Fild").Visible = False
Sheets("Ts").Visible = True
Sheets("261d").Visible = True
Sheets("263d").Visible = True
End If
Case "R"
If strUserPassord = "O7" Then
ActiveWorkbook.Sheets("Main").Select
O.Enabled = False
GOODBYE.Enabled = True
S.Enabled = False
R.Enabled = True
A1.Enable = False
A3.Enabled = False
A4.Enabled = False
Sheets("Set4").Visible = False
Sheets("Set5").Visible = False
Sheets("Set61").Visible = False
Sheets("Set63").Visible = False
Sheets("Set64").Visible = False
Sheets("Set7").Visible = True
Sheets("File").Visible = False
Sheets("Fild").Visible = True
Sheets("Ts").Visible = True
Sheets("261d").Visible = False
Sheets("263d").Visible = False
End If
 
Case Else
MsgBox "Incorrect password or user name", vbCritical, Password
Application.Quit
End Select
End Sub

 

[Norie]

Why are you checking the value of a non-existent variable strUserPassord?

Shouldn't you be checking strPassword?

 

[iecalpoly]

I have corrected that but still does not matter. Thank you for catching that.

 

[Norie]

Eh, there is no code for hiding command buttons as far as I can see.

The only code i can see for hiding anything seems to be for worksheets.

Also what exactly are O, GOODBYE, S, R etc?

 

[iecalpoly]

They are command buttons and I want to either hide them or disable them based upon the User name & Password.

 

[iecalpoly]

I have reduced it to just look for the strUser but now I get run-time error 424 Object Required.

 

[Norie]

How did you create these command buttons?

I'm pretty sure you can't refer to them in the way you are trying, however you created them.

Could be wrong about that mind you.

Does the code work at all?

ie does it do some things but not exactly what you want?

If that's the case I would suggest you set up a breakpoint (F9) or two and then step through the code (F8) and see what's happening.

 

[iecalpoly]

I created the command buttons using the toolbar and then assigned code to them to open certain spreadsheets. When you open the workbbok, it prompts you to enter your user name and then once you enter the correct one nothing happens. When I step into the code I recieve the run-timm error 424 Object required so it fails once it goes to the command button enable.

 

[Norie]

Which toolbar did you use to create the command buttons?

If you are talking about command buttons on a worksheet then you could have created them with the Forms toolbar or the Control Toolbox toolbar.

Which one you used might have a bearing on what you are trying to do and how you refer to them.

I've got a feeling that whatever one you used you can't just refer to them by name.

 

[BC...]

Eh, there is no code for hiding command buttons as far as I can see.

The only code i can see for hiding anything seems to be for worksheets.

Also what exactly are O, GOODBYE, S, R etc?

If the buttons are form buttons, I think the only way to hide them is to format them to move and size with cells and hide the row/col the button is in.