pasar a otra hoja

[hacmurphy]

Hola, tengo este codigo en un boton de una hoja (menu) es para habilitar a las personas a ver o no el informe de la hoja (ventas).
lo que tengo es:

sub ...btn_click()
dim mientrada as string
mientrada=inputbox("ingrese contraseña", vbokonly)
if mientrada <> "contraseña" then
msgbox "acceso denegado"
exit sub
if mientrada = "contraseña" then
-----------
end if
end if
end sub




me falta ese codigo que iria en -.--------- que hace que la macro, una vez que esta colocada la contraseña correcta, al presionar el boton ok me lleve a la hoja "Ventas"

he probado con goto, activate, con select, pero no doy con la clave!!

 

[Ronald Moore]

Creo que la lógica de su código no es correcta. Pruebe esto:

Sub ...btn_click()
  Dim mientrada As String
  mientrada = InputBox("ingrese contraseña", vbOKOnly)
  If mientrada = "contraseña" Then
    Worksheets("Ventas").Activate
  Else
    MsgBox "acceso denegado"
  End If
End Sub

 

[Greg Truby]

Primamente ese otro IF está sobrando, ya que puso el Exit Sub si el contraseña no está válido no se necesita la segunda evaluación condicional.

Segundo, ¿la hoja está escondido? Si así es entonces debe haber algo como

 Sheets("Ventas").Visible = True

Y al guardar (save) el cuaderno habría que esconderlo otra vez (o esconderlo al abrir el cuaderno).

Otra cosita - para recibir un contraseña es mejor usar un UserForm con un control TextBox donde se puede poner la propiedad de PasswordChar como un asterisco y así otras no pueden ver lo que está tecleado.

 

[hacmurphy]

muchas gracias!!!!! ya esta listo