2010-08-20 10 views
1

J'ai un tableau de bord Excel qui fonctionne de telle sorte qu'avant la fermeture du fichier Excel, je voudrais afficher tout le ruban EXCEL, de sorte que la prochaine fois que Excel sera ouvert, l'application/Excel montrera le ruban. À l'heure actuelle, il ne montre pas le ruban si Excel est ouvert.Afficher le ruban Excel 2007 dans un fichier XLS en utilisant Excel VBA

 

Private Sub Workbook_BeforeClose(cancel As Boolean) 

    On Error Resume Next 

    Application.ScreenUpdating = True 
    ActiveWindow.DisplayWorkbookTabs = True 
    Application.DisplayFormulaBar = True 
    Application.DisplayFullScreen = False 
    Application.DisplayStatusBar = True 
    Application.DisplayScrollBars = True 
    Application.ScreenUpdating = True 
    Sheets("Introduction").Select 

End Sub 


This is an .xls file with Macro and supposed to work in Excel 2003 and Excel 2007. 

Aussi, si « Annuler » est cliqué, je ne veux pas montrer l'un des plus haut/ruban, comme l'utilisateur est censé obtenir une vue protégée du tableau de bord Excel.

+0

J'ai déjà essayé le suivant ............................................... ..................... Application.ExecuteExcel4Macro "SHOW.TOOLBAR (" "Ribbon" ", True)" .......... .......... Cela ne fonctionne pas. Il s'affiche juste pour le moment, mais après la fermeture de l'application, le ruban n'est pas affiché ni les barres. – user415457

+1

Je dois manquer quelque chose, mais je ne comprends pas votre question. Pourquoi le ruban n'est-il pas visible en premier lieu? Est-ce que votre code fait quelque chose? – Mathias

Répondre

1

Si le ruban est fermé par défaut, vous pouvez l'ouvrir à nouveau en double-cliquant sur l'un des onglets (par exemple, l'onglet Accueil).

(Voir this pour plus de détails).

Si, toutefois, vous souhaitez écrire un événement à exécuter lorsque le classeur s'ouvre, utilisez l'événement Workbook_Open() de l'objet Excel ThisWorkbook.

0

essayer cette Application.ExecuteExcel4Macro "show.toolbar (" "ruban" "true)" cacher Application.ExecuteExcel4Macro "show.toolbar (" "ruban" "false)"

Questions connexes