Bonjour,

Je me tourne vers le forum car je souhaiterai vérouiller toutes les cellules de mon classeur qui contient plusieurs onglets sauf certaines cellules de deux couleurs.

Comme j'ai certaines cellules fusionnées, le code que j'utilisais bug. J'ai essayé avec celui ci-dessous mais j'ai le message d'erreur suivant : "wrong number of arguments or invalide property assignement" sur la ligne For Each Cel In Worksheets(y).Range

Avez-vous une solution sur ce code ou une solution différente pour ce problème?

Merci par avance et bonne semaine à tous.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Lock_Cells()
 
Dim Cel As Range
Dim Plage As Range
Dim Mg As String, TB
 
'dévérouiller toutes les feuilles
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="xxx"
Next
 
 
 
 
 
For y = 1 To Worksheets.Count
Set Plage = Range("a1:EZ1000")
For Each Cel In Worksheets(y).Range
 
 
 
Mg = Cel.MergeArea.Address
TB = Split(Mg, ":")
Range(Mg).Locked = True
 
If Range(TB(0)).Interior.ColorIndex = 24 Or Range(TB(0)).Interior.ColorIndex = 36 Then
'MsgBox Sheets(y).Name & " " & n.Address
Cel.Locked = False
End If
Next
Next
 
        'vérouiller toutes les feuilles
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="xxx"
 
Next
      End Sub