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