Avatar billede lasse666 Novice
01. november 2014 - 12:01 Der er 1 løsning

Problemer med Filter på password beskyttet Sheet

Jeg bruger følgende Funktion til at skrivebeskytte mit ark:

Function pwdProtectSheet(sheetName)
Dim ws As Worksheet
Set ws = Worksheets(sheetName)

With ws
.Protect Password:=sheetPassword, UserInterFaceOnly:=True
.EnableOutlining = True
End With

End Function

Jeg har så fundet ud af, at jeg er nødt til at kunne sætte autofilter på, så jeg kan sortere den skrivebeskyttede kolonne. Det burde være muligt ved at ændre det nederste af koden til:

With ws
.protect Password:=sheetPassword, UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True, DrawingObjects:=True, Contents:=True
.EnableOutlining = True
.EnableAutoFilter = True
End With

Problemet er, at Data -> Autofilter bliver ved med at være grå, efter jeg har modificeret koden

Hvad er det jeg gør galt i koden?
Avatar billede lasse666 Novice
25. januar 2015 - 12:13 #1
løste det på anden vis
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester