OVH Cloud OVH Cloud

Menu Enregistrer sous

7 réponses
Avatar
Mima
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le suivi de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture du
fichier. En bref, je veux supprimer toutes les possibilités qui permettent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un module
de feuille

7 réponses

Avatar
jps
bonjour toute seule

ci dessous copie d'une réponse à cette même question faite par pascal alias
papou

Si c'est uniquement l'option enregistrer sous que tu souhaites inhiber,
place le code ci-dessous dans ThisworkBook (ou clic droit sur l'icône Excel
à gauche du menu Fichier, puis Visualiser le code)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("File").Controls(5).Enabled = True
Application.OnKey "{F12}"
End Sub

Private Sub Workbook_Open()
Application.CommandBars("File").Controls(5).Enabled = False
Application.OnKey "{F12}", ""
End Sub


HTH

jps

PS (private joke) quant aux solutions à mettre en ouvre, voir avec le noud
d'AV

"Mima" a écrit dans le message de news:
%
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le suivi
de bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs
personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées
lorsque le fichier a été ouvert en lecture seule, je voudrais désactiver
le menu "Enregistrer sous" et la boite de dialogue qui s'ouvre à la
fermeture du fichier. En bref, je veux supprimer toutes les possibilités
qui permettent de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je
vous en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un
module de feuille


Avatar
anonymousA
Bonjour,

bien que la réponse faite par jps soit adéquate, je te rappelle
cependant que , ce faisant , tu n'invalides pas la possibilité de
personnaliser une barre de commandes ( en utilisant le controle
"Personnaliser... " de Affichage/Barre d'outils) ni le double click sur
l'espace des barres de commandes permettant d'acceder à la
personnalisation. En conséquence , pour l'utilisateur un peu avisé,
il sera toujours possible d'utiliser "enregistrer sous". Maintenant, tu
n'as peut-être pas besoin d'autant de précautions.

A+


Mima wrote:
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le suiv i de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs pers onnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectu ées lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture du
fichier. En bref, je veux supprimer toutes les possibilités qui permett ent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module o u un module
de feuille


Avatar
Mima
Merci pour vos réponses.
Mais cela ne résoud qu'une partie du problème.
Lorsque le fichier est ouvert en lecture seule, à la fermeture du fichier
s'ouvre une boite de dialogue qui permet encore d'enregistrer le fichier
sous un autre nom ou un autre endroit. C'est cette boite de dialogue que je
tient particulièrement à supprimer ou tout au moins à neutraliser.
Les autres possibilités de personnalisation ne sont pas encore à la portée
de mes collègues et ne nécessite donc pas de traitement particulier.
Question subsidiaire : quel est l'action qui est supprimée par la ligne de
code "Application.OnKey "{F12}"
"?

"anonymousA" a écrit dans le message de news:

Bonjour,

bien que la réponse faite par jps soit adéquate, je te rappelle
cependant que , ce faisant , tu n'invalides pas la possibilité de
personnaliser une barre de commandes ( en utilisant le controle
"Personnaliser... " de Affichage/Barre d'outils) ni le double click sur
l'espace des barres de commandes permettant d'acceder à la
personnalisation. En conséquence , pour l'utilisateur un peu avisé,
il sera toujours possible d'utiliser "enregistrer sous". Maintenant, tu
n'as peut-être pas besoin d'autant de précautions.

A+


Mima wrote:
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le suivi
de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs
personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées
lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture du
fichier. En bref, je veux supprimer toutes les possibilités qui permettent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je
vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un
module
de feuille


Avatar
papou
Bonjour
S'il s'agit de fermer systématiquement sans enregistrer dès lors que le
fichier est en lecture seule, tu peux intégrer le code suivant dans
Thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.ReadOnly Then Me.Close (False)
End Sub
ou celui-ci (ou même les deux à la fois)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.ReadOnly Then Cancel = True
End Sub

NB : Pour placer dans le code de Thisworkbook, tu peux utiliser le clic
droit sur l'icône d'Excel (située à gauche du menu fichier), l'option
Visualiser le code, et coller les lignes qui t'intéressent dans la page
blanche affichée à droite.

Pour la question subsidiaire :
La touche F12 est un raccourci qui fait apparaître la boîte de dialogue
"Enregistrer sous"

Cordialement
Pascal

"Mima" a écrit dans le message de news:
%
Merci pour vos réponses.
Mais cela ne résoud qu'une partie du problème.
Lorsque le fichier est ouvert en lecture seule, à la fermeture du fichier
s'ouvre une boite de dialogue qui permet encore d'enregistrer le fichier
sous un autre nom ou un autre endroit. C'est cette boite de dialogue que
je tient particulièrement à supprimer ou tout au moins à neutraliser.
Les autres possibilités de personnalisation ne sont pas encore à la portée
de mes collègues et ne nécessite donc pas de traitement particulier.
Question subsidiaire : quel est l'action qui est supprimée par la ligne de
code "Application.OnKey "{F12}"
"?

"anonymousA" a écrit dans le message de news:

Bonjour,

bien que la réponse faite par jps soit adéquate, je te rappelle
cependant que , ce faisant , tu n'invalides pas la possibilité de
personnaliser une barre de commandes ( en utilisant le controle
"Personnaliser... " de Affichage/Barre d'outils) ni le double click sur
l'espace des barres de commandes permettant d'acceder à la
personnalisation. En conséquence , pour l'utilisateur un peu avisé,
il sera toujours possible d'utiliser "enregistrer sous". Maintenant, tu
n'as peut-être pas besoin d'autant de précautions.

A+


Mima wrote:
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le suivi
de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs
personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées
lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture du
fichier. En bref, je veux supprimer toutes les possibilités qui
permettent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je
vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un
module
de feuille





Avatar
jps
je me dis que mima aurait pu enfoncer F12 et il n'aurait pas eu besoin de
poser sa question, certes subsidiaire mais sans aucune fixation de prime
pour bonne réponse...ça va que papou est au-dessus de cela :-)))
jps

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
S'il s'agit de fermer systématiquement sans enregistrer dès lors que le
fichier est en lecture seule, tu peux intégrer le code suivant dans
Thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.ReadOnly Then Me.Close (False)
End Sub
ou celui-ci (ou même les deux à la fois)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.ReadOnly Then Cancel = True
End Sub

