seleccionar texto

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

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

.

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

dim i as integer

despues:

Private Sub CommandButton1_Click()
If i = 2 Then
MsgBox "Contraseña Incorrecta " & i + 1 & "

& 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

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

.

.

Muchas gracias Gilro & Gemma ,probé como me dicen en un
libro nuevo y funciona aunque la parte de los 3 intentos
no funciona bien pues si se pone 2 claves incorrecta y la
3 es correcta se cierra el formulario.

Al abrir el libro lo primero que se abre es el formulario
del password ,si es correcto puedo desde un menu que
adicione cambiar si esta en modo de lectura a edición y
viceversa.
Me puse a probar y logre lo que deseo aunque no se si
es de la forma correcta pero funciona.
codigo:

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"

TextBox1.Text=""
TextBox1.SetFocus
SendKeys "{tab}" 'con esto

End If

??? Que es lo que hace en el codigo & Chr(10)
?? y & "Proceso NO Permitido!!!", 16
el 16 que no se.
Atte J.LL.R

Para que te funcione, el enfoque deberas mandarlo desde
otro control en este caso el codigo va en un boton y

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

que quiero,tengo un formulario en mi libro con un

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

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

.

.

.

Que tal J.LL.R, por el lado de los tres intentos...tienes
razon tendre que revisar esta parte del codigo, con
respecto al codigo del msgbox te dire que el "Chr(10)"
es una especie de "enter" dentro del cuadro de mensaje

te envia el msgbox, observa que si lo quitas, el mensaje
saldra en una sola linea, y el 16 no es mas que la forma
corta de poner estilo al boton en este caso es
el "vbCritical" (solo la imagen del tache)

Saludos
Gilro & Gemma

Muchas gracias Gilro & Gemma ,probé como me dicen en un
libro nuevo y funciona aunque la parte de los 3 intentos
no funciona bien pues si se pone 2 claves incorrecta y

3 es correcta se cierra el formulario.

Al abrir el libro lo primero que se abre es el

del password ,si es correcto puedo desde un menu que
adicione cambiar si esta en modo de lectura a edición y
viceversa.
Me puse a probar y logre lo que deseo aunque no se si
es de la forma correcta pero funciona.
codigo:

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"

TextBox1.Text=""
TextBox1.SetFocus
SendKeys "{tab}" 'con esto

End If

??? Que es lo que hace en el codigo & Chr(10)
?? y & "Proceso NO Permitido!!!", 16
el 16 que no se.
Atte J.LL.R

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 " &

+

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

.

.

.

.