mabool
Nouveau membre
Bonjour,
je suis nouveau dans la programmation, et j'essaie de faire des petits scripts pour me faciliter la vie dans Excel.
Je voulais faire notamment un scrit pour verrouiller/déverrouiller toutes les feuilles d'un classeur Excel, avec demande de password.
Je crois que j'ai réussi en ce qui concerne le verrouillage. Par contre, pour déverrouiller, j'ai des problèmes.
Je voudrais pouvoir faire en sorte qu'on demande à l'utilisateur de saisir le password. S'il est faux, il faut qu'il le ressaisisse. Sinon, c'est bon, on déverrouille tout. Mais je n'y arrive pas !
En fait, j'arrive à tout déverrouiller sans password, mais je n'arrive pas à intégrer le fait de faire saisir/ressaisir le code.
Voici mon script :
[cpp]Sub Unprotect_all_sheets()
' déprotège toutes les feuilles du classeur avec le code défini auparavant par l'utilisateur
' Demander la saisie du mot de passe
Do
restart:
MotDePasse = InputBox("Enter correct password")
If MotDePasse <> Password Then
GoTo restart
Loop Until MotDePasse = Password
' Déverrouiller toutes les feuilles si le mot de passe saisi est correct
Dim I As Integer
For I = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(I).Unprotect (MotDePasse)
Next I
End Sub[/cpp]
Pouvez vous m'aider et m'expliquer ce qui ne va pas ?
Merci...
MaBooL
je suis nouveau dans la programmation, et j'essaie de faire des petits scripts pour me faciliter la vie dans Excel.
Je voulais faire notamment un scrit pour verrouiller/déverrouiller toutes les feuilles d'un classeur Excel, avec demande de password.
Je crois que j'ai réussi en ce qui concerne le verrouillage. Par contre, pour déverrouiller, j'ai des problèmes.
Je voudrais pouvoir faire en sorte qu'on demande à l'utilisateur de saisir le password. S'il est faux, il faut qu'il le ressaisisse. Sinon, c'est bon, on déverrouille tout. Mais je n'y arrive pas !
En fait, j'arrive à tout déverrouiller sans password, mais je n'arrive pas à intégrer le fait de faire saisir/ressaisir le code.
Voici mon script :
[cpp]Sub Unprotect_all_sheets()
' déprotège toutes les feuilles du classeur avec le code défini auparavant par l'utilisateur
' Demander la saisie du mot de passe
Do
restart:
MotDePasse = InputBox("Enter correct password")
If MotDePasse <> Password Then
GoTo restart
Loop Until MotDePasse = Password
' Déverrouiller toutes les feuilles si le mot de passe saisi est correct
Dim I As Integer
For I = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(I).Unprotect (MotDePasse)
Next I
End Sub[/cpp]
Pouvez vous m'aider et m'expliquer ce qui ne va pas ?
Merci...
MaBooL