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
Hervé Branchu
Bonjour JFB
Au regard de la note suivante il n'est pas possible de désactiver les élément des menus prédéfinis néanmoins cette note contient un petit bout de code qui permet de donner l'impression que le menu en question est désactivé http://support.microsoft.com/default.aspx?scid=KB;EN-US;213767
Macro exemple Sub Disable_Builtin_MenuItem() Dim i Dim x With MenuBars(xlWorksheet).Menus("File").MenuItems("Exit") i = .Index 'Save the position of the built-in menu command. .Delete 'Delete the built-in menu command. End With 'Add a custom menu command with the same caption and index as the 'built-in menu command that you deleted. Set x = MenuBars(xlWorksheet).Menus("File").MenuItems.Add _ (Caption:="Exit", before:=i) x.Enabled = False End Sub Remise à zéro du menu Sub ResetMenubar() MenuBars(xlWorksheet).Reset End Sub -- Bonne Journée====================================================Hervé Branchu, Sitel France pour l'Assistance Utilisateur Microsoft"JFB" a écrit dans le message de news: 037001c33eef$c5cf9f50$,
Je souhaite bloquer la fonction enregistrer et enregistrer sous sur un excel 2000.
éventuellment avec un mot de passe)
Est-ce possible
Merci pour les réponses JFB
Bonjour JFB
Au regard de la note suivante il n'est pas possible de désactiver les élément
des menus prédéfinis
néanmoins cette note contient un petit bout de code qui permet de donner
l'impression que le menu en question est désactivé
http://support.microsoft.com/default.aspx?scid=KB;EN-US;213767
Macro exemple
Sub Disable_Builtin_MenuItem()
Dim i
Dim x
With MenuBars(xlWorksheet).Menus("File").MenuItems("Exit")
i = .Index 'Save the position of the built-in menu command.
.Delete 'Delete the built-in menu command.
End With
'Add a custom menu command with the same caption and index as the
'built-in menu command that you deleted.
Set x = MenuBars(xlWorksheet).Menus("File").MenuItems.Add _
(Caption:="Exit", before:=i)
x.Enabled = False
End Sub
Remise à zéro du menu
Sub ResetMenubar()
MenuBars(xlWorksheet).Reset
End Sub
-- Bonne Journée====================================================Hervé
Branchu, Sitel France pour l'Assistance Utilisateur Microsoft"JFB"
<jfb@etremplin-wpm.com> a écrit dans le message de news:
037001c33eef$c5cf9f50$a001280a@phx.gbl...Bonjour,
Je souhaite bloquer la fonction enregistrer et enregistrer
sous sur un excel 2000.
Au regard de la note suivante il n'est pas possible de désactiver les élément des menus prédéfinis néanmoins cette note contient un petit bout de code qui permet de donner l'impression que le menu en question est désactivé http://support.microsoft.com/default.aspx?scid=KB;EN-US;213767
Macro exemple Sub Disable_Builtin_MenuItem() Dim i Dim x With MenuBars(xlWorksheet).Menus("File").MenuItems("Exit") i = .Index 'Save the position of the built-in menu command. .Delete 'Delete the built-in menu command. End With 'Add a custom menu command with the same caption and index as the 'built-in menu command that you deleted. Set x = MenuBars(xlWorksheet).Menus("File").MenuItems.Add _ (Caption:="Exit", before:=i) x.Enabled = False End Sub Remise à zéro du menu Sub ResetMenubar() MenuBars(xlWorksheet).Reset End Sub -- Bonne Journée====================================================Hervé Branchu, Sitel France pour l'Assistance Utilisateur Microsoft"JFB" a écrit dans le message de news: 037001c33eef$c5cf9f50$,
Je souhaite bloquer la fonction enregistrer et enregistrer sous sur un excel 2000.
éventuellment avec un mot de passe)
Est-ce possible
Merci pour les réponses JFB
AV
Essaye ça dans le module de Thisworkbook :
Private Sub Workbook_Open() With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled False .OnKey "^+{s}", "" End With End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.OnKey "^+{s}" End Sub
AV
"JFB" a écrit dans le message news: 037001c33eef$c5cf9f50$ Bonjour,
Je souhaite bloquer la fonction enregistrer et enregistrer sous sur un excel 2000.
éventuellment avec un mot de passe)
Est-ce possible
Merci pour les réponses JFB
Essaye ça dans le module de Thisworkbook :
Private Sub Workbook_Open()
With Application
.CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled False
.OnKey "^+{s}", ""
End With
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnKey "^+{s}"
End Sub
AV
"JFB" <jfb@etremplin-wpm.com> a écrit dans le message news:
037001c33eef$c5cf9f50$a001280a@phx.gbl...
Bonjour,
Je souhaite bloquer la fonction enregistrer et enregistrer
sous sur un excel 2000.
Private Sub Workbook_Open() With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled False .OnKey "^+{s}", "" End With End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.OnKey "^+{s}" End Sub
AV
"JFB" a écrit dans le message news: 037001c33eef$c5cf9f50$ Bonjour,
Je souhaite bloquer la fonction enregistrer et enregistrer sous sur un excel 2000.
éventuellment avec un mot de passe)
Est-ce possible
Merci pour les réponses JFB
AV
Un malheureux copier/coller d'un mauvais tronçon : le "Workbook_SheetChange" n'a rien à faire là-dedans !
Rebelote : Private Sub Workbook_Open() With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = False .OnKey "^+{s}", "" End With End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = true .OnKey "^+{s}" End With End Sub
AV
Un malheureux copier/coller d'un mauvais tronçon : le "Workbook_SheetChange" n'a
rien à faire là-dedans !
Rebelote :
Private Sub Workbook_Open()
With Application
.CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = False
.OnKey "^+{s}", ""
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = true
.OnKey "^+{s}"
End With
End Sub
Un malheureux copier/coller d'un mauvais tronçon : le "Workbook_SheetChange" n'a rien à faire là-dedans !
Rebelote : Private Sub Workbook_Open() With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = False .OnKey "^+{s}", "" End With End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = true .OnKey "^+{s}" End With End Sub
AV
michdenis
Bonjour AV,
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
;-)
Salutations!
"AV" a écrit dans le message de news:% Un malheureux copier/coller d'un mauvais tronçon : le "Workbook_SheetChange" n'a rien à faire là-dedans !
Rebelote : Private Sub Workbook_Open() With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = False .OnKey "^+{s}", "" End With End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = true .OnKey "^+{s}" End With End Sub
AV
Bonjour AV,
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
;-)
Salutations!
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:%23EuXopwPDHA.2256@TK2MSFTNGP11.phx.gbl...
Un malheureux copier/coller d'un mauvais tronçon : le "Workbook_SheetChange" n'a
rien à faire là-dedans !
Rebelote :
Private Sub Workbook_Open()
With Application
.CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = False
.OnKey "^+{s}", ""
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = true
.OnKey "^+{s}"
End With
End Sub
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
;-)
Salutations!
"AV" a écrit dans le message de news:% Un malheureux copier/coller d'un mauvais tronçon : le "Workbook_SheetChange" n'a rien à faire là-dedans !
Rebelote : Private Sub Workbook_Open() With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = False .OnKey "^+{s}", "" End With End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application .CommandBars(1).Controls(1).Controls("&Enregistrer sous...").Enabled = true .OnKey "^+{s}" End With End Sub
AV
AV
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
Ben surement.... mais bon, en fonction du niveau de l'utilisateur ça peut suffire.... Si en plus il nous fait un shift à l'ouverture du fichier nous voilà partis dans des trucs pas possibles !
;-) AV
L'usager pourra toujours récupérer la commande par un double-clic dans la zone
des barres d'outils, onglet commande. Non ?
Ben surement.... mais bon, en fonction du niveau de l'utilisateur ça peut
suffire....
Si en plus il nous fait un shift à l'ouverture du fichier nous voilà partis dans
des trucs pas possibles !
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
Ben surement.... mais bon, en fonction du niveau de l'utilisateur ça peut suffire.... Si en plus il nous fait un shift à l'ouverture du fichier nous voilà partis dans des trucs pas possibles !
;-) AV
michdenis
Bonjour AV,
Dans ce cas, il faudrait aussi désactiver la touche F12 ! Accessible par erreur au débutant !!! ;-)))
Salutations!
"AV" a écrit dans le message de news:%23xzvf$
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
Ben surement.... mais bon, en fonction du niveau de l'utilisateur ça peut suffire.... Si en plus il nous fait un shift à l'ouverture du fichier nous voilà partis dans des trucs pas possibles !
;-) AV
Bonjour AV,
Dans ce cas, il faudrait aussi désactiver la touche F12 !
Accessible par erreur au débutant !!! ;-)))
Salutations!
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:%23xzvf$wPDHA.2052@TK2MSFTNGP11.phx.gbl...
L'usager pourra toujours récupérer la commande par un double-clic dans la zone
des barres d'outils, onglet commande. Non ?
Ben surement.... mais bon, en fonction du niveau de l'utilisateur ça peut
suffire....
Si en plus il nous fait un shift à l'ouverture du fichier nous voilà partis dans
des trucs pas possibles !
Dans ce cas, il faudrait aussi désactiver la touche F12 ! Accessible par erreur au débutant !!! ;-)))
Salutations!
"AV" a écrit dans le message de news:%23xzvf$
L'usager pourra toujours récupérer la commande par un double-clic dans la zone des barres d'outils, onglet commande. Non ?
Ben surement.... mais bon, en fonction du niveau de l'utilisateur ça peut suffire.... Si en plus il nous fait un shift à l'ouverture du fichier nous voilà partis dans des trucs pas possibles !
;-) AV
AV
Dans ce cas, il faudrait aussi désactiver la touche F12 ! Accessible par erreur au débutant !!! ;-)))
D'ailleurs je propose comme mesure radicale : Iinterdire l'accès des postes aux utilisateurs ! Que de temps gagné pour les bidouilleurs !
;-) AV
Dans ce cas, il faudrait aussi désactiver la touche F12 !
Accessible par erreur au débutant !!! ;-)))
D'ailleurs je propose comme mesure radicale : Iinterdire l'accès des postes aux
utilisateurs !
Que de temps gagné pour les bidouilleurs !