NB : Pour placer dans le code de Thisworkbook, tu peux utiliser le clic
droit sur l'icône d'Excel (située à gauche du menu fichier), l'option
Visualiser le code, et coller les lignes qui t'intéressent dans la page
blanche affichée à droite.

Pour la question subsidiaire :
La touche F12 est un raccourci qui fait apparaître la boîte de dialogue
"Enregistrer sous"

Cordialement
Pascal

"Mima" a écrit dans le message de news:
%
Merci pour vos réponses.
Mais cela ne résoud qu'une partie du problème.
Lorsque le fichier est ouvert en lecture seule, à la fermeture du fichier
s'ouvre une boite de dialogue qui permet encore d'enregistrer le fichier
sous un autre nom ou un autre endroit. C'est cette boite de dialogue que
je tient particulièrement à supprimer ou tout au moins à neutraliser.
Les autres possibilités de personnalisation ne sont pas encore à la
portée de mes collègues et ne nécessite donc pas de traitement
particulier.
Question subsidiaire : quel est l'action qui est supprimée par la ligne
de code "Application.OnKey "{F12}"
"?

"anonymousA" a écrit dans le message de news:

Bonjour,

bien que la réponse faite par jps soit adéquate, je te rappelle
cependant que , ce faisant , tu n'invalides pas la possibilité de
personnaliser une barre de commandes ( en utilisant le controle
"Personnaliser... " de Affichage/Barre d'outils) ni le double click sur
l'espace des barres de commandes permettant d'acceder à la
personnalisation. En conséquence , pour l'utilisateur un peu avisé,
il sera toujours possible d'utiliser "enregistrer sous". Maintenant, tu
n'as peut-être pas besoin d'autant de précautions.

A+


Mima wrote:
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le suivi
de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs
personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées
lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture du
fichier. En bref, je veux supprimer toutes les possibilités qui
permettent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je
vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un
module
de feuille









Avatar
papou
Salut Jean-Paul
;-)
Oui ben c'est vrai que parfois il faut passer au-dessus... mais parfois
aussi c'est difficile.
Ceci étant, je ne suis pas venu depuis longtemps ici, donc peut-être un tout
petit peu plus patient que d'habitude ?

Pascal

PS: et puis mima c'est féminin non ? ;-)


"jps" a écrit dans le message de news:
%
je me dis que mima aurait pu enfoncer F12 et il n'aurait pas eu besoin de
poser sa question, certes subsidiaire mais sans aucune fixation de prime
pour bonne réponse...ça va que papou est au-dessus de cela :-)))
jps

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
S'il s'agit de fermer systématiquement sans enregistrer dès lors que le
fichier est en lecture seule, tu peux intégrer le code suivant dans
Thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.ReadOnly Then Me.Close (False)
End Sub
ou celui-ci (ou même les deux à la fois)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.ReadOnly Then Cancel = True
End Sub

NB : Pour placer dans le code de Thisworkbook, tu peux utiliser le clic
droit sur l'icône d'Excel (située à gauche du menu fichier), l'option
Visualiser le code, et coller les lignes qui t'intéressent dans la page
blanche affichée à droite.

Pour la question subsidiaire :
La touche F12 est un raccourci qui fait apparaître la boîte de dialogue
"Enregistrer sous"

Cordialement
Pascal

"Mima" a écrit dans le message de news:
%
Merci pour vos réponses.
Mais cela ne résoud qu'une partie du problème.
Lorsque le fichier est ouvert en lecture seule, à la fermeture du
fichier s'ouvre une boite de dialogue qui permet encore d'enregistrer le
fichier sous un autre nom ou un autre endroit. C'est cette boite de
dialogue que je tient particulièrement à supprimer ou tout au moins à
neutraliser.
Les autres possibilités de personnalisation ne sont pas encore à la
portée de mes collègues et ne nécessite donc pas de traitement
particulier.
Question subsidiaire : quel est l'action qui est supprimée par la ligne
de code "Application.OnKey "{F12}"
"?

