ERROR DE SEGURIDAD EN FORMULARIO DE INGRESO DE USUARIO

[Vaneguz12]

Buenas Tardes

Quisiera saber con que código podría eliminar esta falencia en mi archivo de contraseña de ingreso.

Cuando abro el archivo y le doy salir (X) (1.png), me abre el libro y aparece otro recuadro que dice "contro de stock 2.1" ya esta abierto. Si lo vuelve a abrir... (2.png) si le doy No, me salta toda la seguridad de ingreso que tenia, me deja manipular el libro.

Quiero que este error no siga saliendo.

[Héctor Miguel]

si eres de los que creen que "una imagen dice más que mil palabras"... te puedo asegurar que...
hablando de excel, "un ejemplo en un libro de excel bien se merece más de mil imágenes"

que te parece si expones el código que aplicas desde que se abre ese libro y como administras lo que se responda en tu formulario de bienvenida ?

es más seguro que probable que NO tengas establecido ningún "control de errores" o cancelaciones (?)

saludos,
hector.

[Vaneguz12]

Buenas tardes, estas en lo cierto

este es el código:

Private Sub Frame1_Click()

End Sub

Private Sub CommandButton1_Click()
If Trim(TextPass.Text) = "" Then
    MsgBox "Ingrese contraseña", vbExclamation, "Alerta"
    TextPass.SetFocus
    Exit Sub
End If
If Trim(TextPass.Text) = "AdmCupulas" Then
    MsgBox "Acceso permitido", vbInformation, "Ok"
    Application.Visible = True
    End
Else
    MsgBox "Los datos ingresados no son correctos, intentelo de nuevo", vbExclamation, "Alerta"
End If
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub CommandButton2_Click()
Application.Visible = True
Workbooks(NombreArchivo).Close Savechanges:=False
End Sub

Private Sub TextPass_Change()

End Sub

Private Sub UserForm_Click()

End Sub
 

[Héctor Miguel]

Hace 58 minutos , Vaneguz12 dijo:

este es el código:

en los códigos que expones...

1) no alcancé a ver nada que indique una (RE)apertura del archivo
- probablemente en instrucciones o procedimiento llamados posteriormente ?

2) en el segundo If del CommandButton1_Click tienes una instrucción: => End
- lo que esto ocasiona es que:
- a) se cancela TODO código en ejecución (por consiguiente)
- b) si después hacías derivaciones a otros códigos (quizá preparaciones, protecciones, etc.) "adiós Nicanor"

3) si (realmente) buscas seguridad, algunos tips:
- a) NUNCA muestres un MsgBox "informando"... NADA !!!
- b) con eso le das la oportunidad al usuario de cancelar todo código en ejecución (al provocar errores)
- c) cancela la posibilidad de que el usuario termine tu userform desde la [ X ] o pulsando {esc}

lo demás... no quedó "a la vista" (?)

saludos,
hector.