supprimer "enregistrer_sous..."

Bonjoir© Marcel-Olivier

Le 14/02/2006 12:04 vous avez écrit... :

Bonjour,

Comment faire pour enlever la fonction "enregistrer_sous..." des programmes
Word et Excel 2000/XP.

Supprimer la commande dans les menus ?!

De même, comment empêcher les utilisateurs de réactiver cette fonction :-)

Leurs attacher les mains, supprimer le clavier ou l'écran, enlever le
disque dur et installer Windows et Word sur un CD (NB ne pas laisser de
graveur). Supprimer tout support permettant d'enregistrer... je dois en
oublier, mais c'est pas les moyens qui manque ;-)))))))

Plus sérieusement, autant mettre un viewer s'il ne doivent rien faire
avec leurs programmes.

Toujours sérieusement, pourquoi vouloir supprimer cette fonction ? je
suis vraiment curieux de savoir.

Merci à tous,

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Bonjour,

pour Excel mais il doit y avoir de fortes ressemblances sous Word en ce
qui concerne la syntaxe ( à défaut des ID)

A mettre dans le module Thisworkbook
Private Sub Workbook_Open()

'invalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:=748)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = True
Next
'Invalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = True
Next
'invalide le racourci d'enregistrement
Application.OnKey "^{s}", "mamacro"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'remet le raccourci à son état initial
Application.OnKey "^{s}", ""

End Sub

A mettre dans un module standard

Sub mamacro()

MsgBox "pas possible"

End Sub

Il sera toujours possible cependant de peronnaliser une barre de
commandes pour remettre le bouton Energistrer. Pour invalider cette
possibilité , voire invalider aussi la possibilité d'accès à la
personnalisation des menus en double cliquant dans l'espace des barres
de menus, c'est une autre affaire et il n'est peut-être pas
nécéssaire d'aller jusque là.

A+

Décidément, faut pas aller trop vite !!

A mettre dans le module Thisworkbook
Private Sub Workbook_Open()

'invalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:=748)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = false
Next
'Invalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = false
Next
'invalide le racourci d'enregistrement
Application.OnKey "^{s}", "mamacro"


End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Revalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:=748)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = true
Next
'Revalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = true
Next

'remet le raccourci à son état initial
Application.OnKey "^{s}", ""

End Sub


A mettre dans un module standard


Sub mamacro()


MsgBox "pas possible"


End Sub

A+


anonymousA wrote:

Bonjour,

pour Excel mais il doit y avoir de fortes ressemblances sous Word en ce
qui concerne la syntaxe ( à défaut des ID)

A mettre dans le module Thisworkbook
Private Sub Workbook_Open()

'invalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:=748)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = True
Next
'Invalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = True
Next
'invalide le racourci d'enregistrement
Application.OnKey "^{s}", "mamacro"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'remet le raccourci à son état initial
Application.OnKey "^{s}", ""

End Sub

A mettre dans un module standard

Sub mamacro()

MsgBox "pas possible"

End Sub

Il sera toujours possible cependant de peronnaliser une barre de
commandes pour remettre le bouton Energistrer. Pour invalider cette
possibilité , voire invalider aussi la possibilité d'accès à la
personnalisation des menus en double cliquant dans l'espace des barres
de menus, c'est une autre affaire et il n'est peut-être pas
nécéssaire d'aller jusque là.

A+

Merci beaucoup pour cette réponse,

Etant totalement béotien, je ne sais abolument pas où mettre ces lignes :-(

Marcel

-------------------------------------------------------------------------

Décidément, faut pas aller trop vite !!

A mettre dans le module Thisworkbook
Private Sub Workbook_Open()

'invalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:t8)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = false
Next
'Invalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = false
Next
'invalide le racourci d'enregistrement
Application.OnKey "^{s}", "mamacro"


End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Revalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:t8)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = true
Next
'Revalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = true
Next

'remet le raccourci à son état initial
Application.OnKey "^{s}", ""

End Sub


A mettre dans un module standard


Sub mamacro()


MsgBox "pas possible"


End Sub

A+


anonymousA wrote:

Bonjour,

pour Excel mais il doit y avoir de fortes ressemblances sous Word en ce
qui concerne la syntaxe ( à défaut des ID)

A mettre dans le module Thisworkbook
Private Sub Workbook_Open()

'invalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:t8)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = True
Next
'Invalide le Enregistrer
Set collcontrols = Application.CommandBars.FindControls(ID:=3)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = True
Next
'invalide le racourci d'enregistrement
Application.OnKey "^{s}", "mamacro"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'remet le raccourci à son état initial
Application.OnKey "^{s}", ""

End Sub

A mettre dans un module standard

Sub mamacro()

MsgBox "pas possible"

End Sub

Il sera toujours possible cependant de peronnaliser une barre de
commandes pour remettre le bouton Energistrer. Pour invalider cette
possibilité , voire invalider aussi la possibilité d'accès à la
personnalisation des menus en double cliquant dans l'espace des barres
de menus, c'est une autre affaire et il n'est peut-être pas
nécéssaire d'aller jusque là.

A+

Bonjour Marcel,

Essaie ceci :

Cette procédure empêchera l'apparition de la fenêtre "Enregistrer sous"
mais permet à l'usager de sauvegarder son fichier.

Copie ceci dans le ThisWorkbook de ton classeur :
'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = SaveAsUI
End Sub
'-----------------------


Salutations!



<Marcel-Olivier> a écrit dans le message de news: egbqwZVMGHA.3556@TK2MSFTNGP10.phx.gbl...
Bonjour,

