Bonjour j'ai un fichier que je désire faire enrgistrer uniquement à l'aide d'un bouton qui lance une macro de type saveas.
j'ai essayé d'adapter le code suivant récupéré sur la forum mais ca ne marche pas.
Mon adaptation fonctionne pour un opération manuelle ( clic sur icone ou enregistrer sous du menu mais pas en faisant appel à la fonction saveas qui est alors considérée comme un 'enregistrer'.
Merci de votre aide.
INTERDIRE ENREGISTRER SOUS.
De : _Thierry sur Excel-Downloads.
Code à mettre dans le Private Module de 'ThisWorkBook'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' SaveAsUI est VRAI si on vient de Fichier / Enregistrer sous
' et FAUX si on vient de Fichier / Enregistrer
' si on met Cancel à VRAI, l'enregistrement n'a pas lieu
If SaveAsUI = True Then
MsgBox 'Le changement de nom est interdit !', vbExclamation + vbOKOnly, 'Attention'
Cancel = True
End If
End Sub
j'ai essayé d'adapter le code suivant récupéré sur la forum mais ca ne marche pas.
Mon adaptation fonctionne pour un opération manuelle ( clic sur icone ou enregistrer sous du menu mais pas en faisant appel à la fonction saveas qui est alors considérée comme un 'enregistrer'.
Merci de votre aide.
INTERDIRE ENREGISTRER SOUS.
De : _Thierry sur Excel-Downloads.
Code à mettre dans le Private Module de 'ThisWorkBook'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' SaveAsUI est VRAI si on vient de Fichier / Enregistrer sous
' et FAUX si on vient de Fichier / Enregistrer
' si on met Cancel à VRAI, l'enregistrement n'a pas lieu
If SaveAsUI = True Then
MsgBox 'Le changement de nom est interdit !', vbExclamation + vbOKOnly, 'Attention'
Cancel = True
End If
End Sub