Ouvrir formulaire en lecture seul

[alex291184]

Bonjour,

Comment puis je faire pour ouvrir un formulaire en lecture seul selon un nom d'utilisateur rentré.
Soit avec le mot de passe a l'ouverture de session?
Soit avec un formulaire de saisie de mot de passe?
Je pense que la premiére solution est plus fiable, mais est ce possible

Merci d'avance

Alex

[Heureux-oli]

La première est plus facile !

pour récupérer le nom d'utilisateur, on utilise un fonction VBA "Environ"

Code :

1
2
3
4
 
Public Function Utilisateur() As String
Utilisateur = Environ("UserName")
End Function

Lors de l'utilisation il suffit de faire un test, on met le forumulaire en ReadOnly pour tout le monde, sauf pour les autorisés.

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub MonForm_Current()
Select case Utilistateur
Case "User1"
   Me.AllowEdits = True
Case "User2"
   Me.AllowEdits = True
Case Else
   Me.AllowEdits = False
End Select
End Sub