KTM
XLDnaute Impliqué
Bonjour chers tous
Je voudrais protéger les feuilles de mon classeur.
Pour chaque feuille toutes les cellules sont verrouillées sauf les zones en jaune .
La protection autorise uniquement la sélection des cellules.
Après avoir protéger mes feuilles il se trouve que certaines cellules verrouillées ne sont pas touchées par la protection. Surtout des cellules du deuxième tableau.
Mot de passe =0000
Je l'ai fais manuellement comme par macro mais le résultat est identique
Voici la macro utilisée:
J'ai besoin vraiment d'aide.
Merci!!!!!
Je voudrais protéger les feuilles de mon classeur.
Pour chaque feuille toutes les cellules sont verrouillées sauf les zones en jaune .
La protection autorise uniquement la sélection des cellules.
Après avoir protéger mes feuilles il se trouve que certaines cellules verrouillées ne sont pas touchées par la protection. Surtout des cellules du deuxième tableau.
Mot de passe =0000
Je l'ai fais manuellement comme par macro mais le résultat est identique
Voici la macro utilisée:
VB:
Sub protectPlage()
Dim sh As Worksheet
Dim i As Long
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
With sh
.Activate
.Unprotect "0000"
.Cells.Locked = True
End With
Next sh
For i = 1 To 4
With Worksheets(i)
.Activate
.Range("D3:D45,F3:H45,J3:J45").Locked = False
.Range("D28:D39,F28:H39,J28:J39").Locked = False
.Range("R7:AK23,R30:AK30,R36:AK40").Locked = False
.EnableSelection = xlNoRestrictions
.Protect "0000"
End With
Next i
End SubJ'ai besoin vraiment d'aide.
Merci!!!!!