Discussion :

[devdev]

Décidemment, j'ai beaucoup de questions que je n'arrive pas à résoudre aujourd'hui. Connaissez vous la commande en vba pour annuler l'enregistrement d'un classeur sur l'évenement before save ?

[ouisansdoute]

Bonjour,

Je ne sais pas si ça répond à la question mais :
Pour ne pas enregistrer les changements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkBook.Saved = True ' on fait croire à Excel que le save a déjà eu lieu

A l'ouverdure d'un classeur, le Saved est positionné à True
Le Saved passe à False dès qu'une modification a lieu sur un document. Le remettre à True ne provoque pas l'enregistrement mais fais croire à Excel que les modfications ont été prises en compte

[devdev]

Ca ne fonctionne pas, l'enregistrement s'effectue malgré tout.

[ouisansdoute]

Bonjour,

Ca marche sur BeforeClose.
Comme son nom l'indique la rubrique BeforeSave d'exécute AVANT l'enregistrement du fichier.

Peut-être Vaudrait-il mieux mettre le ActiveWorkBook.Saved=True dans la rubrique Workbook_BeforeClose, pour fermer sans enregistrer.

[devdev]

Je ne veux pas annuler l'enregistrement à la fermeture du classeur mais bien lorsqu'on clique sur l'icone sauvegarder.

[ouisansdoute]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

désactive le bouton Enregistrer et Ctrl+S

Pour désactiver le menu Fichier/Enregistrer et Enregistrer Sous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
sub auto_open()
with CommandeBars("Worksheet Menu Bar")
.Controls(1).Controls(4).enabled = false
.Controls(1).Controls(5).enabled = false
end with
end sub

Il faut quand même les remettre à True a un moment sinon, même le code n'est pas enregistré à la fermeture du classeur

[devdev]

Merci ! Cancel=true fonctionne très bien.

[ouisansdoute]

Contente que ça marche.

n'oublie pas de cliquer sur