Bloquear labels de los forms desde un login
Publicado por fjpg (135 intervenciones) el 02/09/2020 11:12:37
Hola, buenas.
Acudo a ustedes de nuevo para otra duda/problema.
He conseguido hacer un lolin multiusuario con contraseña.
Se mostrar u ocultar hojas del libro dependiendo si el usuario es admin, invitado o usuario.
Pero desearia, bloquear (enabled) labels de mis forms para evitar eliminar o modificar clientes, articulos, proveedores, etc....
Pero estoy estancado!!
Dejo el codigo del login:
Dim Fila, Final, i As Long
Fila = Hoja10.Range("A" & Rows.Count).End(xlUp).Row + 1
Final = Fila - 1
'Validar campos vacios
If cbx_usuario = "" Or txt_contrasena = "" Then
MsgBox "Debes de rellenar todos los campos.", vbCritical, "CONTROL DE ALMACÉN"
Exit Sub
End If
' Si encuentra el usuario
For i = 2 To Final
If UCase(cbx_usuario) = UCase(Hoja10.Cells(i, 3)) And UCase(txt_contrasena.Text) = UCase(Hoja10.Cells(i, 4)) Then
MsgBox "¡¡ Bienvenido al sistema " & Me.cbx_usuario & " !!", vbInformation, "CONTROL DE ALMACÉN"
Hoja10.Cells(2, 9) = Me.cbx_usuario
Unload Me
Application.Visible = True
frm_inicio.Show
Exit Sub
End If
Next i
' Si no encuentra el usuario
MsgBox "Usuario y/o contraseña incorrecto", vbCritical, "CONTROL DE ALMACÉN"
cbx_usuario = Empty
txt_contrasena = Empty
cbx_usuario.SetFocus
Acudo a ustedes de nuevo para otra duda/problema.
He conseguido hacer un lolin multiusuario con contraseña.
Se mostrar u ocultar hojas del libro dependiendo si el usuario es admin, invitado o usuario.
Pero desearia, bloquear (enabled) labels de mis forms para evitar eliminar o modificar clientes, articulos, proveedores, etc....
Pero estoy estancado!!
Dejo el codigo del login:
Dim Fila, Final, i As Long
Fila = Hoja10.Range("A" & Rows.Count).End(xlUp).Row + 1
Final = Fila - 1
'Validar campos vacios
If cbx_usuario = "" Or txt_contrasena = "" Then
MsgBox "Debes de rellenar todos los campos.", vbCritical, "CONTROL DE ALMACÉN"
Exit Sub
End If
' Si encuentra el usuario
For i = 2 To Final
If UCase(cbx_usuario) = UCase(Hoja10.Cells(i, 3)) And UCase(txt_contrasena.Text) = UCase(Hoja10.Cells(i, 4)) Then
MsgBox "¡¡ Bienvenido al sistema " & Me.cbx_usuario & " !!", vbInformation, "CONTROL DE ALMACÉN"
Hoja10.Cells(2, 9) = Me.cbx_usuario
Unload Me
Application.Visible = True
frm_inicio.Show
Exit Sub
End If
Next i
' Si no encuentra el usuario
MsgBox "Usuario y/o contraseña incorrecto", vbCritical, "CONTROL DE ALMACÉN"
cbx_usuario = Empty
txt_contrasena = Empty
cbx_usuario.SetFocus
Valora esta pregunta


0