Bonjour

Je patauge complétement. j'aimerai utiliser une macro qui pour toutes les feuilles d'un classeur, verrouille les cellules contenant des formules et laisse déverrouillées les autres cellules (vides ou non).
J'utilise cette macro mais elle bloque aussi les cellules vides.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'protéger_cellules_formules()
 
    Dim ws1 As Worksheet
    For Each ws1 In ThisWorkbook.Worksheets
 
          With ws1.UsedRange
 
            With .Cells.SpecialCells(xlCellTypeConstants, 23)
                .Locked = False
                .FormulaHidden = False
            End With
 
 
        End With
si je rajoute le code suivant j'ai un code erreur 1004

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'deverouillage des cellules vides
            'If cell.Value = "" Then cell.Locked = False
 
            'With .Cells.SpecialCells(xlCellTypeBlanks)
                '.Locked = False
                '.FormulaHidden = False
            'End With
Quelqu'un aurait-il une idée

Merci beaucoup