Désactiver les menus, bar d'outils, menus contextuels au démarrage d'un classeur
1 réponse
Marc Couture
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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" a écrit dans le message de news: 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
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.
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" a écrit dans le message de news: 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.