Sauvegarde ou non

[ninou58]

Bonjour tout le monde!!!
Après un long week-end, me voici d'attaque.
J'ai ceci: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbooks('futur_FDP.xls').Close SaveChanges:=False

End Sub

Mais en faite cela me premet biend e ne pas sauvegarder mais ça me ferme mon classeur et c'est pas ce que je veux.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Close SaveChanges:=False

End Sub

Celle ci fonctionne très bien. mais c'est pour la première, je voudrais qu'il ne sauvegarde pas et qu'il ne ferme pas mon classeur.

Merci d'avance

 

[Darkblaste]

Cette methode te permet de lui faire croire qu'il a sauvergarder quand tu fermes mais je comprend pas trop ce que tu veu fair parce que si tu fermes pas de toute façon tu sauvegardes pas :huh: et la ça te permet de quitter sans sauvegarder

sinon tu peut garder les changements (sauvegarder sans qu'il te demande)

 

[ninou58]

Re,
ce que je veux, c'est que si l'utilisateur clique sur enregistrer, que cela ne sauvegarde pas.D'ailleurs a aucun moment on ne doit pouvoir sauvegarder.

Merci d'avance

 

[ERIC S]

Bonjour

en général on déclare le fichier en lecture seule

A+

 

[Temjeh]

Bonjour à tous

Ce code empeche la sauvegarde. Met 1 en A1 le premier coup pour pouvoir sauvegarder au moin 1 fois avec ce code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range('A1') = 1 Then
Range('A1') = ''
ActiveWorkbook.Save
Else
Cancel = True
End If
End Sub

Ouais c'est pas très bon ce code on peut plus quitter et on peut sauvegarder en ferment avec le x ...désolé

Temjeh


Message édité par: Temjeh, à: 19/04/2006 13:21

 

[ninou58]

Re,
en faisant ceci:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Cancel = True

End Sub

il ne sauvegarde pas.

Merci