Para KL

Hola DOORS,

Entonces prueba:

Private Sub CommandButton1_Click()
With ThisWorkbook
If .Sheets("Clave").Range("A1") <> txtclave.Text Then
MsgBox "Solo personal de An?lisis Administrativo" & _
" puede agregar empleados", vbInformation
txtclave.Text = ""
txtclave.SetFocus
Else
.Sheets("HojaConNombresYCodigos").Activate
Unload Me
End If
End With
End Sub

Es que en este caso tienes que calificar las hojas con el objeto de
workbook.

Saludos,
KL

P.D. A cuento de por lo que te ha dicho Hector sobre dirigir la pregunta a
una persona concreta: fijate que yo he estado viajando todo el dia de hoy y
aunque vi tu pregunta desde el PC del aeropuerto de Heathrow no consegui
postear mi respuesta. Mientras tanto, Manuel Romero y Fernando Arroyo
estaban contestando las preguntas a marchas forzadas - te aseguro que a
cualquiera de los dos hubiera bastado un minuto para darte la solucion :-))



"DOORS" wrote in message
news:

Hola KL,

El textbox se encuentra en un UserForm, probe los cambios y me da un error
2147024809 que dice No se encontro el elemento con el nombre especifico y
luego me da un error que dice subindice fuera del intervalo

gracias

"KL" escribio:

Hola DOORS,

Si el textbox "txtclave" se encuentra en la hoja "Clave" prueba lo
siguiente:

Private Sub CommandButton1_Click()
With ThisWorkbook.Sheets("Clave").Shapes("txtclave")
If Parent.Range("A1") <> .Text Then
MsgBox _
"Solo personal de An?lisis Administrativo puede agregar
empleados", _
vbInformation
.Text = ""
.SetFocus
Else
ThisWorkbook.Sheets("HojaConNombresYCodigos").Activate
Unload Me
End If
Wnd With
End Sub


Saludos,
KL


"DOORS" wrote in message
news:
> Saludos amigos, le expongo mi caso, tengo tiempo de estar con este
> problema,
> tengo un archivo en excel con una macro en un boton, el cual cuando se
> digita
> la clave correcta este le lleva a otra pagina del mismo libro, pero
> cuando
> monto el archivo en una intranet me da error 94 y error 1004,
> basicamente
> son
> errores de variable de objeto no establecida, pero ya no se que hacer,
> les
> adjunto el codigo del boton para ver si alguien me puede AYUDAR!!!!
>
> Gracias y a Todos y A Hector Miguel !!
> Private Sub CommandButton1_Click()
>
> If sheets("Clave").Range("A1") <> txtclave.Text Then
> MsgBox "Solo personal de Analisis Administrativo puede agregar
> empleados",
> vbInformation
> txtclave.Text = ""
> txtclave.SetFocus
> Else
> sheets("HojaConNombresYCodigos").Activate
> Unload Me
> End If
> End Sub
>
>