bloquer l'enregistremment et passer par un bouton

[Vanhelsing]

bonsoir

je voudrais bloquer l'enregistrement par la barre de menu et forcer l'utilisateur passer par un bouton pour faire la sauvegarde du fichier.

quelqu un peut me dire comment faire.

merci d'avance

 

[Staple1600]

Re : bloquer l'enregistremment et passer par un bouton

Bonsoir


A utiliser avec précaution et modération

Lien supprimé

PS: en utilisant le moteur de recherche du trouveras d'autres fils relatifs à ta question.


Edition: bonjour job75, bonjour Hasco

 

[job75]

Re : bloquer l'enregistremment et passer par un bouton

Bonjour,

Il vous faut 2 macros :

1) la 1ère à mettre dans le code de ThisWorkbook, bloque l'enregistrement "normal" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel as Boolean)
Cancel = True
End Sub

2) La 2ème, à mettre dans un module, est lancée par le bouton :

Sub Enregistre()
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
End Sub

A+

Edit : salut Staple, pas rafraichi...

 

[Guest]

Re : bloquer l'enregistremment et passer par un bouton

Bonjour vanhelsing,

Une autre possibilité qui évite de modifier le comportement des menus qui est toujours délicat comme l'a souligné judicieusement l'ami Staple

Dans le module 1 il y a une variable booléenne publique nommée bOk.
Le reste du code est dans ThisWorkBook et le module de code de la feuil1.

[Edition] Hello Job75
A+