Feuilles en plein ecran

[Albert]

Bonjour le Forum !

QQ'un sait il comment dans un classeur on fait pour que certaines feuilles bien précises souvrent obligatoirement en mode plein écran ?!

Merci pour les réponses !!

Au revoir

 

[Arnaud]

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

 

[wachoo31]

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+

 

[Arnaud]

re,

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

 

[wachoo31]

re le forum bonjour Arnaud

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

Bien à toi

Wachoo31

 

[Arnaud]

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

 

[@Christophe@]

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@

 

[ALBERT]

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