affichage

Bonjour

A mettre dans le dossier ThisWorkbook du projet VBA de ta feuille EXCEL
ALT F11 pour accéder au module VBA



Private Sub Workbook_Activate()
'désactive les entêtes de lignes et colonnes
ActiveWindow.DisplayHeadings = False

'désactive la barre de formule
Application.DisplayFormulaBar = False

'désactive les mouvements
Application.ScreenUpdating = False

'Zoom sur la zone A à D (à adapter selon ton modèle)
Range('A11').Select
ActiveWindow.Zoom = True

Application.ScreenUpdating = True

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Annulation des paramètres d'ouverture
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
End Sub


Bon courage

Luc

Message édité par: Coyote, à: 22/03/2005 16:25

Message édité par: Coyote, à: 22/03/2005 16:26

merci
mais il reste encore la barre de tache
( fichier esition affichage etc ... )
je n'arrive pas a la supprimer
:ermm: Merci
baser

Salut à vous,

Tu peux enlever les fonctions de la barre de teche en faisant Click droit sur la barre de tache, personnaliser, ensuite tu prend les fonctions qui ne t'interesse pas et tu les remets dans la boite qui est apparu.
Cela dit il ne réapparaitront pas lors d'une prochaine ouverture d'un fichier excel, alors Faut il vraiment faire comme ça???
A+
seb

Bonjour
La bare de tâches appartient à Windows et non à Excel.
Elle peut être masquée depuis Windows donc il faudrait trouver les API windows à appeler depuis Excel. Mais il y a fort à parier que cela se passe dans la base de registre.
Chris

Bonjour Chris, Seb, Baser, Coyote, le forum

d'aprés ce que dit Baser, il ne s'agit pas de la barre des taches mais de la barre de menu feuille de calcul

voici une commande simple pour la masquer mais ne pas oublier de la rétablir en fin de programme

Private Sub Workbook_Open()
Application.CommandBars('Worksheet Menu Bar').Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars('Worksheet Menu Bar').Enabled = True
End Sub

Cordialement, A+

ok merci ca marche
un grand merci a tout le monde
:unsure: baser