Verrouillage des cellules

bonjour a toutes et tous, j'ai un autre problème celui de verrouiller les cellules non vide. j'ai beau reprendre plusieurs ligne de commande vba mais aucune ne fonctionne sur mon fichier excel. pouvez vous m'aidé merci. PS: certaines cellules sont de liste déroulante qui doivent elles aussi être et peuvent changer par moi même via un mot de passe. merci à tous

Bonjour,

à tester,

Sub test()
derniereCellule = Cells.SpecialCells(xlCellTypeLastCell).Address
    For Each c In Range("A1:" & derniereCellule)
        If c = "" Then
          c.Locked = False
          c.FormulaHidden = False
        Else
          c.Locked = True
          c.FormulaHidden = True
        End If
    Next
End Sub

lors de l'ajout du mot de passe

n'oublier pas pour chaque option de spécifier la permission (True or False)

With ActiveSheet
'permet filtre et grouper lignes et colonnes
    .EnableAutoFilter = True
    .EnableOutlining = True

    'pour les options de protection que vous ne désirer pas autoriser: changer True pour False
    .Protect Password:="", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, _
        AllowInsertingHyperlinks:=True, _
        AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True, _
        UserInterfaceOnly:=True
 End With