Sauvegarde bloquée sauf pour créateur du créateur du classeur
3 réponses
JoWal
Bonjour à tous.
le post sur la sauvegarde m'interresse au plus au point et sa solution me
tranquilise quand à la diffusion tout azimut des classeurs.
Grace à JP pradier j'ai pu avancer sur cette voie. Mais il reste une erreur
dans ma macro que je ne vois pas ou ne comprends pas
Comment inserer ThisWorkbook.Close False dans macro ci dessous?
Et encore merci pour ta contribution.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'If Application.UserName <> "toto" Then
'MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
'Cancel = True
'End If
'End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JpPradier
Bonjour JoWal
Je t'ai répondu dans l'autre fil. Et la réponse ressemblait à ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Application.UserName <> "toto" Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False End If End Sub
;-)
j-p
Bonjour JoWal
Je t'ai répondu dans l'autre fil. Et la réponse ressemblait à ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName <> "toto" Then
MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
Cancel = True
ThisWorkbook.Close False
End If
End Sub
Je t'ai répondu dans l'autre fil. Et la réponse ressemblait à ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Application.UserName <> "toto" Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False End If End Sub
;-)
j-p
JoWal
Oui, je m'en suis excusé sur l'autre fil. encore merci à toi pour ton aide "JpPradier" a écrit dans le message de news:
Bonjour JoWal
Je t'ai répondu dans l'autre fil. Et la réponse ressemblait à ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName <> "toto" Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False End If End Sub
;-)
j-p
Oui, je m'en suis excusé sur l'autre fil. encore merci à toi pour ton aide
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
de news:O63R7lMSGHA.4300@TK2MSFTNGP14.phx.gbl...
Bonjour JoWal
Je t'ai répondu dans l'autre fil. Et la réponse ressemblait à ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Application.UserName <> "toto" Then
MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
Cancel = True
ThisWorkbook.Close False
End If
End Sub
Oui, je m'en suis excusé sur l'autre fil. encore merci à toi pour ton aide "JpPradier" a écrit dans le message de news:
Bonjour JoWal
Je t'ai répondu dans l'autre fil. Et la réponse ressemblait à ça :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName <> "toto" Then MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") Cancel = True ThisWorkbook.Close False End If End Sub
;-)
j-p
jps
bonjour jo si tu avais mieux lu la réponse de JP pradier à gilgamesh, tu y aurais vu qu'on y parlait de l'évènement BeforeClose du classeur et non de BeforeSave....mais faut dire que pour retroucer cela, j'ai dû faire le parcours du combattant car tu changes le titre de la ficelle, ce qui ne facilite pas beaucoup la tâche de celui qui veut t'aider... AMHA, tu devrais utiliser cet évènement BeforeClose pour l'ensemble de ta proc jps (qui avait perdu pied dans cette affaire)
"JoWal" a écrit dans le message de news: uxQ3%
Bonjour à tous. le post sur la sauvegarde m'interresse au plus au point et sa solution me tranquilise quand à la diffusion tout azimut des classeurs. Grace à JP pradier j'ai pu avancer sur cette voie. Mais il reste une erreur dans ma macro que je ne vois pas ou ne comprends pas
Comment inserer ThisWorkbook.Close False dans macro ci dessous? Et encore merci pour ta contribution.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'If Application.UserName <> "toto" Then 'MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") 'Cancel = True 'End If 'End Sub
merci par avance et bonne journée
bonjour jo
si tu avais mieux lu la réponse de JP pradier à gilgamesh, tu y aurais vu
qu'on y parlait de l'évènement BeforeClose du classeur et non de
BeforeSave....mais faut dire que pour retroucer cela, j'ai dû faire le
parcours du combattant car tu changes le titre de la ficelle, ce qui ne
facilite pas beaucoup la tâche de celui qui veut t'aider...
AMHA, tu devrais utiliser cet évènement BeforeClose pour l'ensemble de ta
proc
jps (qui avait perdu pied dans cette affaire)
"JoWal" <ja.rw@free.fr> a écrit dans le message de news:
uxQ3%23TMSGHA.1780@TK2MSFTNGP12.phx.gbl...
Bonjour à tous.
le post sur la sauvegarde m'interresse au plus au point et sa solution me
tranquilise quand à la diffusion tout azimut des classeurs.
Grace à JP pradier j'ai pu avancer sur cette voie. Mais il reste une
erreur
dans ma macro que je ne vois pas ou ne comprends pas
Comment inserer ThisWorkbook.Close False dans macro ci dessous?
Et encore merci pour ta contribution.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'If Application.UserName <> "toto" Then
'MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ")
'Cancel = True
'End If
'End Sub
bonjour jo si tu avais mieux lu la réponse de JP pradier à gilgamesh, tu y aurais vu qu'on y parlait de l'évènement BeforeClose du classeur et non de BeforeSave....mais faut dire que pour retroucer cela, j'ai dû faire le parcours du combattant car tu changes le titre de la ficelle, ce qui ne facilite pas beaucoup la tâche de celui qui veut t'aider... AMHA, tu devrais utiliser cet évènement BeforeClose pour l'ensemble de ta proc jps (qui avait perdu pied dans cette affaire)
"JoWal" a écrit dans le message de news: uxQ3%
Bonjour à tous. le post sur la sauvegarde m'interresse au plus au point et sa solution me tranquilise quand à la diffusion tout azimut des classeurs. Grace à JP pradier j'ai pu avancer sur cette voie. Mais il reste une erreur dans ma macro que je ne vois pas ou ne comprends pas
Comment inserer ThisWorkbook.Close False dans macro ci dessous? Et encore merci pour ta contribution.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'If Application.UserName <> "toto" Then 'MsgBox ("Désolé, sauvegarde non autorisée. Si problème me contacter. ") 'Cancel = True 'End If 'End Sub
