protéger/déprotéger plusieurs feuilles en une fois

Je voudrais protéger/déprotéger par macro d'un coup toutes les feuilles de mon classeur

sub Protéger()
 ' Protection automatique de toutes les feuilles d'un classeur
 Dim nombre As Integer
 nombre = ActiveWorkbook.Sheets.Count
 Application.ScreenUpdating = False
 For i = 1 To nombre
 Worksheets(i).Protect password="blabla"
 Next i
 end sub
sub Déprotéger()
 ' Déprotection automatique de toutes les feuilles d'un classeur
 Dim nombre As Integer
 nombre = ActiveWorkbook.Sheets.Count
 Application.ScreenUpdating = False
 For i = 1 To nombre
 Worksheets(i).Unprotect password="blabla"
 Next i
 end sub

Auteur :

Mots clefs associés à cette page : , ,

erreur dans les formules

Par Liaudat, le ven 22/01/2010 - 09:43.

Merci pour cette macro fort utile.

Pour Excel 2003, ces formules ne marchent pas. Je pense qu'il y a une petite erreur de frappe...

De plus, il est plus aisé de faire une boîte de demande de mot de passe.

Mes propositions :
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

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

correction

Par Misange, le ven 22/01/2010 - 13:04.

Merci d'avoir signalé la faute de frappe, c'est corrigé.
Ces macros fonctionnent parfaitement sous excel 2003. Quel est le souci que vous rencontrez ? Merci d'être plus précis que "ça ne marche pas".
L'approche que vous proposez a son intérêt mais celle de cette page a justement pour but d'éviter de devoir entrer un mot de passe quand on veut modifier par macro le contenu d'une feuille protégée ...

Misange