Deprotection des feuilles via VBA erreur

Bonjour,

Je souhaite protéger et déprotéger toutes les feuilles via vba.

Mais des que je souhaite déprotéger les feuilles j'ai un message d'erreur dont je comprends pas l'origine étant donné que le code est très simple. Je l'avais d’ailleurs récupéré sur ce forum

Merci d'avance si vous avez déjà eu ce soucis

Fichier en PJ.

Code :

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim wsd As Worksheet

  If ActiveSheet.ProtectContents = True Then
  reponse = MsgBox("Sheet protected", vbInformation + vbDefaultButton2, "Inbalance Application")
  Exit Sub

Else
  For i = 2 To Sheets.Count
    With Sheets(i)
      .Protect Password:="GD", DrawingObjects:=True, Contents:=True, Scenarios:=True
      .EnableSelection = xlUnlockedCells
    End With
  Next
End If
        reponse = MsgBox("Password lock", vbInformation + vbDefaultButton2, "Inbalance Application")
        Set wsd = ActiveWorkbook.Worksheets("DASHBOARD")
        wsd.Activate
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim wsd As Worksheet

If ActiveSheet.ProtectContents = True Then
  reponse = MsgBox("Sheet protected", vbInformation + vbDefaultButton2, "Inbalance Application")
  Exit Sub

Else
 For i = 2 To Sheets.Count
    With Sheets(i)
      .Unprotect Password:="GD"
    End With
  Next
End If       'message ok'
       reponse = MsgBox("Password Unlock", vbInformation + vbDefaultButton2, "Inbalance Application")
End Sub

bonjour,

Visiblement ce classeur a été protégé manuellement avec un autre mot de passe !

A+

Hello,

En effet cela semble être la source du probléme.

Merci pour le coup de main galopin01.