syntaxe de la méthode Protect / Unprotect

[cabsen]

Bonjour le forum,

Je rencontre un petit soucis de syntaxe :

Const pass As String = "mot de passe"

Private Sub activer_protection()

    Windows("sem07_08_v12b.xls").Activate

        Sheets("accueil").Protect Password:="pass"
    
        For i = 1 To 52
        If i < 10 Then i = "0" & i
            Sheets("sem" & i).Protect Password:="pass"
        Next i
    
End Sub

Private Sub desactiver_protection()

    Windows("sem07_08_v12b.xls").Activate

        Sheets("accueil").Unprotect Password:="pass"
    
        For i = 1 To 52
        If i < 10 Then i = "0" & i
            Sheets("sem" & i).Unprotect Password:="pass"
        Next i

End Sub

Vous vous doutez de mon problème
Le mot de passe réellement appliqué est "pass" et non "mot de passe" !
Je ne parviens pas à trouver la syntaxe pour attribuer une constante à la méthode Password…

Si quelqu'un sait faire, je suis tout ouïe.

D'avance merci.

 

[Staple1600]

Re : syntaxe de la méthode Protect / Unprotect

Bonjour

Et comme ça

Const pass As String = "mot de passe"
Private Sub activer_protection()
Windows("sem07_08_v12b.xls").Activate
Sheets("accueil").Protect pass
    For i = 1 To 52
        If i < 10 Then i = "0" & i
            Sheets("sem" & i).Protect pass
        Next i
    End Sub

Private Sub desactiver_protection()
Windows("sem07_08_v12b.xls").Activate
Sheets("accueil").Unprotect pass
    For i = 1 To 52
        If i < 10 Then i = "0" & i
            Sheets("sem" & i).Unprotect pass
        Next i
End Sub

 

[cabsen]

Re : syntaxe de la méthode Protect / Unprotect

Ok !

Comme d'habitude, je cherchais trop compliqué…

Grand merci Staple1600