Desactiver la demande d'enregistrement avant de quitter
14 réponses
Gilgamesh
Bonjour a tous
j'ai un classeur à destination d'utilisateurs. Ils peuvent créer plein
de feuilles et les imprimer ou les supprimer. Mais à la fermeture, je
veux que le classeur reste dans son état premier. J'ai désactivé les
barres d'outils, a l'exception des commandes autorisées. Il me reste à
désactiver la demande d'enregistrement du classeur avant de quitter.
J'ai bien fait ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Blocage de l'affichage
Application.ScreenUpdating = False
ThisWorkbook.Close
mais ça continue de demander la sauvegarde. Quelqu'un saurait ?
Si tu demandes déjà à l'ouverture, ça va pas etre un peu lourd de redemander aussi à la fermeture ? Ceci étant dit, comment veux-tu l'utiliser ?
j-p
Gilgamesh
JpPradier wrote:
Bonjour Gilgamesh
Si tu demandes déjà à l'ouverture, ça va pas etre un peu lourd de redemander aussi à la fermeture ? Ceci étant dit, comment veux-tu l'utiliser ?
Je voudrai que si c'est l'utilisateur lambda (saisissant à l'ouverture un mot de passe "lambda", sans quoi il n'a pas accès au classeur) il ne puisse en aucun cas enregistrer, enregistrer sous..., etc.
mais que si c'est mon mot de passe alors tout est permis :)
merci
a+
JpPradier wrote:
Bonjour Gilgamesh
Si tu demandes déjà à l'ouverture, ça va pas etre un peu lourd de redemander aussi à la
fermeture ?
Ceci étant dit, comment veux-tu l'utiliser ?
Je voudrai que si c'est l'utilisateur lambda (saisissant à l'ouverture
un mot de passe "lambda", sans quoi il n'a pas accès au classeur) il ne
puisse en aucun cas enregistrer, enregistrer sous..., etc.
mais que si c'est mon mot de passe alors tout est permis :)
Si tu demandes déjà à l'ouverture, ça va pas etre un peu lourd de redemander aussi à la fermeture ? Ceci étant dit, comment veux-tu l'utiliser ?
Je voudrai que si c'est l'utilisateur lambda (saisissant à l'ouverture un mot de passe "lambda", sans quoi il n'a pas accès au classeur) il ne puisse en aucun cas enregistrer, enregistrer sous..., etc.
mais que si c'est mon mot de passe alors tout est permis :)
merci
a+
JpPradier
Alors quelque chose comme ça ( a adapter suivant l'endroit ou sont stocké les mots de passe) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MotDePasse<> MonMotdePasse Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False ' voir si on ferme ou pas le classeur End If End Sub
j-p
Alors quelque chose comme ça ( a adapter suivant l'endroit ou sont stocké les mots de
passe) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MotDePasse<> MonMotdePasse Then
MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
Cancel = True
ThisWorkbook.Close False ' voir si on ferme ou pas le classeur
End If
End Sub
Alors quelque chose comme ça ( a adapter suivant l'endroit ou sont stocké les mots de passe) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MotDePasse<> MonMotdePasse Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False ' voir si on ferme ou pas le classeur End If End Sub
j-p
Gilgamesh
JpPradier wrote:
Alors quelque chose comme ça ( a adapter suivant l'endroit ou sont stocké les mots de passe) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MotDePasse<> MonMotdePasse Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False ' voir si on ferme ou pas le classeur End If End Sub
Merci J-p mais je là je suis obligé de redemander son mdp à l'utilisateur. Du reste pourquoi pas. Mais je me demandais comment "introduire" MotDePasse qui a été utilisé dans une autre procedure dans celle ci.
merci
JpPradier wrote:
Alors quelque chose comme ça ( a adapter suivant l'endroit ou sont stocké les mots de
passe) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MotDePasse<> MonMotdePasse Then
MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
Cancel = True
ThisWorkbook.Close False ' voir si on ferme ou pas le classeur
End If
End Sub
Merci J-p mais je là je suis obligé de redemander son mdp à
l'utilisateur. Du reste pourquoi pas. Mais je me demandais comment
"introduire" MotDePasse qui a été utilisé dans une autre procedure dans
celle ci.
Alors quelque chose comme ça ( a adapter suivant l'endroit ou sont stocké les mots de passe) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MotDePasse<> MonMotdePasse Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False ' voir si on ferme ou pas le classeur End If End Sub
Merci J-p mais je là je suis obligé de redemander son mdp à l'utilisateur. Du reste pourquoi pas. Mais je me demandais comment "introduire" MotDePasse qui a été utilisé dans une autre procedure dans celle ci.
