Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sauvegarde interdite

Sauvegarde interdite

13 réponses
Avatar
JoWal
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du classeur
modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option "Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
jps
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du classeur
modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.




Avatar
JoWal
Merci jps de ta rapide réponse.....

Effectivement ce la fonctionne pour les deux cas mais uniquement dans le
menu fichier. par contre si l'on passe par le bouton dans la barre
"standard" la sauvegarde est encore possible (hélas).
Je suppose qu'il me faudra indiquer la même chose avec true avant fermeture
du classeur.

Le hic, c'est qu'un message me dira que "le classeur a été modifié, voullez
vous le sauvegarder?"

Bref je tourne en rond.

"jps" a écrit dans le message de
news:
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du
classeur


modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.








Avatar
jps
re
pour le bouton "disquette" de la BO standard :

With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = False
End With

il faudra bien sûr remettre tout ce petit monde à True en fin de macro

pour éviter la boîte "voulez-vous....", je crois qu'il faut mettre

Application.DisplayAlerts = False

mais à vérifier malgré tout
jps

"JoWal" a écrit dans le message de news:
%23$
Merci jps de ta rapide réponse.....

Effectivement ce la fonctionne pour les deux cas mais uniquement dans le
menu fichier. par contre si l'on passe par le bouton dans la barre
"standard" la sauvegarde est encore possible (hélas).
Je suppose qu'il me faudra indiquer la même chose avec true avant
fermeture
du classeur.

Le hic, c'est qu'un message me dira que "le classeur a été modifié,
voullez
vous le sauvegarder?"

Bref je tourne en rond.

"jps" a écrit dans le message de
news:
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du
classeur


modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.












Avatar
JoWal
Re-merci jps.
Pour la première partie cela fonctionne correctement.

Pour le message,il apparait encore, je continue mes recehers et
essais.......
Bonne journée

"jps" a écrit dans le message de
news:%
re
pour le bouton "disquette" de la BO standard :

With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = False
End With

il faudra bien sûr remettre tout ce petit monde à True en fin de macro

pour éviter la boîte "voulez-vous....", je crois qu'il faut mettre

Application.DisplayAlerts = False

mais à vérifier malgré tout
jps

"JoWal" a écrit dans le message de news:
%23$
Merci jps de ta rapide réponse.....

Effectivement ce la fonctionne pour les deux cas mais uniquement dans le
menu fichier. par contre si l'on passe par le bouton dans la barre
"standard" la sauvegarde est encore possible (hélas).
Je suppose qu'il me faudra indiquer la même chose avec true avant
fermeture
du classeur.

Le hic, c'est qu'un message me dira que "le classeur a été modifié,
voullez
vous le sauvegarder?"

Bref je tourne en rond.

"jps" a écrit dans le message de
news:
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du
classeur


modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.















Avatar
AV
Dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Ca devrait suffire... sauf bidouilles évidemment
AV
Avatar
JoWal
Bonjour & merci AV.
Une fois saisi tes lignes, impossible de sauvegarder ......n'ai pas du faire
ce qu'il faut.


"AV" a écrit dans le message de
news:
Dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

Cancel = True
End Sub

Ca devrait suffire... sauf bidouilles évidemment
AV




Avatar
jps
re
pour que le message n"apparaisse pas :

Workbooks("LeNomDeTonFichier.xls").Save

cette ligne enregistre ce qui a été fait dans un fichier sans que la boîte
"voulez-vous....3 ne s'affiche
est-ce bien de cela dont il s'agit?
jps

"JoWal" a écrit dans le message de news:
%23$
Merci jps de ta rapide réponse.....

Effectivement ce la fonctionne pour les deux cas mais uniquement dans le
menu fichier. par contre si l'on passe par le bouton dans la barre
"standard" la sauvegarde est encore possible (hélas).
Je suppose qu'il me faudra indiquer la même chose avec true avant
fermeture
du classeur.

