Como crear un CONTROL de ACCESO con formulario | VBA | Visual Basic

0

 



Hay varias razones por las que alguien puede querer poner un control de acceso a un libro de Excel:

  1. Protección de datos confidenciales: Si un libro de Excel contiene información confidencial o sensibles, es importante restringir el acceso a solo aquellas personas que tienen autorización para verla.
  2. Control de edición: Si varias personas están trabajando en el mismo libro de Excel, es posible que desees limitar quiénes pueden realizar cambios y evitar errores accidentalmente.
  3. Reglas de negocio: En algunos casos, puede haber requisitos legales o de negocios que requieran restringir el acceso a ciertos datos.
  4. Integridad de los datos: Al establecer un control de acceso, puedes asegurarte de que los datos se mantengan intactos y sin cambios no autorizados.
  5. Mejora de la eficiencia: Si muchas personas están trabajando en el mismo libro de Excel, es posible que un control de acceso ayude a mejorar la eficiencia al evitar conflictos y errores.

En general, el control de acceso puede ayudar a proteger tus datos y a mejorar la eficiencia de tu trabajo.




En el siguiente enlace podrás ver el tutorial paso a paso: https://youtu.be/Tchc3UJ0QM0


Código:

Private Sub btn_Entrar_Click()
    If txt_Password.Text = "AprendiendoeXcel" Then
        Me.Hide: UserForm2.Show
    End If
    
    MsgBox "Acceso Denegado", vbCritical, "Control de Acceso"
    Me.txt_Password = Empty
    Me.txt_Password.SetFocus
End Sub

Private Sub btn_Salir_Click()
    ActiveWorkbook.Close False
End Sub

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        Me.txt_Password.PasswordChar = ""
    Else
        Me.txt_Password.PasswordChar = "*"
    End If
End Sub

Sub userform_initialize()
    Me.txt_Password = Empty
    Me.txt_Password.SetFocus
    Me.CheckBox1 = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Exit Sub
    End If
End Sub

Descarga el código que buscas...




Entradas que pueden interesarte

Entradas más recientes

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel