Soucis avec excel

**poussinphp** · 06/10/2005, 11h34

Bonjour,

Je doit faire un petit utilitaire qui vérifie le contenu de feuilles excel pour corriger les problèmes lors de l'insertion. J'ai un petit soucis concernant l'utilisation des fichiers.

Les feuilles sont protégé. Dans excel il suffit de faire "ôter la protection de la feuille" mais en delphi comment fait t'on ça?

**Manopower** · 06/10/2005, 11h49

Si tu utilises TExcelApplication et que tu veux effectuer une action que tu ne sais pas écrire en Delphi voici comment faire : (c'est comme ça que je faisais)

Dans Excel tu créé une macro, tu effectue ton action (dans ton cas ôter la protection de la feuille

tu termines ta macro, tu vas l'éditer, tu regardes le code généré en VBA, et tu essaye d'adapter logiquement en Delphi.

Je n'ai jamais essayé de retranscrir cette fonction précise, et je ne sais pas comment ça se passe si la protection de la feuille a un mot de passe.

Bon courage, et si tu trouves par cette méthode, écris le code Delphi ça peut en intéresser plus d'un !

**poussinphp** · 06/10/2005, 11h55

Je vient de regarder dans vba.

On obtient

ActiveSheet.Unprotect

Je cherche dans delphi avec activesheet mais ya rien. j'ai cherché partout les fonction unprotect, protect, protected.... rien

**Bissada** · 06/10/2005, 12h15

Essai dont ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
  try
    vMSExcel := GetActiveOleObject('Excel.Application');
  except
    vMSExcel := CreateOleObject('Excel.Application');
  end;
  vXLWorkbooks := vMSExcel.Workbooks;
  vXLWorkbook  := vXLWorkbooks.Open(OpenDialog1.FileName, vLink, vReadOnly);
  vXLWorkbook.WorkSheets[NumeroDeLaFeuille].Unprotect;

**poussinphp** · 06/10/2005, 12h21

ton vMSExcel fais référence à quoi?

**Bissada** · 06/10/2005, 12h23

vMSExcel est l'objet OLE Excel.Application

**poussinphp** · 06/10/2005, 13h05

J'ai essayé et ça marche pas.

J'ai trouvé cette fonction :

Excel.Workbooks.Item[1].Unprotect('',0);

Malheureusement, ça ne fais rien

**Bissada** · 06/10/2005, 15h42

Cette fonction marche, c'est sur !

Par exemple, tu as un classeur Excel qui contient une seule feuille protégée par le mot de passe "coucou"

1) Crée un nouveau projet et ajoute la bibliothèque "ComObj"
2) Ajoute ces variables globales :

Code :

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

1
2
3
 
vMSExcel : variant;
vXLWorkbooks, vXLWorkbook, vReadOnly, vLink, vWorksheet : variant;

3) Place un composant OpenDialog et un bouton
4) Sur le clic du bouton effectue la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  try 
    vMSExcel := GetActiveOleObject('Excel.Application'); 
  except 
    vMSExcel := CreateOleObject('Excel.Application'); 
  end; 
  vXLWorkbooks := vMSExcel.Workbooks; 
  vXLWorkbook  := vXLWorkbooks.Open(OpenDialog1.FileName, vLink, vReadOnly); 
  vWorksheet := vXLWorkbook.WorkSheets[iFeuille];
  vWorksheet.Unprotect('coucou');
  vXLWorkbook.Close(true, OpenDialog1.FileName);
  vMSExcel.Quit;
  vMSExcel := unassigned;