Bouton d'activation des rubans

Bonjour,

Je suis nouveau et j'aimerais savoir si quelqu'un peu m'aider pour affecter un bouton dans une macro qui me permettrai de réactiver les rubans. En effets, j'ai trouvé un macro pour qu'à l'ouverture d'un fichier ils disparaissaient mais lord je dois faire des modifications je n'ai plus les rubans. J'ai utilisé comme code ceci :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFullScreen = False 'écran normal

Cancel = True ' impossible de quitter par la X

End Sub

Private Sub Workbook_Open()

With ActiveWindow

.DisplayHorizontalScrollBar = False 'on cache barre défilement basse

.DisplayWorkbookTabs = False '' on cache les onglets

End With

'Bloque l'écran

Application.DisplayFullScreen = True 'plein écran

Application.OnKey "{ESC}", "refuse"

End Sub

Ce bouton doit-être protégé par un mots de passe afin que d'autres utilisateur ne puisse effectuer des modifications. Seul les personnes habilitées à faire des modifs. auraient le mots de passe.

Merci de votre aide.

Bonjour,

Tu lies ton nouveau bouton au code suivant ...

Sub Retour()
   Application.DisplayFullScreen = False
End ub

Merci je vais essayer ça tout de suite et te redit si cela fonctionne.

Cela m'a pas fonctionner et j'ai eu le message d'erreur suivant :

Sub Retour() (ceci en jaune)

Application.DisplayFullScreen = False

End ub (et ceci en rouge)

Re,

Désolé en tapant ... j'ai oublié un S ... pour Sub ...

Sub Retour()
   Application.DisplayFullScreen = False
End Sub

Pas de soucis. Encore merci.

Ok cela fonctionne bien mais comment mettre un mots de passe dessus. J'aimerais pouvoir revenir au plein écran avec un autre bouton et quel code utiliser pour ce là.

SteRod a écrit :

Pas de soucis. Encore merci.

De rien ... Merci pour tes remerciements ...