Discussion :

[CrasherSEP]

Bonjour,

J'ai un fichier Excel qui s'ouvre en plein écran, qui masque les onglets, qui désactive le Copier/Coller, etc... (voir code) et cela fonctionne très bien :-)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub activerallprotections_listeforceETclubs()
' Masquer les onglets
    ActiveWindow.DisplayWorkbookTabs = False
' Activer le plein écran
    Application.DisplayFullScreen = True
' Effacer la barre des formules
    Application.DisplayFormulaBar = False
' Activer CTRL V et CTRL C
    Application.CellDragAndDrop = False
    For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
'Lettre c et C
    Application.OnKey K & Chr$(99), ""
    Application.OnKey K & Chr$(67), ""
'Lettre v et V
    Application.OnKey K & Chr$(118), ""
    Application.OnKey K & Chr$(86), ""
    Next K
'Protection de la feuille
    ActiveSheet.EnableSelection = xlUnlockedCells
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="cedric"
End Sub

Mon problème, est qu'en plein écran, il reste une barre avec le nom du fichier, ce qui n'est pas super grave, le PROBLEME est que si je double clic sur cette barre, les menus (ACCUEIL, INSERTION, MISE EN PAGE...) réapparaissent :-)

Y aurait-il une solution pour désactiver cela... ?

Et la deuxième question; lorsque j'enfonce la touche CTRL et que je fais un scroll souris, cela ZOOM la page et cela n'est pas super pour moi...

Existe-t-il une commande pour désactiver cela, comme pour les commandes copier/coller ?

Merci d'avance pour votre aide :-)

[EricDgn]

Bonjour,
Peut-être un début de solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
   Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Cdt