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":
Pour information, j'utilise Borland delphi 2005 avec Excel 2003.
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;
Merci
Partager