ôter la protection d'une feuille après insertion du mot de passe.

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

xmid49

XLDnaute Nouveau
Bonjour,

Une nouvelle fois, je demande votre aide.
Mon problème est le suivant: Vu que le fichier est partagé, je souhaite protéger la feuille. Or, mes macros ne peuvent fonctionner si le classeur est protégé.

Pour pouvoir utiliser les macros, voici la démarche
1. clic sur un bouton vba
2. InputBox pour saisir le mot de passe
3. clic sur Ok
4. Affichage de la fenêtre UserForm1, qui me permet d'utiliser mes macros.

Je souhaiterais une macro avoir une macro pour ôter la protection du classeur en automatique après la validation du mot de passe.
Voici, mon code:

Private Sub CommandButton1_Click()
Dim MDP As String
MDP = InputBox("Saisissez ci dessous le mot de passe", "Qualité UAP", "****")
If MDP <> "MDP" Then
MsgBox "Vous n'avez pas saisi le bon mot de passe", vbOKOnly, "Qualité UAP"
Exit Sub
Else
UserForm1.Show
End If
End Sub

Je ne vous avoue que mes connaissances (limitées) sont dépassés. Quel code dois je insérer?
Je tiens à remercier tout les forumeurs qui m'ont aidé cette semaine, et plus particulièrement Youky(Bj). Je ne desespère pas maîtriser VBA un jour.


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

D
Réponses
3
Affichages
1 K
Retour