Inclure directement un nom d'utilisateur lors de l'ouverture de mon fichier

Juju -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

Je dois réaliser un fichier excel qui sera utilisé par plusieurs personnes.
Je souhaite faire en sorte que lors de l'ouverture du fichier une box apparaisse où il faut indiquer son nom d'utilisateur, sans quoi le fichier ne s'ouvrira pas. Et derrière faire en sorte que cette case soit verrouillée et non modifiable. L'idéal pour moi serait que la case où le nom de la personne doit être renseignée s'incrémente automatiquement en fonction du user de la session windows mais je ne sais pas si c'est réalisable...
Merci à tous pour vos conseils!




Configuration: Windows / Chrome 94.0.4606.81
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

une manière toute simple:

Faire Alt F11 pour accéder à l'éditeur

Allez dans ThisWorkbook en haut à gauche et mettre ce code: 

Option Explicit
Private Sub Workbook_Open()
Dim mdp As String
mdp = InputBox("Entrez votre UserName: ", "Utilisateur")
If mdp = Application.UserName Then
 Sheets("Feuil1").Activate
Else
ThisWorkbook.Close savechanges:=False
End If
End Sub


avec Excel on peut facilement contourner les mots de passe!

Voilà


0
Juju
 
Merci beaucoup pour ce conseil!

Lorsque j'insère ce code dans ma macro, une box apparaît à l'ouverture avec une demande de mot de passe, cependant peu importe le mdp que je rentre la page se ferme automatiquement, j'ai dû rater une étape...
0
Juju > Juju
 
pardon je voulais dire nom et pas mdp
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > Juju
 
Il faut rentrer l'UserName: 

Sub test()
MsgBox Application.UserName
End Sub


si tu veux un mot de passe pour chaque utilisateur, c'est une autre approche!

@+
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses