Comment Empêcher la sauvegarde

[m.alhalli]

Bonjour à toutes et à tous,

Je cherche, dans le cadre de limitation des actions possible, à empêcher l'enregistrement tout en gardant la possibilité d'enregistrer sous.

pourais-je avoir la réponse de quelqu'un qui connais SVP.

avant de mettre ce sujet j'avais trouver ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

mais le problème ce qu'elle interdit les deux actions (enregistrer et enregistrer sous)


NB : il faut insèrer ce code dans ThisWorkbook.


Merci d'avance pour vos réponse.

 

[PascalXLD]

Re : Comment Empêcher la sauvegarde

bonjour

essaies

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if saveasui=false then Cancel = True
End Sub

 

[Staple1600]

Re : Comment Empêcher la sauvegarde

Bonjour

Voici un début de solution

Sub saveas_NON()
'inhibe Save As dans le menu Fichier
With Application.CommandBars("Worksheet Menu Bar").Controls("Fichier")
.Controls("Enregistrer").Enabled = True
.Controls("Enregistrer sous...").Enabled = False
End With
End Sub
Sub save_saveas_OUI()
With Application.CommandBars("Worksheet Menu Bar").Controls("Fichier")
'rétabli Save et Save As dans le menu Fichier
.Controls("Enregistrer").Enabled = True
.Controls("Enregistrer sous...").Enabled = True
End With
End Sub

 

[m.alhalli]

Re : Comment Empêcher la sauvegarde

ça a marché super bien.

merci pascal et merci a toi aussi Staple1600 mais en fait puisque la 1ère a marché, du coup j'ai pas essayé la 2ème, merci en tout cas


bonne soirée.

 

[m.alhalli]

Re : Comment Empêcher la sauvegarde

Mais en fait il y a un autre problème, ce que lorsque je ferme la page excel elle me demande d'enregistrer les modifications ou non.

est ce qu'il y a un moyen pour l'eliminer ?

 

[PascalXLD]

Re : Comment Empêcher la sauvegarde

re

essaies d'ajouter

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Close (False)

End Sub

là ça ferme sans enregistrer

 

[m.alhalli]

Re : Comment Empêcher la sauvegarde

re

Lors de la compilation il y a une erreur et ça me donne ça "Ambiguous name detected: Workbook_BeforeClose"

 

[m.alhalli]

Re : Comment Empêcher la sauvegarde

re

Excusez moi, il y avait une erreur de ma part, en fait le Workbook_BeforeClose etait utiliser pour une autre instruction qui est le FermCom et ils etaient dans le même this workbook

Merci Mr Pascal

sa marche super bien, et en plus juste pour info, lorsque ouvre un nouveau classeur, on peut enregistrer la premiere fois et je trouve ça trés bien.

Merci encore une fois

 

[MJ13]

Re : Comment Empêcher la sauvegarde

Bonjour à tous.

On en a parlé dans ce post:

https://www.excel-downloads.com/threads/comment-desactiver-enregistrer-sous.85973/

 

[bruno33]

Re : Comment Empêcher la sauvegarde

Bonjour

En plus je rajoute dans ma macro

'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s", ""

La commande qui évite la demande "voulez vous sauvegarder" je la mets dans auto close()

A+

 

[m.alhalli]

Re : Comment Empêcher la sauvegarde

Merci tout le monde vous etes vraiment serviables dans ce magnifique forum

bonne soirée a toutes et a tous