Comment verrouiller une cellule Excel ?
Bonjour,
J'essaie d'éditer une feuille Excel dans Delphi 7.
Je souhaite verrouiller quelques cellules pour empêcher l'utilisateur de les modifier.
Ci dessous le code que j'utilise
Code:
1
2
3
4
5
6
7
8
9
|
vMSExcel.Sheets.Select;
vMSExcel.Cells.Select;
vMSExcel.Selection.Locked := False;
vMSExcel.Range['A1:A3'].Select;
vMSExcel.Selection.Locked := True;
vMSExcel.Sheets.DrawingObjects:=True; <=== Erreur
vMSExcel.Sheets.Contents:=True;
vMSExcel.Sheets.Scenarios:=True; |
Le message d'erreur est: (Methode 'DrawingObjects' non supportée par l'objet automation) à l'execution de la ligne signalée par erreur.
Cet exemple je l'ai fait à partir d'un exemple en VB
Merci par avance pour votre contribution
