Bonsoir,
J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose,
mais cela ne fonctionne pas évidement
Je vous remercie
Didier
If Sheet("Travail").AutoFilterMode = True Then
Sheet("Travail").Unprotect Password:="toto"
Sheet("Travail").AutoFilterMode = False
Sheet("Travail").Protect Password:="toto"
End If
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
garnote
Salut Didier,
Et si tu mettais un s à la fin des Sheet ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets("Travail") If .AutoFilterMode = True Then .Unprotect Password:="toto" .AutoFilterMode = False .Protect Password:="toto" End If End With End Sub
Serge
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose, mais cela ne fonctionne pas évidement Je vous remercie Didier
If Sheet("Travail").AutoFilterMode = True Then Sheet("Travail").Unprotect Password:="toto" Sheet("Travail").AutoFilterMode = False Sheet("Travail").Protect Password:="toto" End If
Salut Didier,
Et si tu mettais un s à la fin des Sheet ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Travail")
If .AutoFilterMode = True Then
.Unprotect Password:="toto"
.AutoFilterMode = False
.Protect Password:="toto"
End If
End With
End Sub
Serge
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de news: uwkAHcSgHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonsoir,
J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose,
mais cela ne fonctionne pas évidement
Je vous remercie
Didier
If Sheet("Travail").AutoFilterMode = True Then
Sheet("Travail").Unprotect Password:="toto"
Sheet("Travail").AutoFilterMode = False
Sheet("Travail").Protect Password:="toto"
End If
Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets("Travail") If .AutoFilterMode = True Then .Unprotect Password:="toto" .AutoFilterMode = False .Protect Password:="toto" End If End With End Sub
Serge
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose, mais cela ne fonctionne pas évidement Je vous remercie Didier
If Sheet("Travail").AutoFilterMode = True Then Sheet("Travail").Unprotect Password:="toto" Sheet("Travail").AutoFilterMode = False Sheet("Travail").Protect Password:="toto" End If
LSteph
Bonjour,
L'idéal , est de ne pas avoir à déprot.. reprotèger (soit plutôt dans le beforesave) et d'utiliser le codename
Sinon pour ton beforeclose plutôt que sheet (onglet qui peut aussi être un graph) ce serait sheets (onglets) ou mieux Worksheets (feuilles)
le singulier désigne l'objet, le pluriel la collection parmi laquelle on peut ainsi spécififier un item qui lui appartient
Essaie
With Worksheets("Travail") If .AutoFilterMode = True Then .Unprotect Password:="toto" .AutoFilterMode = False .Protect Password:="toto" End If end with
'Cdlt
'lSteph
Bonsoir, J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose, mais cela ne fonctionne pas évidement Je vous remercie Didier
If Sheet("Travail").AutoFilterMode = True Then Sheet("Travail").Unprotect Password:="toto" Sheet("Travail").AutoFilterMode = False Sheet("Travail").Protect Password:="toto" End If
Bonjour,
L'idéal , est de ne pas avoir à déprot.. reprotèger
(soit plutôt dans le beforesave)
et d'utiliser le codename
Sinon pour ton beforeclose plutôt que sheet (onglet qui peut aussi être
un graph) ce serait sheets (onglets) ou mieux Worksheets (feuilles)
le singulier désigne l'objet, le pluriel la collection
parmi laquelle on peut ainsi spécififier un item qui lui appartient
Essaie
With Worksheets("Travail")
If .AutoFilterMode = True Then
.Unprotect Password:="toto"
.AutoFilterMode = False
.Protect Password:="toto"
End If
end with
'Cdlt
'lSteph
Bonsoir,
J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose,
mais cela ne fonctionne pas évidement
Je vous remercie
Didier
If Sheet("Travail").AutoFilterMode = True Then
Sheet("Travail").Unprotect Password:="toto"
Sheet("Travail").AutoFilterMode = False
Sheet("Travail").Protect Password:="toto"
End If
Sinon pour ton beforeclose plutôt que sheet (onglet qui peut aussi être un graph) ce serait sheets (onglets) ou mieux Worksheets (feuilles)
le singulier désigne l'objet, le pluriel la collection parmi laquelle on peut ainsi spécififier un item qui lui appartient
Essaie
With Worksheets("Travail") If .AutoFilterMode = True Then .Unprotect Password:="toto" .AutoFilterMode = False .Protect Password:="toto" End If end with
'Cdlt
'lSteph
Bonsoir, J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose, mais cela ne fonctionne pas évidement Je vous remercie Didier
If Sheet("Travail").AutoFilterMode = True Then Sheet("Travail").Unprotect Password:="toto" Sheet("Travail").AutoFilterMode = False Sheet("Travail").Protect Password:="toto" End If
Didier NOVARIN
Bonsoir Un très grand merci à tous les 2 Bonne soirée Didier
"LSteph" a écrit dans le message de news:
Bonjour,
L'idéal , est de ne pas avoir à déprot.. reprotèger (soit plutôt dans le beforesave) et d'utiliser le codename
Sinon pour ton beforeclose plutôt que sheet (onglet qui peut aussi être un graph) ce serait sheets (onglets) ou mieux Worksheets (feuilles)
le singulier désigne l'objet, le pluriel la collection parmi laquelle on peut ainsi spécififier un item qui lui appartient
Essaie
With Worksheets("Travail") If .AutoFilterMode = True Then .Unprotect Password:="toto" .AutoFilterMode = False .Protect Password:="toto" End If end with
'Cdlt
'lSteph
Bonsoir, J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose, mais cela ne fonctionne pas évidement Je vous remercie Didier
If Sheet("Travail").AutoFilterMode = True Then Sheet("Travail").Unprotect Password:="toto" Sheet("Travail").AutoFilterMode = False Sheet("Travail").Protect Password:="toto" End If
Bonsoir
Un très grand merci à tous les 2
Bonne soirée
Didier
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
enPr7sSgHHA.4188@TK2MSFTNGP02.phx.gbl...
Bonjour,
L'idéal , est de ne pas avoir à déprot.. reprotèger
(soit plutôt dans le beforesave)
et d'utiliser le codename
Sinon pour ton beforeclose plutôt que sheet (onglet qui peut aussi être un
graph) ce serait sheets (onglets) ou mieux Worksheets (feuilles)
le singulier désigne l'objet, le pluriel la collection
parmi laquelle on peut ainsi spécififier un item qui lui appartient
Essaie
With Worksheets("Travail")
If .AutoFilterMode = True Then
.Unprotect Password:="toto"
.AutoFilterMode = False
.Protect Password:="toto"
End If
end with
'Cdlt
'lSteph
Bonsoir,
J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose,
mais cela ne fonctionne pas évidement
Je vous remercie
Didier
If Sheet("Travail").AutoFilterMode = True Then
Sheet("Travail").Unprotect Password:="toto"
Sheet("Travail").AutoFilterMode = False
Sheet("Travail").Protect Password:="toto"
End If
Sinon pour ton beforeclose plutôt que sheet (onglet qui peut aussi être un graph) ce serait sheets (onglets) ou mieux Worksheets (feuilles)
le singulier désigne l'objet, le pluriel la collection parmi laquelle on peut ainsi spécififier un item qui lui appartient
Essaie
With Worksheets("Travail") If .AutoFilterMode = True Then .Unprotect Password:="toto" .AutoFilterMode = False .Protect Password:="toto" End If end with
'Cdlt
'lSteph
Bonsoir, J'essaie de mettre cette procédure dans le thisWorbook_Beforeclose, mais cela ne fonctionne pas évidement Je vous remercie Didier
If Sheet("Travail").AutoFilterMode = True Then Sheet("Travail").Unprotect Password:="toto" Sheet("Travail").AutoFilterMode = False Sheet("Travail").Protect Password:="toto" End If