Enregistrement interdit avec Userform

[Jicé]

Bonjour à tous,

Pour interdire l'enregistrement de fichier, j'utilise le code suivant :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = TaBooleanPublic
If TaBooleanPublic = True Then
MsgBox ("Enregistrement Interdit")
End If
End Sub

Jusque là, pas de problème. Mais lorsque ce code est mis dans un fichier qui, à son ouverture, lance une macro utilisant des userform, il n'est plus actif et l'enregistrement est possible... Je ne comprends pas pourquoi.

Quelqu'un a-t-il une idée ?

Merci.