Crear cuenta
Private Function ComprobarUsuario(usuario As String, clave As String) As Boolean
Dim ultfila As Long
Dim f As Long
Dim texto, texto2 As Stringultfila = Usuarios.Range("A" & Rows.Count).End(xlUp).Row
For f = 2 To ultfilatexto = Usuarios.Range("D" & f)
texto2 = Usuarios.Range("E" & f)
If UCase(texto) = UCase(usuario) And texto2 = clave Then
NomUsAct = Usuarios.Range("B" & f) & " " & Usuarios.Range("C" & f)
EsAdmin = Usuarios.Range("F" & f)
ComprobarUsuario = TrueElse
ComprobarUsuario = FalseEnd If
Next f
End Function
Private Sub UserForm_Initialize()
Me.Caption = Titulo
Me.Label3.Caption = "Bienbenid@ " & NomUsAct
If EsAdmin <> "S" Then
Me.ListBox2.Visible = False
'O talvezMe.ListBox2.Height = 0
'O algo mas esteticoMe.ListBox2.ColumnWidths = "180pt;71pt;0pt;71pt"
Else
Me.ListBox2.Visible = False
Me.ListBox2.Height = 72
Me.ListBox2.ColumnWidths = "180pt;71pt;71pt;71pt"
End If
End Sub
Private Sub UserForm_Initialize()
Me.Caption = "Usuario actual - " & Title
If Range("ActiveUsr").value <> "Administrador" Then
Me.ListBoxUsuarioActual.ColumnCount = 3
Me.ListBoxUsuarioActual.ColumnWidths = "80;80;150"
Me.ListBoxUsuarioActual.ColumnHeads = True
Me.ListBoxUsuarioActual.RowSource = "Datos! f2:h2"
Else
Me.ListBoxUsuariosSistema.ColumnCount = 4
Me.ListBoxUsuariosSistema.ColumnWidths = "150;80;80;80"
Me.ListBoxUsuariosSistema.ColumnHeads = True
Me.ListBoxUsuariosSistema.RowSource = "Datos! a2:d11"
Me.ListBoxUsuarioActual.ColumnCount = 3
Me.ListBoxUsuarioActual.ColumnWidths = "80;80;150"
Me.ListBoxUsuarioActual.ColumnHeads = True
Me.ListBoxUsuarioActual.RowSource = "Datos! f2:h2"
End If
End Sub