command button

[Kstalker]

I am trying to stop the navigation and password request of a comman
button happening when the specified criteria are meet ==I
Sheets("NMLists").Range("r5") = "NM 4" Then== . However if th
criteria are not meet then i need the password and navigation functio
to continue.

Help as always greatly appreciated.

Kristan

Private Sub CommandButton4_Click()
If Sheets("NMLists").Range("r5") = "NM 4" Then
Worksheets("navigation").Select
Else
End If
Set Password = Sheets("NMLists").Range("z5")
If InputBox("Please Enter the Password" _
, "Enter Password") _
<> Password Then
Sheets("Navigation").Select
Else
CommandButton4.Caption = Sheets("NMLists").Range("r5")
Worksheets("NM 4").Select
Me.Visible = True
End If
End Su

 

[Guest]

It's a little difficult to work out exactly what you are trying to do but you
might want to move the first End If down to the end of the procedure:

Private Sub CommandButton4_Click()
If Sheets("NMLists").Range("r5") = "NM 4" Then
Worksheets("navigation").Select
Else
Set Password = Sheets("NMLists").Range("z5")
If InputBox("Please Enter the Password" _
, "Enter Password") _
<> Password Then
Sheets("Navigation").Select
Else
CommandButton4.Caption = Sheets("NMLists").Range("r5")
Worksheets("NM 4").Select
Me.Visible = True
End If
End If
End Sub

Hope this helps
Rowan

 

[Kstalker]

Thanks Rowan

Worked exactly as I needed.

Regards

Kristan