Deverrouiller certaines cellules de ma feuille

Bonjour à tous,

j'aimerais avoir un code VBA qui me permet de déverrouiller certaines cellules de ma feuille verrouillée.

j'ai essayé ce code:

Worksheets("recherche").Cells(15, 7).Locked = False

mais ça ne marche pas, ça met erreur définie par l'application ou par l'objet.

Comment faire?

Merci d'avance

Bonjour ZOLEKO,

Ce code marche chez moi. Il y a peut-être une particularité dans ton fichier. Peux-tu joindre un bout de ce fichier ?

Bonjour,

As-tu supprimé la protection de la feuille avant de tenter de déverrouiller la cellule ?

(voir la méthode Worksheet.Unprotect)

A+

vba-new je te passe un bout du fichier

chez moi ça marche pas.

Frangy je ne comprends pas très bien ou tu veux en venir.

Bonjour,

Pas claire la demande.

Cdlt.

Option Explicit
Private Sub verouiller()
    With Worksheets("recherche")
        .Unprotect "jetaimemaman"
        .Cells(15, 7).Locked = True
        .Protect "jetaimemaman"
    End With
End Sub
Private Sub deverouiller()
    With Worksheets("recherche")
        .Unprotect "jetaimemaman"
        .Cells(15, 7).Locked = False
        .Protect "jetaimemaman"
    End With
End Sub

Merci beaucoup JEAN ERIC,

Ton code marche à merveille. Mais à la place de True c'est plutôt false.

cordialement