Ne pas sauvegarder

[Lorenzo]

Bonjour,
Dans le cadre d'une application partagée, je souhaiterai rendre inactif la fonction d'enregistrement du fichier, afin que chaque utilisateur conserve le même fichier lors de l'utilisation.
J'ai écris ce qui suit :

Private Sub Workbook_Open()
ThisWorkbook.Saved = False
End Sub

Mais cela ne fonctionne pas.
Est-e la ligne de commande qui est fausse ou l'endroit où elle est déclarée qui ne convient pas (ou les 2 ?).
Merci pour toute aide que vous pourriez m'apporter

 

[Dull]

Salut Lorenzo, le Forum,

Mauvais endroit... essaye ça

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks('TonFichier.xls') SaveChanges:=False

End Sub

 

[Lorenzo]

Merci beaucoup,
malheureusement cela ne fonctionne pas non plus.

J'ai mis ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks('bilan.xls') SaveChanges:=False
End Sub

et je reçois un message : Erreur de compilation : erreur de syntaxe

Est-ce que cela peut venir du fait que j'ai un autre 'Private Sub Workbook_BeforeClose' de déclarer pour une autre action ?

Merci

 

[Dull]

Re

Désolé il manquais un .close

Soit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks('bilan.xls').Close SaveChanges:=False
End Sub

Encore sorry

 

[PascalXLD]

Edition : je me suis fait une promesse

Message édité par: Pascal76, à: 06/04/2006 10:32

 

[AV]

Salut,

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

AV [MVP Excel]

 

[Dull]

Re le Fil

le https://www.excel-downloads.com/threads/eviter-lenregistrement-dun-fichier.57575/

Pascal

PS: tu as tout à fait raison

 

[Lorenzo]

Merci de m'avoir rediriger sur le bon fil...

J'ai appliquer cette commande :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim CellPassWord As Range

Set CellPassWord = Sheets('UnedeTesfeuilles').Range('IV65536')
If Not CellPassWord = 'UnmotConnudeToi' Then
Cancel = True
Else
CellPassWord = ''
MsgBox 'Fichier Sauvé !', vbInformation, 'Confirmation'
End If
End Sub

Mais le systême me renvoi un message d'erreur 'Nom ambigu détécté : Workbook_BeforeSave'

Voyez-vous pourquoi ?

 

[Lorenzo]

C'est tout bon,
a priori, le problème vient du fait que j'avais deux fois la commande 'Workbook_BeforeSave', j'ai fusionné les 2 et ça fonctionne (je ne savais pas qu'il fallait l'appeler une seule fois)
Merci pour vos réponses

Lorenzo

 

[_Thierry]

Bonjour Lorenzo, Pascal, Dull, AV, le Forum

Oui en effet deux fois la même macro évènementielle, ça ne le fait pas vraiment

Sinon donc heureux que tu aies pu trouver ton bonheur avec ce Code de IfEndIf.

Par contre tu peux en fait cumuler les deux codes de deux Macro évènementielles proposées dans ce fil.

Donc cette 'Private Sub Workbook_BeforeSave', et aussi, en plus, la 'Private Sub Workbook_BeforeClose' proposée par AV, car bien qu'elle ne réponde pas à ton besoin, (en effet, elle n'empêche absolument pas de sauver le fichier) ce code évitera toutefois la boite de dialogue 'Voulez-Vous enregistrer les modifications apportée au fichier...'

En effet l'instruction 'ThisWorkbook.Saved = True' est une feinte, elle fait croire à Excel que le fichier a été sauvé, et par conséquent pas de 'Prompt' pour alerter, celà peut être utile dans ton cas.

Bonne Journée
[ol]@+Thierry[/ol]