P
pierre
Guest
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
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