Mot de passe sur onglet

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 !

CmzxNéné

XLDnaute Nouveau
Bonjour,

Quelle est la solution la plus simple pour mettre un mot de passe sur le clic à l'ouverture d'un onglet ?

Explications : j'ai (pour faire simple) 2 onglets - 1 avec un formulaire et 1 avec les données.

Sur celui des données, je souhaiterais mettre un mot de passe pour qu'une personne habilitée puisse voir et modifier éventuellement les données.

Merci de votre aide.
Cdt
 
Re : Mot de passe sur onglet

Bonjour Banzaï,

Merci de ton conseil mais ce n'est pas ce que je recherche.
Je veux laisser apparent les 2 onglets mais au clic sur celui des données, je souhaiterais avoir une fenêtre avec saisie d'un MDP pour afficher les données.

Cdt
 
Re : Mot de passe sur onglet

Salut,

mets le code suivant dans la feuille que tu souhaites "proteger"

Private Sub Worksheet_Activate()

Dim MyPassword As String
MyPassword = "toto" 'là tu choisi le mot de passe que tu souhaite appliqué a ta feuille

Range("AA65000").Select 'choisi une cellule qui est loin de ton champ de donnees
Sheets("donnees").Protect Password:=MyPassword

Message = InputBox("Mot de passe:", "Entrer le mot de passe pour consulter la feuille")
If Message = MyPassword Then
Sheets("donnees").Unprotect Password:=MyPassword
Sheets("donnees").Range("A1").Select
Exit Sub
Else: Sheets("formulaire").Select

End If

End Sub

Bon, c'est un peu a l'arrache, mais ca fais le boulot que tu demande 😉

le hic avec la methode inputbox, c est que les caractere que tu tappes ne sont pas cacher, si tu as absolument besoin que les caracteres soient de jolis ****, tu dois passer par un userform

a++
 

Pièces jointes

Dernière édition:
- 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
19
Affichages
480
Réponses
4
Affichages
119
Réponses
2
Affichages
532
Retour