Comment protéger un classeur avec+150 feuilles en même tps?

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

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

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

Essaie ce Code dans ThisWorkbook, enregistre, ferme et re-ouvre.

Private Sub Workbook_Open()
Dim i As Byte
    Application.ScreenUpdating = False
   For i = 1 To Worksheets.Count
            Worksheets(i).Protect Password:=123
    Next
End Sub

Cordialement

Bonjour Amadeus,

encore merci !

ça fonctionne.

salutations

Grég

par contre, si je change le mdp 123 par autre chose ca ne fonctionne plus .... Exemple abc

on peut ôter la protection sans le mdp !

pourquoi ?

merci

Grég

Bonjour

Tu as du oublier d'enregistrer, fermer et re-ouvrir.(ici avec abc)

Cordialement