Pb de syntaxe

Le
Didier NOVARIN
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
garnote
Le #4443561
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"
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
Le #4443551
Bonjour,

L'idéal , est de ne pas avoir à déprot.. reprotèger
(soit plutôt dans le beforesave)
et d'utiliser le codename

Feuil3.protect password:=toto, userinterfaceonly:=true

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
Le #4443541
Bonsoir
Un très grand merci à tous les 2
Bonne soirée
Didier

"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

Feuil3.protect password:=toto, userinterfaceonly:=true

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




Publicité
Poster une réponse
Anonyme