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.:D
est ce que c'est possible ?
Merci
Version imprimable
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.:D
est ce que c'est possible ?
Merci
bonjour
un exemple pour proteger la cellule A1
Code:
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:
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
Merci beaucoup Michel..tu m'enleves une grosse épine du pied.. :P