syntaxe de la méthode Protect / Unprotect

cabsen · 31 Janvier 2008

Bonjour le forum,

Je rencontre un petit soucis de syntaxe :

Code:

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 · 31 Janvier 2008

Re : syntaxe de la méthode Protect / Unprotect

Bonjour

Et comme ça

Code:

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 · 31 Janvier 2008

Re : syntaxe de la méthode Protect / Unprotect

Ok !

Comme d'habitude, je cherchais trop compliqué…

Grand merci Staple1600

syntaxe de la méthode Protect / Unprotect

cabsen

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

cabsen

XLDnaute Junior

Discussions similaires