Comment faire pour enlever la fonction "enregistrer_sous..." des programmes
Word et Excel 2000/XP.

De même, comment empêcher les utilisateurs de réactiver cette fonction :-)

Merci à tous,
Marcel

*Bonjour* *Marcel-Olivier*
Le 14/02/2006 Marcel-Olivier nous a écrit ceci:

Etant totalement béotien, je ne sais abolument pas où mettre ces lignes :-(

Menu Outils / Macro / Visual Basic Editor
Dans la fenêtre qui s'ouvre allez à:

Pour Excel:
VBAProject (classeur1) / Microsoft Excel Objets
et double cliquer sur ThisWorkBook pour ouvrir le module.

Pour Word:
Project (document1) / Microsoft Word Objets
et double cliquer sur ThisDocument pour ouvrir le module.

--
***FRGE***
Répondre uniquement sur les News Groups, Merci

Cher Jean-Louis GOUBERT, il faut essayer de comprendre avant de poster des
âneries,

L'idée : l'utilisateur ouvre le fichier, l'utilise (saisie de données...) et
enregistre les modifications... mais sans pouvoir enregistrer le fichier
ailleurs qu'à son emplacement d'origine (d'où la suppression de le fonction
"enregistrer_sous..." uniquement).

Merci pour votre contribution,
Marcel

Comment faire pour enlever la fonction "enregistrer_sous..." des
programmes

Word et Excel 2000/XP.

Supprimer la commande dans les menus ?!

De même, comment empêcher les utilisateurs de réactiver cette fonction
:-)

Leurs attacher les mains, supprimer le clavier ou l'écran, enlever le
disque dur et installer Windows et Word sur un CD (NB ne pas laisser de
graveur). Supprimer tout support permettant d'enregistrer... je dois en
oublier, mais c'est pas les moyens qui manque ;-)))))))

1000 mercis à tous pour vos réponses,

J'ai encore quelques questions :

1. Pour ma culture perso, quelle est la différence entre la solution de
michdenis :

'-----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = SaveAsUI
End Sub
'-----------------------

et celle de anonymousA :

Private Sub Workbook_Open()
'invalide le Enregistrer sous
Set collcontrols = Application.CommandBars.FindControls(ID:t8)
For I = 1 To collcontrols.Count
collcontrols(I).Enabled = false
End Sub

Je précise que les 2 fonctionnent très bien.

2. Pour les raccourcis clavier, on contrôle la touche CTRL avec
"Application.OnKey "^{touche}". Pour Alt et Alt-Gr quel "argument" utiliser
à la place de "^" ?

3. pour les gens intéressés la liste des contrôles chez Microsoft :
http://support.microsoft.com/default.aspx?scid=kb;en-us;213552#XSLTH31321211
23120121120120

Merci encore et bonne soirée à tous,
Marcel

Cher Jean-Louis GOUBERT, il faut essayer de comprendre avant de poster des
âneries,

L'idée : l'utilisateur ouvre le fichier, l'utilise (saisie de données...) et
enregistre les modifications... mais sans pouvoir enregistrer le fichier
ailleurs qu'à son emplacement d'origine (d'où la suppression de le fonction
"enregistrer_sous..." uniquement).

C'est quand même mieux en expliquant l'objectif plutôt qu'une solution.
En ne donnant les permissions d'accès qu'à un seul dossier.
Ou faire un interface de saisie sans accès au document lui-même, en
plus ça lui évitera de faire des bêtises sur le document, sont
tellement bêtes les utilisateurs qu'il faut se méfier de tout.
Sinon il y a toujours des solutions de contournement.
Si un de vos utilisateurs vient poser la question ici, on se fera un
plaisir de lui expliquer.

--
A+

cher Marcel Olivier

supprimer cette fonction , c'est vraiment se priver d'une fonctionnalité
indispensable ; si tu ne tiens pas à voir le fichier ailleurs(1), si tu
tiens à ce que les uttilisateurs restent des neuneus, tu leur dis de cliquer
sur le symbole "disquette" et de fermer excel...

(1) de toute façon , si ton utilisateur s'amuse (!) à enregistrer ton
fichier ailleurs, c'est qu'il n'a déjà plus besoin qu'on lui supprime la
fonction!!!

quand on voit ce que tu penses des macros proposées, donne aux utilisateurs
du papier quadrillé, un crayon et ramasse les copies!

bon travail

--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WINDOWS
NB - adresse : enlever ENLEVER
<Marcel-Olivier> a écrit dans le message de news:
%23Bq9k2XMGHA.3276@TK2MSFTNGP09.phx.gbl...

Cher Jean-Louis GOUBERT, il faut essayer de comprendre avant de poster des
âneries,

L'idée : l'utilisateur ouvre le fichier, l'utilise (saisie de données...)
et
enregistre les modifications... mais sans pouvoir enregistrer le fichier
ailleurs qu'à son emplacement d'origine (d'où la suppression de le
fonction
"enregistrer_sous..." uniquement).

Merci pour votre contribution,
Marcel

Comment faire pour enlever la fonction "enregistrer_sous..." des
programmes

Word et Excel 2000/XP.

Supprimer la commande dans les menus ?!

De même, comment empêcher les utilisateurs de réactiver cette fonction
:-)

Leurs attacher les mains, supprimer le clavier ou l'écran, enlever le
disque dur et installer Windows et Word sur un CD (NB ne pas laisser de
graveur). Supprimer tout support permettant d'enregistrer... je dois en
oublier, mais c'est pas les moyens qui manque ;-)))))))