Un code qui fonctionne très peu de temps

**SoukerBoy** · 14/01/2014, 10h35

Bonjour à tous,

Je travaille pour un groupe qui m'a demandé de verrouiller certaines cellules et pas d'autre à l'ai de 2 boutons et d'un mot de passe. J'ai donc codé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub

Ça fonctionne mais après 1 ou 2 semaines d'utilisation, j'ai un message d'erreur 1004 comme si le mot de passe n'était plus le même.

Si quelqu'un à une idée, je suis preneur.

Cordialement,

Gérard

**Daniel.C** · 14/01/2014, 12h50

Bonjour,

Il suffit d'une faute de frappe pour protéger les feuilles avec ce qui aura été saisi. Si j'ai bien compris, on peut saisir ce qu'on veut comme mot de passe.