Reperages des cellules Verouillé

[SHINTRA]

Bonjour tout le monde

Existe il un fonction excel qui permette de reperer facilement les cellules verouillé dns une fichie excel.

mon probleme c'est que j'ai une feuille sur laquelle je voudrais verifier si je n'ai pas oublier des verouiller certain champs

mais la feuille et grande et la verification cellule par cellule fastidieuse .

d'avance merci

 

[Mytå]

Salut Shintra

Tu peux mettre disons un format aux cellules
vérrouillées (X dans Cellule).

Private Cellule As Range

Sub View_Locked_Cells()

ActiveSheet.Unprotect

For Each Cellule In Range('A1:D15')

With Cellule
    If .Locked = True Then
        .Select
            With Selection.Borders(xlDiagonalDown)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With Selection.Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
    End If
End With

Next Cellule

ActiveSheet.Protect

End Sub

Sub Reset_Cells()

ActiveSheet.Unprotect

For Each Cellule In Range('A1:D15')

With Cellule
    If .Locked = True Then
        .Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    End If
End With

Next Cellule

ActiveSheet.Protect

End Sub

A défaut de trouver mieux.

Mytå

 

[SHINTRA]

Merci Mytå
ta solution me semble en effectivement tres adapter. je te remercie pour ce gain de temps ENORME.

encore merci et bonne journée