Discussion :

[sam_sonite]

Bonjour,

Je viens d'ouvrir un fichier excel via un programme Delphi, et je souhaite maintenant
désactivé les menus "Fichier, Edition, Voir..." d'excel. J'ai vu qu'il était possible deles
désactivés.

Voici mon code, dans celui-ci j'ai voulu désactivé le menu "Fichier":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    // création du lien OLE pour la classe référencé par Excel dans la base de registre "Excel.Application"
    OleApplication := CreateOleObject('Excel.Application');
    //Ouverture du fichier Excel en lecture seule *//
    OleWorkBook:=OleApplication.Workbooks.open('D:\MonFichier.xls',unassigned,true);
    //* Désactivation du menu Fichier *//
    ExcelApplication.CommandBars[1].Controls['Fichier'].Set_Enabled(False);
    //Ouverture d'un onglet
    OleWorkBook.Worksheets.Item['Compteur 1'].Activate;
    // Rendre Excel visible
    OleApplication.visible:=True;

Pour information, j'utilise Borland delphi 2005 avec Excel 2003.

Merci

[philnext]

Mais de rien !!!
Euh ..c'est quoi la question ?

[sam_sonite]

En faite, la désactivation du menu ne fonctionne pas.Je tiens à signalé qu'il y a aucunne erreur à l'exécution

[adelblog]

bonjour :
utiliser la faq delphi svp :
http://delphi.developpez.com/faq/?page=exceldelphi

[sam_sonite]

Merci

Mais j'avais déja consulté cette FAQ. Néanmoins, j'ai résolu mon problème.