Privilegios diferentes según usuarios en excel
Es una pregunta para Dante Amor
Hola
Me gustaría que en función de con qué usuario entro en el libro de excel, tuvieran privilegios diferentes.
Hay tres usuarios:administrador, usuario1, usuario2
El administrador debe poder hacer todo, es decir añadir, modificar y eliminar registros mientras que los otros dos usuarios solo deben poder modificar registros que ya han sido creados o añadidos pero no podrían eliminar o crear nuevos. Evidentemente sí pueden buscar registros es decir tener permisos de lectura.
1 Respuesta
H o l a:
Voy a agregar en la hoja de usuarios, los botones a los que tendrá permiso cada usuario:
El código sería el siguiente al momento de activar el formulario1
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h1 = Sheets("TITULOS")
Set h2 = Sheets("FILTRO")
Set h5 = Sheets("USUARIOS")
h2.Cells.Clear
For i = 1 To h1.Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem h1.Cells(1, i)
If i > 1 Then ComboBox2.AddItem h1.Cells(1, i)
Next
'
FiltrarTodo h1, h2
'
For Each boton In Controls
If TypeName(boton) = "CommandButton" Then
boton.Enabled = False
End If
Next
Set b = h5.Columns("C").Find("X", lookat:=xlWhole)
If Not b Is Nothing Then
uc = h5.Cells(b.Row, Columns.Count).End(xlToLeft).Column
If uc < 4 Then uc = 4
For j = 4 To uc
boton = h5.Cells(b.Row, j)
Controls(boton).Enabled = True
Next
End If
'
ComboBox1.SetFocus
ComboBox2.Enabled = False
cambio = False
End SubS a l u d o s
¡Gracias!
Funciona perfectamente incluso el tercer usuario me da la posibilidad de que solo tenga privilegios de solo lectura... Te lo agradezco.
Estupendo, gracias de nuevo
