• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Autofilter in beveiligd blad

Status
Niet open voor verdere reacties.
M

maxer006

Nieuwe gebruiker
Lid geworden
24 jun 2018
Berichten
2
Hallo,

Ik heb een bestand met daarin beveiligde tabbladen. Ik heb een macro gemaakt waarin ik bij alle tabbladen de beveiliging eraf haal en de tabbladen sorteer. Daarna beveiligd de tabbladen, waarin ik toesta te filteren. Echter kan ik niet filteren. Hieronder zie je het gedeelte van het beveiligen van het bestand.

ActiveSheet.Protect "ww"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.Protect "ww"


Wat is er niet goed?

Ik lees graag jullie antwoord.
 
Laatst bewerkt:
Probeer het zo eens

Code: 
Sub filter()
ActiveSheet.Protect Password:="ww", UserInterFaceOnly:=True, AllowFiltering:=True
End Sub

Nog beter om de code in ThisWorkbook te plaatsen als je meerdere tabbladen moet beveiligen.

Code: 
Private Sub Workbook_Open()
Dim wSheetName As Worksheet
For Each wSheetName In Worksheets
wSheetName.Protect Password:="Secret", UserInterFaceOnly:=True, AllowFiltering:=True
Next wSheetname
End Sub

Loek010
 
Laatst bewerkt:
De eerste regel van je code in #1 moet dit zijn:
Code: 
ActiveSheet.[COLOR="#FF0000"]Un[/COLOR]Protect "ww"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan