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
Manu/
Bonjour, Tu commence par donner un nom a ta liste. puis a chaque ouverture du classeur tu execute la procedure suivante:
Sub ProtectionListeFiltree() Dim xSheet As Worksheet, xRange As Range Set xRange = Range("NomListe") With xRange Set xSheet = .Parent xSheet.EnableAutoFilter = True xSheet.Protect contents:=True,userinterfaceonly:=True .AutoFilter End With End Sub
a+ Manu/
-----Message d'origine----- Bonjour.
Je souhaite pouvoir proteger une feuille tout en gardant les filtres sur mes colones disponibles. celà est il possible ?
Merci.
Michel .
Bonjour,
Tu commence par donner un nom a ta liste. puis a chaque
ouverture du classeur tu execute la procedure suivante:
Sub ProtectionListeFiltree()
Dim xSheet As Worksheet, xRange As Range
Set xRange = Range("NomListe")
With xRange
Set xSheet = .Parent
xSheet.EnableAutoFilter = True
xSheet.Protect contents:=True,userinterfaceonly:=True
.AutoFilter
End With
End Sub
a+
Manu/
-----Message d'origine-----
Bonjour.
Je souhaite pouvoir proteger une feuille tout en gardant
les filtres sur mes colones disponibles. celà est il
possible ?
Bonjour, Tu commence par donner un nom a ta liste. puis a chaque ouverture du classeur tu execute la procedure suivante:
Sub ProtectionListeFiltree() Dim xSheet As Worksheet, xRange As Range Set xRange = Range("NomListe") With xRange Set xSheet = .Parent xSheet.EnableAutoFilter = True xSheet.Protect contents:=True,userinterfaceonly:=True .AutoFilter End With End Sub
a+ Manu/
-----Message d'origine----- Bonjour.
Je souhaite pouvoir proteger une feuille tout en gardant les filtres sur mes colones disponibles. celà est il possible ?
Merci.
Michel .
michel
Merci beaucoup Manu.
Et Désolé pour le remerciement tardif.
Michel
-----Message d'origine-----
Bonjour, Tu commence par donner un nom a ta liste. puis a chaque ouverture du classeur tu execute la procedure suivante:
Sub ProtectionListeFiltree() Dim xSheet As Worksheet, xRange As Range Set xRange = Range("NomListe") With xRange Set xSheet = .Parent xSheet.EnableAutoFilter = True xSheet.Protect contents:=True,userinterfaceonly:=True
.AutoFilter End With End Sub
a+ Manu/
-----Message d'origine----- Bonjour.
Je souhaite pouvoir proteger une feuille tout en gardant les filtres sur mes colones disponibles. celà est il possible ?
Merci.
Michel .
.
Merci beaucoup Manu.
Et Désolé pour le remerciement tardif.
Michel
-----Message d'origine-----
Bonjour,
Tu commence par donner un nom a ta liste. puis a chaque
ouverture du classeur tu execute la procedure suivante:
Sub ProtectionListeFiltree()
Dim xSheet As Worksheet, xRange As Range
Set xRange = Range("NomListe")
With xRange
Set xSheet = .Parent
xSheet.EnableAutoFilter = True
xSheet.Protect
contents:=True,userinterfaceonly:=True
.AutoFilter
End With
End Sub
a+
Manu/
-----Message d'origine-----
Bonjour.
Je souhaite pouvoir proteger une feuille tout en gardant
les filtres sur mes colones disponibles. celà est il
possible ?
Bonjour, Tu commence par donner un nom a ta liste. puis a chaque ouverture du classeur tu execute la procedure suivante:
Sub ProtectionListeFiltree() Dim xSheet As Worksheet, xRange As Range Set xRange = Range("NomListe") With xRange Set xSheet = .Parent xSheet.EnableAutoFilter = True xSheet.Protect contents:=True,userinterfaceonly:=True
.AutoFilter End With End Sub
a+ Manu/
-----Message d'origine----- Bonjour.
Je souhaite pouvoir proteger une feuille tout en gardant les filtres sur mes colones disponibles. celà est il possible ?