Autoriser seulement certains utilisateurs à modifier un fichier [Résolu/Fermé]

Signaler
-
Messages postés
23555
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 octobre 2020
-
Bonjour,
Je n'arrive à trouver la réponse nulle part ailleurs alors je fais appel à vous.
J'aimerais être capable de faire en sorte que tous les utilisateurs puissent consulter le fichier excel mais que seuls moi + une autre personne puisse le modifier sans à avoir à mettre un mot de passe à chaque fois.
Je sais que c'est possible mais je n'y arrive pas
excel 2010 je précise.


1000 mercis

2 réponses

Messages postés
23555
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 octobre 2020
6 400
Bonjour,

sans à avoir à mettre un mot de passe à chaque fois

'Révision / Permettre la modification des plages', tu sélectionnes toute la feuille et tu ajoutes ton identifiant dans les autorisations d'accès.
Et tu protèges ta feuille avec ou sans mot de passe.
eric
bonjour Eriiic,
merci pour ta réponse
J,ai suivi les étapes mais ça à partir du moment où je clique sur protéger la feuille, je n'arrive plus à éditer (alors que j,ai ajouté mon nom au préalable).
C,est un casse-tête pour moi !
Anne
Messages postés
23555
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 octobre 2020
6 400
Quand tu as cliqué sur Ajouter dans l'onglet Sécurité clique sur 'Avancé...' puis sur 'Rechercher' et choisi dans la liste pour mettre un identifiant valide.
oui, excel a trouvé mon user sur le réseau
Messages postés
23555
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 octobre 2020
6 400
C'est bon ?
Si oui pense à mettre en résolu (en haut vers ton titre)
Bonjour

voici une macro pour 1 Admin
Sub TestAdmin()
Utilisateur = Environ("username")
Admin = "Maurice"
   If Utilisateur = Admin Then
      For Each Feuil In Worksheets
         Feuil.Select
         Feuil.Unprotect
      Next
   Else
      For Each Feuil In Worksheets
         Feuil.Select
         Feuil.Protect
      Next
   End If
End Sub

A+
Maurice