J
Jicé
Guest
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.
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.