Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Déprotéger des feuilles en fonction de l'utilisateur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tophe2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tophe2

XLDnaute Impliqué
Bonjour le forum

J'ai un fichier excel ou il y a une macro à l'ouverture du classeur ou en fonction de l'utilisateur il ouvre ou pas les onglets spécifiés dans la feuille Admin.

Pouvez me dire comment faire pour, en fonction de l'utilisateur on puisse désactiver les protections des feuilles ou de certaines feuilles et à la fermeture pour tous les utilisateurs une macro pour protéger 1 feuille bien précise surtout celle intitulé "Visuel".

Il y a également une macro à la fermeture cependant pour protéger le classeur activesheet.protect mais pour une feuille bien précise je ne sais pas !!

Le fichier est joint POUR ACTIVER TOUTES LES FEUILLES "TOCHE" en d4 et double cliquer.

Merci
Cordialement
et bon 14 juillet
Cristophe.
 

Pièces jointes

Trier par date Trier par votes
Re : Déprotéger des feuilles en fonction de l'utilisateur

Bonjour,

Pour reprendre un bout de la macro que tu as déjà :
Code: 
With Sheets("Admin")
    For i = 2 To Sheets("Admin").Range("A6500").End(xlUp).Row
        If UCase(.Cells(i, 1)) = UCase(Environ("UserName")) Then
        Sheets("xxx").unprotect
        End If
    Next
End With

Tu remplaces "xxx" par le nom de ta feuille, ou le numéro de la feuille (sans les "").
Tu peux multiplier les lignes si plusieurs feuilles (je crois que ca ne fonctionne pas Sheets(Array(... pour cela). S'il y a beaucoup de feuilles, tu peux aussi faire une boucle pour les (dé)protéger "en masse".



Pour protéger avec les options de base :
Sheets("xxx").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
(utilise l'enregistreur de macro pour adapter à ce que tu souhaites).
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
124
Eric 888
A
  • Question Question
XL 2021 Consommation en fonction des semaines
Réponses
1
Affichages
228
sylvanu
P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
1 K
cathodique
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
876
Phil69970
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
504
caseras
C
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
280
bsalv
B
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
557
micheldu52
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
I
  • Résolu(e)
Microsoft 365 Calculer et classer les factures en fonction de leur importance
2 3 4
Réponses
46
Affichages
2 K
job75
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
2 K
laurent950
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
  • Question Question
XL 2019 Regrouper les données de plusieurs feuilles dans une seule Feuille
Réponses
9
Affichages
777
Oneida
P
  • Question Question
Autres Evenements VBA - Fermeture du classeur (Croix grise sur fond jaune) / fermeture de l'application (Croix rouge sur fond blanc)
Réponses
12
Affichages
1 K
papat0
P
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
568
AtTheOne
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
682
Phil69970
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
946
marie3107
M
D
  • Résolu(e)
Autres Création classeurs de 3 feuilles avec une information à reporter.
Réponses
7
Affichages
731
dhyeres
D
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
748
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…