Discussion :

[Needhelp22]

Bonjour

J'ecris un programme sous VBA excel et j'utilise la fonction Goalseek ..
Et je voudrais verouiller la case dans laquelle se trouve la formule pour que l'utilisateur ne puisse pas l'effacer.
est ce que c'est possible ?
Merci

[SilkyRoad]

bonjour

un exemple pour proteger la cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Worksheets("Feuil1")
    .Unprotect 'MdP
    .Cells.Locked = False
    .Range("A1").Locked = True
    .EnableSelection = xlUnlockedCells
    .Protect 'MdP
End With

un autre exemple pour proteger toutes les cellules contenant une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Worksheets("Feuil1")
    .Unprotect 'MdP
    .Cells.Locked = False
    .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
    .EnableSelection = xlUnlockedCells
    .Protect 'MdP
End With

bonne soiree
michel

[Needhelp22]

Merci beaucoup Michel..tu m'enleves une grosse épine du pied..