Msgbox avant de fermer ou d'enregister un fichier

Macpoy

XLDnaute Impliqué

• 5 Mai 2010

• #2

Re : Msgbox avant de fermer ou d'enregister un fichier

bonsoir le forum, Boubas1,

pour ce qui est du msg c'est bon voir exemple.
pour empêcher l'enregistrement, je cherche.
@ plus

 

Pièces jointes

• Classeur1.xls

  19.5 KB · Affichages: 171
• Classeur1.xls

  19.5 KB · Affichages: 161
• Classeur1.xls

  19.5 KB · Affichages: 152

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 5 Mai 2010

• #3

Re : Msgbox avant de fermer ou d'enregister un fichier

Re,

il suffit de rajouter cette ligne à l'existant.
ThisWorkbook.Saved = True

ce qui donne :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Attention vos modifications sur ce fichier ne sont pas à enregistrer !", vbOKOnly
ThisWorkbook.Saved = True
End Sub

aucune modif ne sera enregistrée à la fermeture.

mais si les utilisateurs clique sur le bouton enregistrer, ce code ne sert plus à rien !!

@plus

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 5 Mai 2010

• #4

Re : Msgbox avant de fermer ou d'enregister un fichier

Bonsoir à tous

On peut mettre le classeur en lecture seule. On ne pourra enregistrer les modifications que sous un nouveau nom.​

ROGER2327
#3417

16 Floréal An CCXVIII
2010-W18-3T20:40:41Z

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 5 Mai 2010

• #5

Re : Msgbox avant de fermer ou d'enregister un fichier

Re,
bonsoir ROGER2327,

Code:

On peut mettre le classeur en lecture seule. On ne pourra enregistrer  les modifications que sous un nouveau nom.

bon sang mais c'est bien sur !!! comment n'y avais je pas pensé !!!

 

Vote positif 0 Vote négatif

B

Boubas1

XLDnaute Occasionnel

• 5 Mai 2010

• #6

Re : Msgbox avant de fermer ou d'enregister un fichier

Oui, mais lecture seule veut dire mettre un mot de passe ?

Nb: Sinon tu fais comment ? Merci

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 5 Mai 2010

• #7

Re : Msgbox avant de fermer ou d'enregister un fichier

Re...

Pour mettre le fichier en lecture seule, l'enregistrer et le fermer. Ensuite un clic-droit sur son icône dans le dossier où il est enregistré, puis Propriétés/Général et valider Lecture seule.​

ROGER2327
#3419

16 Floréal An CCXVIII
2010-W18-3T21:21:53Z

 

Vote positif 0 Vote négatif

B

Boubas1

XLDnaute Occasionnel

• 7 Mai 2010

• #8

Re : Msgbox avant de fermer ou d'enregister un fichier

bonsoir,

Si on veut mettre le code de McPoy, c'est 1 macro, donc on fait bien "outils", "macros", "nouvelle macro" et on met le code dans un module ?
S'agirait-il pas plutôt d'un évènement, alors comment procéder alors ? Merci.

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 8 Mai 2010

• #9

Re : Msgbox avant de fermer ou d'enregister un fichier

bonjour le forum,

Boubas1 à dit:

bonsoir,

Si on veut mettre le code de McPoy, c'est 1 macro, donc on fait bien "outils", "macros", "nouvelle macro" et on met le code dans un module ?
S'agirait-il pas plutôt d'un évènement, alors comment procéder alors ? Merci.

Cliquez pour agrandir...

ce code est mettre dans ThisworBook

mais je le répète, si un utilisateur fait un enregistrement avant de fermer, ce code ne sert plus à rien !!

mais en cherchant un peu il est possible qu'on puisse empêcher toutes sorte d'action permettant l'enregistrement. a voir ???

@ plus

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 8 Mai 2010

• #10

Re : Msgbox avant de fermer ou d'enregister un fichier

Re,

j'ai trouvé ce lien qui me semble correspondre à ce que l'on cherche à faire :

https://www.excel-downloads.com/threads/interdire-un-enregistrement.118215/

@ plus

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2010

• #11

Re : Msgbox avant de fermer ou d'enregister un fichier

Bonjour le fil,

Voici une autre solution, voisine de celle de BrunoM45 dans le fil indiqué par Macpoy.

1) Dans le VBA du fichier concerné, créer un Module (il restera vide), enregistrer et fermer le fichier.

2) Ouvrir le fichier en désactivant les macros.

3) Entrer dans ThisWorkbook cette macro :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
With ThisWorkbook
If .Saved Then Exit Sub
MsgBox "Vos modifications sur ce fichier ne seront pas enregistrées !"
Cancel = True
  .Saved = True
  If Workbooks.Count = 1 Then Application.Quit Else .Close
End With
End Sub

4) Enregistrer et fermer le fichier.

Maintenant, lorsque le fichier est ouvert en activant les macros, toute modification du fichier est impossible.

Bien sûr on peut toujours le modifier en désactivant les macros... ce qui rend toute cette affaire un peu dérisoire, non ?

A+

 

Vote positif 0 Vote négatif

B

Boubas1

XLDnaute Occasionnel

• 8 Mai 2010

• #12

Msgbox avant d'enregister un fichier

Bonsoir,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Attention vos modifications sur ce fichier ne sont pas à enregistrer !", vbOKOnly
End Sub

Peut-on avoir le même message avec ce code avant d'enregistrer, par exemple avec BeforeSave ou c'est pas possible ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2010

• #13

Re : Msgbox avant de fermer ou d'enregister un fichier

Bonjour Boubas1, le forum,

On peut si l'on préfère simplifier la macro du post #11 :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
If ThisWorkbook.Saved Then Exit Sub 'pas indispensable...
MsgBox "Attention vos modifications sur ce fichier ne sont pas à enregistrer !"
Cancel = True
End Sub

Une macro Workbook_BeforeClose est inutile, sauf si l'on veut éviter la demande d'enregistrement :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
  If Not .Saved Then
    MsgBox "Attention vos modifications sur ce fichier ne sont pas à enregistrer !"
    .Saved = True
    If Workbooks.Count = 1 Then Application.Quit Else .Close
  End If
End With
End Sub

A+

 

Vote positif 0 Vote négatif