eviter de sauvegarder

[Excel84]

Salut a tous,
J'ai un p'tit bleme. J'aimerai pouvoir empecher toutes possibilité de sauvegarde de mon classeur. Comment pourrai je faire?
De plus je souhaiterai fermer ce classeur a l'aide uniquement d'un bouton.
Merci d'avance pour votre aide.
@+

 

[G'Claire]

EXEL84, le forum

Essaie ce fichier, il y a la possibilité avec ou sans sauvegarde, a voir. Si tu veux obligatoirement pas sauvegarder ton fichier il suffira de le code du commande boutons par celui-là.

Private Sub CommandButtonfermeture_Click() 'Fermeture de l'application
Application.DisplayAlerts = False 'Supprime la fonction de demande de sauvegarde de Windows
If MsgBox("Vous allez fermer votre fichier sans enregistrer les modifications ?", vbYesNo + vbCritical, "ALERTE") = vbYes Then
Application.Quit 'Fermeture sans sauvegarde
Else
Exit Sub
End If
End Sub

Il faut remettre ce code dans le ThisworkBook

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


Application.DisplayAlerts = True 'Remet la fonction de demande de sauvegarde de Windows

End Sub

Merci a Zon pour l'aide sur cette fonction

G'Claire

 

[G'Claire]

EXEL84

Je n'avait pas bien lu la première question

Pour bloquer la fonction Enregister sous et la disquette, rajoute ce code dans Private Sub Workbook_BeforeSave

Cancel = True 'Empeche la sauvegarde par clique sur "Disquette" et de "Enregistrer sous" dans le menu Fichier

Salut G'Claire

 

[andré]

Salut Excel84,

Et pourquoi ne pas tout simplement enregistrer le classeur en "lecture seule" avec éventuellement un mot de passe ?

Ândré.