XL 2016 Protéger déprotéger classeur avec bouton - Bug

[ALE37]

Bonjour le forum, j'ai un bug sur l'utilisation de cette macro qui consiste à protéger et déprotéger à l'aide d'un bouton un classeur.
La protection fonctionne mais pas la déprotection. D'avance merci de votre aide.

Sub protect_classeur()
Application.ScreenUpdating = False
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "toto" Then
MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
ThisWorkbook.Unprotect "toto"
With Worksheets("BD")
.Visible = xlSheetVisible
.Activate
.Unprotect "toto"
End With
ThisWorkbook.Protect "toto"
End Sub

 

[BI4ol]

Bonsoir,

Je pense que ta macro déprotège et protège le classeur à la suite, donc tu as l'impression que seul la protection fonctionne mais la déprotection fonctionne aussi...

En ajoutant un test pour savoir si le classeur est protégé et faire l'action inverse devrait fonctionner :

Sub protect_classeur()
Application.ScreenUpdating = False
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "toto" Then
MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
If ThisWorkbook.ProtectStructure Or ThisWorkbook.ProtectWindows Then
ThisWorkbook.Unprotect "toto"
With Worksheets("BD")
.Visible = xlSheetVisible
.Activate
.Unprotect "toto"
End With
else
ThisWorkbook.Protect "toto"
End If
End Sub

A essayer.
BI4ol

 

[jmfmarques]

Bonjour
La protection et la déprotection d'une feuille sont indépendantes, mot de passe inclus, de celles du classeur

 

[ALE37]

Bonsoir,

Je pense que ta macro déprotège et protège le classeur à la suite, donc tu as l'impression que seul la protection fonctionne mais la déprotection fonctionne aussi...

En ajoutant un test pour savoir si le classeur est protégé et faire l'action inverse devrait fonctionner :

Sub protect_classeur()
Application.ScreenUpdating = False
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "toto" Then
MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
If ThisWorkbook.ProtectStructure Or ThisWorkbook.ProtectWindows Then
ThisWorkbook.Unprotect "toto"
With Worksheets("BD")
.Visible = xlSheetVisible
.Activate
.Unprotect "toto"
End With
else
ThisWorkbook.Protect "toto"
End If
End Sub

A essayer.
BI4ol

Bonsoir,

Je pense que ta macro déprotège et protège le classeur à la suite, donc tu as l'impression que seul la protection fonctionne mais la déprotection fonctionne aussi...

En ajoutant un test pour savoir si le classeur est protégé et faire l'action inverse devrait fonctionner :

Sub protect_classeur()
Application.ScreenUpdating = False
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "toto" Then
MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
If ThisWorkbook.ProtectStructure Or ThisWorkbook.ProtectWindows Then
ThisWorkbook.Unprotect "toto"
With Worksheets("BD")
.Visible = xlSheetVisible
.Activate
.Unprotect "toto"
End With
else
ThisWorkbook.Protect "toto"
End If
End Sub

A essayer.
BI4ol

Bonsoir Bl4ol, la solution est Nickel! Merci pour ton aide.