Désactiver les menus, bar d'outils, menus contextuels au démarrage d'un classeur

Bonjour Marc,


Tu copies ce qui suit dans le ThisWorkbook de ton projet
La procédure workbook_Activate est exécuté lorsque le fichier
s'ouvre et retient dans une variable, les barres d'outils qui étaient
visibles ... et si tout va bien les remets si un autre classeur devient
actif ou si ce dernier se ferme.

Il y a le site de Frédéric Sigonneau qui peut te donner des idées...
http://frederic.sigonneau.free.fr/

La procédure : Private Sub Workbook_BeforeClose(Cancel As Boolean)
a besoin d'être complété dans le cas où l'usager décide d'annuler la fermeture
du fichier...


'Déclaration de la variable dans le haut du ThisWorkbook
Dim Barres As Collection
'-----------------------------------
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Application.ScreenUpdating = False
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True Then
If Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre
Barre.Visible = False
Else
Barres.Add Barre
Barre.Enabled = False
End If
Else
Barre.Enabled = False
End If
Next Barre

End Sub
'-----------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbook_Deactivate
End Sub
'-----------------------------------
Private Sub Workbook_Deactivate()
Dim B As CommandBar
Dim Barre As CommandBar
On Error Resume Next
Application.ScreenUpdating = False
For Each Barre In Barres
If Barre.Name <> "Worksheet Menu Bar" Then
Barre.Enabled = True
Barre.Visible = True
Else
Barre.Enabled = True
End If
For Each B In Application.CommandBars
B.Enabled = True
Next
Next

End Sub
'-----------------------------------



Salutations!



"Marc Couture" <marc.couture@sit.ulaval.ca> a écrit dans le message de news: AK6dna0sY_0a2bLZRVn-iA@ulaval.ca...
Bonjour à tou(te)s,

J'aimerais connaître les commandes à intégrer dans une macro au démarrage
pour désactiver tous les menus, barres d'outils, menus contectuels de façon
à ce que l'utilisateur ne puisse pas sortir de l'application Excel.

Merci à l'avance