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

Fermé

Juju - 13 oct. 2021 à 12:11
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 13 oct. 2021 à 15:53

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:

Inclure directement un nom d'utilisateur lors de l'ouverture de mon fichier
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Impossible de supprimer un fichier - Guide
Ouvrir un fichier .bin - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 13 oct. 2021 à 14:27

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à

Juju
13 oct. 2021 à 15:10

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...

Juju > Juju
13 oct. 2021 à 15:12

pardon je voulais dire nom et pas mdp

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Juju
13 oct. 2021 à 15:53

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!

@+

Discussions similaires

document html

Annuaire portable gratuit à partir d'un nom

PB pour trouver le nom d'une image

Comment trouver un numéro à partir du nom et prénom

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