Discussion :

[jpenja]

Bonjour,
je n'arrive pas à oter le protection d'une feuille Excel(Excel97).il me renvoie une erreur 1004 .voici le code que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim motpasse As String
motpasse = UserForm1.TextBox1.Text
If motpasse <> "pierres" Then
MsgBox "mot de passe incorrect", vbCritical
UserForm1.Hide
End If
If motpasse = "pierres" Then
UserForm1.Hide
Feuil1.Unprotect motpasse
End If
End Sub

si quelqu'un peut m'aider.Merci

[ouskel'n'or]

Tu dois avoir autre chose, ta syntaxe devrait fonctionner. Sur 1997, j'avais ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Worksheets("Feuil1").Protect Password:="zizou"
    Worksheets("Feuil1").Unprotect Password:="zizou"

Erreur 1004 vient souvent d'une erreur de nom de feuille (?)
Peut-être que la Worksheets("Feuil1") n'aime pas qu'on l'appelle Feuil1 tout court
A tout hasard

[jpenja]

Merci ouskel'nor.Désolé de n'avoir pu répondre plus tôt(vacances).Cependant me^me avec ta synthaxe l'erreur ce produit tjs.Je ne vois vraiment pas.Si qqu'un à une autre idée?

[gedechp]

bonjour

je suis en excel 2003 j'ai teste le reponse de ouskel'nor et il n'y a pas de probleme

essaye pour voir de selectionner la feuille avant de proteger et de deproteger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Application.ScreenUpdating = False
Sheets("feuil1").Select
ActiveSheet.Unprotect Password:=motpasse
Application.ScreenUpdating = True
 
Application.ScreenUpdating = False
Sheets("feuil1").Select
ActiveSheet.Protect Password:=motpasse
Application.ScreenUpdating = True

Cordialement
GERARD

[Singular]

Est-il possible que le classeur soit lui aussi protégé? Si c'est le cas, tenter de déprotéger une feuille résulte en un échec de la méthode Unprotect de la feuille.