Public Sub RestringeUsuario(FormAbierto As Form)
Dim IniUser As String
Dim i As Integer
IniUser = UCase(Mid(UsuaRio.Tipo, 1, 1))
'Las restricciones a los usuarios se guardan en
'la propiedad "Tag" de los controles. Si hay texto en esta
'propiedad, eso significa que el control es restringido,
'por lo que se debe verificar que el usuario actual esté
'autorizado.
For i = 0 To FormAbierto.Count - 1
If Len(FormAbierto(i).Tag) Then
If InStr(UCase(FormAbierto(i).Tag), IniUser) = 0 Then
FormAbierto(i).Visible = False
End If
End If
Next i
End Sub