VBA Protégrer plusieurs feuilles par différents mots de passe + mot de passe général

  • Initiateur de la discussion Initiateur de la discussion hetanna
  • 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 !

hetanna

XLDnaute Nouveau
Bonjour à tous,

Je me creuse pour trouver une macro.

J'ai un fichier excel 2010 de suivi commercial regroupant 10 onglets différents avec les chiffres de 10 personnes différentes sur un réseau. L'idée c'est que chaque commercial met à jour ses chiffres mais sans voir ceux des autres.

Je voudrais donc :

- Que chaque feuille soit protégée par un mot de passe différent empêchant la lecture de la feuille ( pas la modification ) de façon à ce que chaque commercial n'ait accès qu'à sa feuille grâce a son mot de passe personnel.

- Si possible avoir un mot de passe "générique" ( pour moi ) qui débloquerait toutes les feuilles d'un coup.

Je pense que VBA s'impose... je démarre sur la VBA et j'ai du mal en compilation en particulier...

HELP!!!! 🙂)))

Merci à tous!
 
Re : VBA Protégrer plusieurs feuilles par différents mots de passe + mot de passe gén

Bonjour hetanna

Voici un exemple simple ou le code est dans Workbook_Open

Si tu tape 123456789 tu auras toutes les feuilles
Si tu tape 1234 tu auras la feuille1

Private Sub Workbook_Open()
For i = 1 To Sheets.Count - 1
Sheets("Feuil" & i).Visible = False
Next i
moncode = InputBox("Entrez votre code ?")
If moncode = "1234" Then
Sheets("Feuil1").Visible = True
End If
If moncode = "12345" Then
Sheets("Feuil2").Visible = True
End If
If moncode = "123456" Then
Sheets("Feuil3").Visible = True
End If
If moncode = "1234567" Then
Sheets("Feuil4").Visible = True
End If
If moncode = "123456789" Then ''ICI TON CODE PAR EXEMPLE"
For i = 1 To Sheets.Count
Sheets("Feuil" & i).Visible = True
Next i
End If

End Sub

A+
 
- 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

Réponses
17
Affichages
469
Réponses
6
Affichages
686
Réponses
4
Affichages
871
Réponses
7
Affichages
1 K
Retour