Désactiver les menus

Bonjour à tous

Afin d'utiliser excel comme un navigateur, est il possible de rendre les menus innutilisable?

Merci

Salut,

Essaies ça ,

Sub MasqueBarre()
     Dim barreoutils As CommandBar
 on error resume next
     For Each barreoutils In Application.CommandBars
          barreoutils.visible = False
     Next
End Sub

pour réafficher les barres:

Sub AffichBarre()
     Dim barreoutils As CommandBar
on error resume next
     For Each barreoutils In Application.CommandBars
          barreoutils.visible = True
     Next
End Sub

Reviens si ça ne fonctionne pas...

edit 2: j'ai oublié de dire: dans VBA, clique sur thisworkbook puis en haut à droite, selectionne workbook_open

Non çà ne fonctionne pas...

Bonjour,

Utilise le plein écran que tu trouves dans AFFICHAGE.

Bien plus simple et sécurisant.

La suppression des barres ou l'ajout, c'est toujours dangereux pour celui qui utilise le fichier si tout n'est pas prévu ou qu'il y a un plantage de l'application.

Vois les pb sur le fil de Yves a depuis hier.

Amicalement

Dan

Est il possible de lancer le mode plein écran au démarrage du fichier?

Merci dan

Salut le forum

Mode plein écran

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

Mode normal

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
End Sub

Code à mettre dans ThisWorkbook

Mytå