Le hic, c'est qu'un message me dira que "le classeur a été modifié,
voullez
vous le sauvegarder?"

Bref je tourne en rond.

"jps" a écrit dans le message de
news:
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du
classeur


modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.












Avatar
JoWal
re......

Ci-dessous la fin de mon code...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
Sheets(7).Activate
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
End With

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = True
.Controls("En&registrer sous...").Enabled = True
End With
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = True
End With
End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Application.UserName <> "toto" Then
MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
Cancel = True

End If
End Sub

Le but est que l'utilisateur (autre que moi même) quitte directement le
classeur sans que le message "Voullez-vous enregistrer...."






"jps" a écrit dans le message de
news:
re
pour que le message n"apparaisse pas :

Workbooks("LeNomDeTonFichier.xls").Save

cette ligne enregistre ce qui a été fait dans un fichier sans que la
boîte

"voulez-vous....3 ne s'affiche
est-ce bien de cela dont il s'agit?
jps

"JoWal" a écrit dans le message de news:
%23$
Merci jps de ta rapide réponse.....

Effectivement ce la fonctionne pour les deux cas mais uniquement dans le
menu fichier. par contre si l'on passe par le bouton dans la barre
"standard" la sauvegarde est encore possible (hélas).
Je suppose qu'il me faudra indiquer la même chose avec true avant
fermeture
du classeur.

Le hic, c'est qu'un message me dira que "le classeur a été modifié,
voullez
vous le sauvegarder?"

Bref je tourne en rond.

"jps" a écrit dans le message de
news:
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du
classeur


modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.















Avatar
jps
ach! alain, on ne pense pas à la même chose
jps

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

Dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Cancel = True
End Sub

Ca devrait suffire... sauf bidouilles évidemment
AV




Avatar
jps
oups! je n'avais pas compris que le classeur source devait être renvoyé dans
son kibboutz sans avoir été modifié....heureusement que l'inébranlable AV
était là...
jps

"JoWal" a écrit dans le message de news:
%
re......

Ci-dessous la fin de mon code...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
Sheets(7).Activate
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
End With

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = True
.Controls("En&registrer sous...").Enabled = True
End With
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = True
End With
End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Application.UserName <> "toto" Then
MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
Cancel = True

End If
End Sub

Le but est que l'utilisateur (autre que moi même) quitte directement le
classeur sans que le message "Voullez-vous enregistrer...."






"jps" a écrit dans le message de
news:
re
pour que le message n"apparaisse pas :

Workbooks("LeNomDeTonFichier.xls").Save

cette ligne enregistre ce qui a été fait dans un fichier sans que la
boîte

"voulez-vous....3 ne s'affiche
est-ce bien de cela dont il s'agit?
jps

"JoWal" a écrit dans le message de news:
%23$
Merci jps de ta rapide réponse.....

Effectivement ce la fonctionne pour les deux cas mais uniquement dans
le
menu fichier. par contre si l'on passe par le bouton dans la barre
"standard" la sauvegarde est encore possible (hélas).
Je suppose qu'il me faudra indiquer la même chose avec true avant
fermeture
du classeur.

Le hic, c'est qu'un message me dira que "le classeur a été modifié,
voullez
vous le sauvegarder?"

Bref je tourne en rond.

"jps" a écrit dans le message de
news:
bonjour JoWal
peut-être comme ceci :

With Application.CommandBars(1).Controls(1)
.Controls("Enre&gistrer").Enabled = False
.Controls("En&registrer sous...").Enabled = False
End With

HTH
jps

"JoWal" a écrit dans le message de news:
%23X28uo$
Bonjour à tous,

J'ai créé un bouton dans une feuille permettant la sauvegarde du
classeur


modifié mais sous un autre nom (fixé automatiquement).
Ma question est la suivante : Comment rendre inopérant l'option
"Enregistrer
sous..." ansi que le bouton "enregistrer" dans la barre de menu?

D'avance merci de m'avoir lu et peut être conseillé.
Bonne journée.



















1 2