VARIAS PREGUNTAS ESPERO ME AYUDEN...PARA HECTOR MIGUEL...

hola, alberto !

[primero]... ya 'ves que pasa'... cuando PERSONALIZAS una consulta...
-> solicitando que 'responda' una persona [o grupo]... 'en particular' ??? <\°|°/>
[seguamente]... alguien mas tenia alguna/s propuesta/s... pero se la/s ha 'guardado' :-((

una opcion ['barata' por 'sencilla'] es usar un userform que contenga SOLO un cuadro de texto y las siguientes lineas de codigo...

1) en un modulo de codigo 'general'...
Public Const Clave As String = "HOLA" '"EstA eS la clavE CorRecTa"
Public Respuesta As String

2) en el modulo de codigo del formulario...
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Or KeyCode = vbKeyEscape Then Unload Me
End Sub
Private Sub UserForm_Terminate()
Respuesta = TextBox1
End Sub

-> IMPORTANTE: en la ventana de las propiedades del control [p.e.] TextBox1
-> asigna la propiedad 'PasswordChar' -> con el caracter que aparecera al introducir datos en el textbox [p.e. el asterisco]
-> una vez entrada la clave [O NO], el usuario podra 'terminar' con el formulario pulsando ya sea {enter} o {escape}

3) en el modulo de codigo del libro [ThisWorkbook] -> suponiendo -solo- 3 intentos 'permitidos' :))
Private Sub Workbook_Open()
Dim Intentos As Byte
Pedir_clave:
Intentos = Intentos + 1
UserForm1.Show
If Respuesta = Clave Then GoTo Continuar
If Intentos < 3 Then GoTo Pedir_clave
MsgBox "Cerrando el libro por... 'Faltas a la Moral' :)) "
Exit Sub
Continuar:
MsgBox "Aqui continuas las acciones de 'preparacion' :) '"
End Sub

-> sustituye los 'MsgBox' por las acciones que consideres 'pertinentes' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. por el tema de 'compartir' el libro... -> 'pruebas' y comentas 'que sucede' ? :D

__ la consulta original __
Mostrar la cita

Hola a toda la comunidad, primero agradecerles porque gracias a ustedes he aprendido varias cosas acerca de excel...
Tengo varias preguntas y quisiera que me puedan ayudar, tengo excel 2003:
1) Tengo al inicio en la Thisworkbook lo siguiente:
Private Sub Workbook_Open()
Dim Clave As String
Clave = Trim(InputBox("Teclee la clave de acceso:"))
Select Case Clave
Case "HOLA": Sheets("HOME").Activate
Range("A1").Select
Case Else: MsgBox "No ha tecleado una clave correcta":
ThisWorkbook.Close
End Select
End Sub
PREGUNTA: Al introducir la contrase#a en lugar de que se vea "HOLA" se vea "****"
2) Sobre esta misma funcion puedo hacer una macro el cual... en lugar de cerrar el archivo y volverlo a abrir para solicitarme la clave
solo presione esa macro y me solicite la clave nuevamente sin cerrar el archivo.
3) El archivo se puede compartir en dos maquinas con red al mismo tiempo y que se guarden los cambios en ambas...