Comment Protéger un classeur de 150 feuilles en même temps ?

Bonjour,

Je souhaite protéger un classeur avec + 150 feuilles en même temps, pour éviter de faire feuille par feuille (sur Excel 2010)

Avec l'aide de Amadeus, j'ai utilisé : Code Module

Pour tout protéger Mot de passe à saisir (Le même que dans le Code) : 123

Code: Tout sélectionner

Sub Protection_Toutes_Feuilles()

Dim sht As Worksheet

Dim MotPass

MotPass = InputBox("Taper un mot de passe", 2)

For Each sht In ActiveWorkbook.Worksheets

sht.Protect Password:=(123), Contents:=True, _

DrawingObjects:=True, Scenarios:=True

Next sht

End Sub

Pour déprotéger

Code: Tout sélectionner

Sub Déprotection_Toutes_Feuilles()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

sht.Unprotect

Next sht

End Sub

Mais les feuilles ne sont pas protégées par un mot de passe, chaque utilisateur peut donc ôter la protection des feuilles sans le mot de passe 123 ?

Pourriez-vous svp me donner une solution ?

je souhaite que mon fichier soit non modifiable.

Merci d'avance pour votre aide.

Grég

Bonjour

Code Module

Pour tout protéger Mot de passe à saisir (Le même que dans le Code) Greg69100

Sub Protection_Toutes_Feuilles()
Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Taper un mot de passe", 2)
For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=(Greg69100), Contents:=True, _
DrawingObjects:=True, Scenarios:=True
Next sht
End Sub

Pour déprotéger

Sub Déprotection_Toutes_Feuilles()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Unprotect
Next sht
End Sub

Cordialement

bonjour Amadeus,

Merci bien !

Grég