Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

seleccionar texto

06/04/2005 - 19:43 por J.LL.R | Informe spam
Ayuda Hacer una pregunta
Hola amigos del foro,tengo otra duda y no logro hacer lo
que quiero,tengo un formulario en mi libro con un cuadro
de texto, lo uso para dar permiso a editar o solo lectura
con 2 claves,lo que quiero hacer es que si ponen una clave
distinta ,de el mensaje de error y seleccione lo escrito.
Muchas gracias por su interes.
J.LL.R
este es el codigo

Private Sub PWD()

If UCase(TextBox1.Text) = "SECRETA" Then
Worksheets("servicio").Unprotect
PassWord:="secreta" 'desproteje la hoja
UserForm1.Hide 'oculta el formulario
ElseIf TextBox1.Text = "uim" Then
Worksheets("servicio").Protect PassWord:="secreta"
'protege la hoja
UserForm1.Hide
MsgBox " Modo de lectura "
Else

cntr = cntr + 1
If cntr = 3 Then
MsgBox "lo siento...Clave incorrecta...adios"
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
MsgBox "Clave incorrecta le quedan " & 3 - cntr & "
oportunidades"
'aqui quiero que si ponen una clave incorrecta se
seleccione
TextBox1.SetFocus 'da raro una vez si y otra no
End If

End If
End Sub
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Gilro & Gemma
06/04/2005 - 20:59 | Informe spam
Para que te funcione, el enfoque deberas mandarlo desde
otro control en este caso el codigo va en un boton y este
le manda el enfoque al textbox

Prueba el siguiente codigo espero te sirva :

declara "i" como entero (esto en la parte de declaraciones)

dim i as integer

despues:

Private Sub CommandButton1_Click()
If i = 2 Then
MsgBox "Contraseña Incorrecta " & i + 1 & " Intentos,"
& Chr(10) _
& "Proceso NO Permitido!!!", 16
i = 0
ThisWorkbook.Saved = True
ThisWorkbook.Close
Exit Sub
Else
Set pass = TextBox1
If pass = "secreta" Then
Sheets("servicio").Unprotect ("secreta")
UserForm1.Hide
ElseIf pass = "uim" Then
Sheets("servicio").Protect ("secreta")
UserForm1.Hide
MsgBox " Modo de lectura "
Else
MsgBox "Contraseña Incorrecta, Intento " & i +
1, 16
i = i + 1
TextBox1.SetFocus
TextBox1.Text = ""
End If
End If
End Sub

Hola amigos del foro,tengo otra duda y no logro hacer lo
que quiero,tengo un formulario en mi libro con un cuadro
de texto, lo uso para dar permiso a editar o solo lectura
con 2 claves,lo que quiero hacer es que si ponen una


clave
distinta ,de el mensaje de error y seleccione lo escrito.
Muchas gracias por su interes.
J.LL.R
este es el codigo

Private Sub PWD()

If UCase(TextBox1.Text) = "SECRETA" Then
Worksheets("servicio").Unprotect
PassWord:="secreta" 'desproteje la hoja
UserForm1.Hide 'oculta el formulario
ElseIf TextBox1.Text = "uim" Then
Worksheets("servicio").Protect PassWord:="secreta"
'protege la hoja
UserForm1.Hide
MsgBox " Modo de lectura "
Else

cntr = cntr + 1
If cntr = 3 Then
MsgBox "lo siento...Clave incorrecta...adios"
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
MsgBox "Clave incorrecta le quedan " & 3 - cntr & "
oportunidades"
'aqui quiero que si ponen una clave incorrecta se
seleccione
TextBox1.SetFocus 'da raro una vez si y otra no
End If

End If
End Sub

.

Preguntas similares

 

Busqueda sugerida :