Feuilles en plein ecran

A

Arnaud

Guest

• 2 Août 2004

• #2

salut,

dans le code des feuilles que tu souhaites avoir en plein écran tu écris :

Private Sub Worksheet_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
End Sub

 

Vote positif 0 Vote négatif

W

wachoo31

Guest

• 2 Août 2004

• #3

bonjour Albert, Bonjour Arnaud

Arnaud, le code m'intéresse également mais est il possible de désactivé l'affichage de la bare de menu "Fermer le plein écran" en plus

Merci et A+

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 2 Août 2004

• #4

re,

wachoo31, qu'appelle tu ' la bare de menu "Fermer le plein écran" ' ???
que l'utilisateur ne puisse pas clicker sur Affichage->Plein ecran ??

 

Vote positif 0 Vote négatif

W

wachoo31

Guest

• 3 Août 2004

• #5

re le forum bonjour Arnaud

Je parle de la petite barre qui s'affiche quand on bascule en mode plein ecran

Bien à toi

Wachoo31

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 3 Août 2004

• #6

re,

normalement comme ça cela devrais fonctionner.


Private Sub Worksheet_Activate()
Dim commandbar As CommandBars

Application.DisplayFullScreen = True
Set commandbar = Application.CommandBars
For i = 1 To commandbar.Count
If commandbar(i).Name = "Full Screen" Then commandbar(i).Visible = False
Next i

End Sub

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 3 Août 2004

• #7

Bonjour,

Voici de quoi faire du Full Screen, lol

Option Explicit

Private Sub Worksheet_Activate()
Application.CommandBars(1).Enabled = False
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars(1).Enabled = True
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End Sub

Bonne journée

@Christophe@

 

Vote positif 0 Vote négatif

A

ALBERT

Guest

• 5 Août 2004

• #8

Merci pour toutes ces réponses je m'y attèle tout de suite !!!

 

Vote positif 0 Vote négatif