"anonymousA" a écrit dans le message de news:

Bonjour,

bien que la réponse faite par jps soit adéquate, je te rappelle
cependant que , ce faisant , tu n'invalides pas la possibilité de
personnaliser une barre de commandes ( en utilisant le controle
"Personnaliser... " de Affichage/Barre d'outils) ni le double click sur
l'espace des barres de commandes permettant d'acceder à la
personnalisation. En conséquence , pour l'utilisateur un peu avisé,
il sera toujours possible d'utiliser "enregistrer sous". Maintenant, tu
n'as peut-être pas besoin d'autant de précautions.

A+


Mima wrote:
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le
suivi de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs
personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées
lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le
menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture
du
fichier. En bref, je veux supprimer toutes les possibilités qui
permettent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance je
vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un
module
de feuille













Avatar
Mima
Merci pour vos réponses qui correspondent tout à fait à mon attente.

Par contre, une petite suggestion :
Il ne faut pas toujours se fier au apparence. Un pseudo peut être la
contraction de plusieurs prénoms et ne pas refléter le sexe de son
titulaire. D'autre part, si certaines actions paraissent évidente pour les
uns, elles ne le sont pas pour d'autre. Chacun a sa façon d'accéder aux
différents menus ou outils, et les chemins pour chaque action sont
multiples. Donc soyez sympa dans vos commentaires et éviter d'être un peu
trop condescendant. Merci pour ces dames.... Il est des situations où l'on
peut poser des questions qui peuvent paraître ridicule...

Merci et sans rancune
Michel

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Salut Jean-Paul
;-)
Oui ben c'est vrai que parfois il faut passer au-dessus... mais parfois
aussi c'est difficile.
Ceci étant, je ne suis pas venu depuis longtemps ici, donc peut-être un
tout petit peu plus patient que d'habitude ?

Pascal

PS: et puis mima c'est féminin non ? ;-)


"jps" a écrit dans le message de news:
%
je me dis que mima aurait pu enfoncer F12 et il n'aurait pas eu besoin de
poser sa question, certes subsidiaire mais sans aucune fixation de prime
pour bonne réponse...ça va que papou est au-dessus de cela :-)))
jps

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
S'il s'agit de fermer systématiquement sans enregistrer dès lors que le
fichier est en lecture seule, tu peux intégrer le code suivant dans
Thisworkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.ReadOnly Then Me.Close (False)
End Sub
ou celui-ci (ou même les deux à la fois)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.ReadOnly Then Cancel = True
End Sub

NB : Pour placer dans le code de Thisworkbook, tu peux utiliser le clic
droit sur l'icône d'Excel (située à gauche du menu fichier), l'option
Visualiser le code, et coller les lignes qui t'intéressent dans la page
blanche affichée à droite.

Pour la question subsidiaire :
La touche F12 est un raccourci qui fait apparaître la boîte de dialogue
"Enregistrer sous"

Cordialement
Pascal

"Mima" a écrit dans le message de news:
%
Merci pour vos réponses.
Mais cela ne résoud qu'une partie du problème.
Lorsque le fichier est ouvert en lecture seule, à la fermeture du
fichier s'ouvre une boite de dialogue qui permet encore d'enregistrer
le fichier sous un autre nom ou un autre endroit. C'est cette boite de
dialogue que je tient particulièrement à supprimer ou tout au moins à
neutraliser.
Les autres possibilités de personnalisation ne sont pas encore à la
portée de mes collègues et ne nécessite donc pas de traitement
particulier.
Question subsidiaire : quel est l'action qui est supprimée par la ligne
de code "Application.OnKey "{F12}"
"?

"anonymousA" a écrit dans le message de news:

Bonjour,

bien que la réponse faite par jps soit adéquate, je te rappelle
cependant que , ce faisant , tu n'invalides pas la possibilité de
personnaliser une barre de commandes ( en utilisant le controle
"Personnaliser... " de Affichage/Barre d'outils) ni le double click sur
l'espace des barres de commandes permettant d'acceder à la
personnalisation. En conséquence , pour l'utilisateur un peu avisé,
il sera toujours possible d'utiliser "enregistrer sous". Maintenant, tu
n'as peut-être pas besoin d'autant de précautions.

A+


Mima wrote:
Bonjour à tous

J'ai crée un fichier avec un certain nombre d'automatismes pour le
suivi de
bons de commande et des factures correspondantes.
Ce fichier est situé sur un serveur et est utilisé par plusieurs
personnels.
Pour éviter de me retrouver à la tête de plusieurs copies effectuées
lorsque
le fichier a été ouvert en lecture seule, je voudrais désactiver le
menu
"Enregistrer sous" et la boite de dialogue qui s'ouvre à la fermeture
du
fichier. En bref, je veux supprimer toutes les possibilités qui
permettent
de faire des copies de ce fichier.
Si vous avez des idées sur les solutions à mettre en ouvre, d'avance
je vous
en remercie.

PS. Préciser si le code proposé doit être insérer sur un module ou un
module
de feuille