Bloquer les fonctions Save et Save as Excel

Bonjour à tous,

Je travaille sur un formulaire dans lequel l'utilisateur doit à la fin appuyer sur un bouton qui lui d'enregistrer celui-ci au bon endroit,

Je souhaiterais bloquer sur le fichier excel les fonctionnalités Save et Save As pour empêcher l’utilisateur d'enregistrer ailleurs et le forcer à utiliser le bouton Enregistrer crée à cette effet,

Est ce que je peux faire ça directement sur excel ?

Merci d'avance pour votre aide,

bonjour,

ça doit être faisable mais peut-être un peu compliqué.

Dans un module Standard (Module1...) mettre :

Dim YOk as Boolean

Dans ta macro qui autorise la sauvegarde mettre :

Sub LeNomDeTaMacro()
'Dès le début :
YOk = True
'ici la suite de ta macro...

'et à la fin
DoEvents
YOk = False
End Sub

Et enfin... dans le module ThisWorkbook coller :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not YOk Then
Cancel = True
End If
End Sub

A+

Salut,

Je viens d'essayer ce code et cela ne bloque pas les boutons Save et Save As,

Comment je peux faire pour les verrouiller ?

Merci d'avance

En fait le code de galopin01 permet d’empêcher le fichier excel de se fermer,

En effet lorsque je clique sur la croix rouge en haut à droite, il ne se passe rien,

Pour le fermer je suis obliger de killer avec Ctrl+Maj+Echap

Je souhaite bloquer les fonctionnalités Save et Save As du fichier si quelqu’un pourrait m'aider,

Merci d'avance pour votre aide,

bonjour,

désolé...

Modifier la dernière macro comme suit :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not YOk Then
Cancel = True
End If
End Sub

A+

Merci beaucoup ça marche c'est top

Juste une dernière question est ce qu'il serait possible lorsque les utilisateurs appuient sur le save, qu'ils aient un msgbox("Merci de cliquer le bouton qui se trouve sur la feuille pour enregistrer")

Merci d'avance,

Salut les amis,

Est ce qu'il serait possible lorsque les utilisateurs appuient sur le save, qu'ils aient un msgbox ("Merci de cliquer le bouton qui se trouve sur la feuille pour enregistrer")

Merci d’avance pour votre aide,

Modifier comme suit :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not YOk Then
Cancel = True
Msgbox "ici ton message"
End If
End Sub

A+

Merci beaucoup, ça marche