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
Loic
Excuse moi d'insister mais ce que tu proposes sert juste à éviter la sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou fichier -> Enregistrer sous.
"Emcy" a écrit dans le message de news: 07ff01c38dae$7a857b60$ salut, mets cette macro dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine----- Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
.
Excuse moi d'insister mais ce que tu proposes sert juste à éviter la
sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" <emcy@voila.com> a écrit dans le message de news:
07ff01c38dae$7a857b60$a001280a@phx.gbl...
salut,
mets cette macro dans le module ThisWorkbook de ton
classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine-----
Bonsoir,
Je cherche à savoir comment désactiver la
fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous &
F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que
je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que
je voudrais gérer
Excuse moi d'insister mais ce que tu proposes sert juste à éviter la sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou fichier -> Enregistrer sous.
"Emcy" a écrit dans le message de news: 07ff01c38dae$7a857b60$ salut, mets cette macro dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine----- Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
.
sebastien
Meme ma solution ne convient pas ??? ou alors c'est qu'on a pas bien compris ce ke tu voulais ;op
-----Message d'origine----- Excuse moi d'insister mais ce que tu proposes sert juste à éviter la
sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" a écrit dans le message de news: 07ff01c38dae$7a857b60$ salut, mets cette macro dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine----- Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
.
.
Meme ma solution ne convient pas ??? ou alors c'est qu'on
a pas bien compris ce ke tu voulais ;op
-----Message d'origine-----
Excuse moi d'insister mais ce que tu proposes sert juste
à éviter la
sauvegrade via la croix de la feuille. Mais, la macro
m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par
fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" <emcy@voila.com> a écrit dans le message de news:
07ff01c38dae$7a857b60$a001280a@phx.gbl...
salut,
mets cette macro dans le module ThisWorkbook de ton
classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine-----
Bonsoir,
Je cherche à savoir comment désactiver la
fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous &
F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que
je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que
je voudrais gérer
Meme ma solution ne convient pas ??? ou alors c'est qu'on a pas bien compris ce ke tu voulais ;op
-----Message d'origine----- Excuse moi d'insister mais ce que tu proposes sert juste à éviter la
sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" a écrit dans le message de news: 07ff01c38dae$7a857b60$ salut, mets cette macro dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine----- Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
.
.
Loic
Pardon à vous deux, je me suis un peu mal exprimé :
Voici le code de mon Worksheet
---
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveAsUI = False a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo) If a = vbNo Then Cancel = True End Sub ----
Quand je clique sur le bouton "sauvegarder, ou ctrl + s", il me demande bien si je veux sauvegarder, c'est normal et j'approuve. En revanche, quand je vais dans Fichier -> sauvegrader sous, il m'affiche tout de même la fenêtre de "souvegarder sous", c'est-à-dire, il me demande de rentrer le nom, le répertoire et ainsi de suite...
Bref, je ne comprends pas pourquoi malgré la présence dans le code de "SaveAsUI = False", il m'affiche tout de même la fenêtre "sauvegarder sous" ???
"sebastien" a écrit dans le message de news: 08c301c38db3$e08e4b30$ Meme ma solution ne convient pas ??? ou alors c'est qu'on a pas bien compris ce ke tu voulais ;op
-----Message d'origine----- Excuse moi d'insister mais ce que tu proposes sert juste à éviter la
sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" a écrit dans le message de news: 07ff01c38dae$7a857b60$ salut, mets cette macro dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine----- Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
.
.
Pardon à vous deux, je me suis un peu mal exprimé :
Voici le code de mon Worksheet
---
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveAsUI = False
a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
----
Quand je clique sur le bouton "sauvegarder, ou ctrl + s", il me demande bien
si je veux sauvegarder, c'est normal et j'approuve. En revanche, quand je
vais dans Fichier -> sauvegrader sous, il m'affiche tout de même la fenêtre
de "souvegarder sous", c'est-à-dire, il me demande de rentrer le nom, le
répertoire et ainsi de suite...
Bref, je ne comprends pas pourquoi malgré la présence dans le code de
"SaveAsUI = False", il m'affiche tout de même la fenêtre "sauvegarder sous"
???
"sebastien" <sebastien.tranchant@club-internet.fr> a écrit dans le message
de news: 08c301c38db3$e08e4b30$a001280a@phx.gbl...
Meme ma solution ne convient pas ??? ou alors c'est qu'on
a pas bien compris ce ke tu voulais ;op
-----Message d'origine-----
Excuse moi d'insister mais ce que tu proposes sert juste
à éviter la
sauvegrade via la croix de la feuille. Mais, la macro
m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par
fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" <emcy@voila.com> a écrit dans le message de news:
07ff01c38dae$7a857b60$a001280a@phx.gbl...
salut,
mets cette macro dans le module ThisWorkbook de ton
classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine-----
Bonsoir,
Je cherche à savoir comment désactiver la
fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous &
F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que
je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que
je voudrais gérer
Pardon à vous deux, je me suis un peu mal exprimé :
Voici le code de mon Worksheet
---
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveAsUI = False a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo) If a = vbNo Then Cancel = True End Sub ----
Quand je clique sur le bouton "sauvegarder, ou ctrl + s", il me demande bien si je veux sauvegarder, c'est normal et j'approuve. En revanche, quand je vais dans Fichier -> sauvegrader sous, il m'affiche tout de même la fenêtre de "souvegarder sous", c'est-à-dire, il me demande de rentrer le nom, le répertoire et ainsi de suite...
Bref, je ne comprends pas pourquoi malgré la présence dans le code de "SaveAsUI = False", il m'affiche tout de même la fenêtre "sauvegarder sous" ???
"sebastien" a écrit dans le message de news: 08c301c38db3$e08e4b30$ Meme ma solution ne convient pas ??? ou alors c'est qu'on a pas bien compris ce ke tu voulais ;op
-----Message d'origine----- Excuse moi d'insister mais ce que tu proposes sert juste à éviter la
sauvegrade via la croix de la feuille. Mais, la macro m'empêche pas d'aller
dans fichier -> Enregistrer.
Ce que je voudrais, c'est d'éviter de passer par fichier -> Enregistrer ou
fichier -> Enregistrer sous.
"Emcy" a écrit dans le message de news: 07ff01c38dae$7a857b60$ salut, mets cette macro dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel = True 'empèche de sauvegarder
End Sub
ça te vas ?
-----Message d'origine----- Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
.
.
Clément Marcotte
Bonjour,
Bref, je ne comprends pas pourquoi malgré la présence dans le code de
"SaveAsUI = False", il m'affiche tout de même la fenêtre "sauvegarder sous"
???
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean) SaveAsUI = False a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo) If a = vbNo Then Cancel = True End Sub ----
essaie cela (Non testé, j'ai trop la flemme pour pour ouvri Excel, je l'ai eu ouvert devant les yeux durant presque 8 heures et c'est assez à mon goût)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo) If a = vbNo Then SaveAsUI = true else saveasui = false end if
Bonjour,
Bref, je ne comprends pas pourquoi malgré la présence dans le code
de
"SaveAsUI = False", il m'affiche tout de même la fenêtre
"sauvegarder sous"
???
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveAsUI = False
a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
----
essaie cela (Non testé, j'ai trop la flemme pour pour ouvri Excel, je
l'ai eu ouvert devant les yeux durant presque 8 heures et c'est assez
à mon goût)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
If a = vbNo Then
SaveAsUI = true
else
saveasui = false
end if
Bref, je ne comprends pas pourquoi malgré la présence dans le code de
"SaveAsUI = False", il m'affiche tout de même la fenêtre "sauvegarder sous"
???
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean) SaveAsUI = False a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo) If a = vbNo Then Cancel = True End Sub ----
essaie cela (Non testé, j'ai trop la flemme pour pour ouvri Excel, je l'ai eu ouvert devant les yeux durant presque 8 heures et c'est assez à mon goût)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) a = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo) If a = vbNo Then SaveAsUI = true else saveasui = false end if
ru-th
Salut Loic
Pour f12Application.OnKey "+{F12}", ""Pour le menuApplication.CommandBars("file").FindControl(ID:t8).Enabled Falsea+rural thierry"Loic" a écrit dans le message de news: bm17q7$tu5$
Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer automatiquement des versions.
Merci pour vos réponses.
Salut Loic
Pour f12Application.OnKey "+{F12}", ""Pour le
menuApplication.CommandBars("file").FindControl(ID:t8).Enabled Falsea+rural thierry"Loic" <lollor@lollo.com> a écrit dans le message de
news: bm17q7$tu5$1@s1.read.news.oleane.net...
Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl
+
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Pour f12Application.OnKey "+{F12}", ""Pour le menuApplication.CommandBars("file").FindControl(ID:t8).Enabled Falsea+rural thierry"Loic" a écrit dans le message de news: bm17q7$tu5$
Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl +
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer automatiquement des versions.
Merci pour vos réponses.
ru-th
Pour f12 Application.OnKey "{F12}", "" Pour le menu Application.CommandBars("file").FindControl(ID:t8).Enabled => False a+ rural thierry "ru-th" a écrit dans le message de news:
Salut Loic
"Loic" a écrit dans le message de news: bm17q7$tu5$
Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl
+
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer
automatiquement des versions.
Merci pour vos réponses.
Pour f12
Application.OnKey "{F12}", ""
Pour le menu
Application.CommandBars("file").FindControl(ID:t8).Enabled => False
a+
rural thierry
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:
ugRG28ijDHA.2216@TK2MSFTNGP12.phx.gbl...
Salut Loic
"Loic" <lollor@lollo.com> a écrit dans le message de
news: bm17q7$tu5$1@s1.read.news.oleane.net...
Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous"
sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur
"Crtl
+
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais
gérer
Pour f12 Application.OnKey "{F12}", "" Pour le menu Application.CommandBars("file").FindControl(ID:t8).Enabled => False a+ rural thierry "ru-th" a écrit dans le message de news:
Salut Loic
"Loic" a écrit dans le message de news: bm17q7$tu5$
Bonsoir,
Je cherche à savoir comment désactiver la fonction "enregistrer-sous" sous
toutes ses formes (Menu fichier -> enregistrer sous & F12 ou autre).
Par ailleurs, je voudrais déclencher une macro dès que je clique sur "Crtl
+
S" ou "Menu fichier -> enregistrer ou autre".
Mon objectif est de contrôler les sauvegardes parce que je voudrais gérer