enregistrement interdit capricieux

[pierre]

Bonjour à tous.
J'ai un petit souci que je vous expose en espérant que quelqu'un est une solution. Je veux protéger un fichier : pas d'enregistrement possible et pas de boite "enregistrer sous" qui apparait.
Cela marche bien !
Mais dans mon fichier, il y a des userform (un petit quiz à remplir) et lorsque l'utilisateur toutche au quiz, les protection de fonctionne plus. Il peut donc enregistrer.
S'il ne touche pas aux userform, pas de pb....bizarre, non ?

Le code que j'ai mis est le suivant :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
TaBooleanPublic = False
Application.CutCopyMode = False
ThisWorkbook.Close savechanges:=False

End Sub

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

Y a -t-il une erreur ou quelque chose à ajouter ?

Merci de l'aide apportée,
bonne journée à tous

 

[Franck00]

est ce que ta feuille est verrouillée ?

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True

Voir pourquoi pas avec un code de verrouillage !