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

--
Kstalke
-----------------------------------------------------------------------
Kstalker's Profile: http://www.excelforum.com/member.php...fo&userid=2469
View this thread: http://www.excelforum.com/showthread.php?threadid=38663

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 procedu

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" wrote:


I am trying to stop the navigation and password request of a command
button happening when the specified criteria are meet ==If
Sheets("NMLists").Range("r5") = "NM 4" Then== . However if the
criteria are not meet then i need the password and navigation function
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 Sub


--
Kstalker
------------------------------------------------------------------------
Kstalker's Profile: http://www.excelforum.com/member.php...o&userid=24699
View this thread: http://www.excelforum.com/showthread...hreadid=386632

Thanks Rowan

Worked exactly as I needed.

Regards

Kristan


--
Kstalker
------------------------------------------------------------------------
Kstalker's Profile: http://www.excelforum.com/member.php...o&userid=24699
View this thread: http://www.excelforum.com/showthread...hreadid=386632