Avatar billede lineriber Praktikant
14. oktober 2010 - 10:46 Der er 4 kommentarer og
1 løsning

Mulighed for brug af filtre på et beskyttet ark

Hej eksperter

Jeg har en table i Excel 2007 (den engelske version), hvor jeg har sat data filtre på kolonnerne.
Tabellen indeholder nogle kolonner med formler i, som jeg har låst, for at brugeren ikke kommer til at slette formlerne.

Når jeg sætter beskyttelse på arket, tilvælger jeg at alle brugeren har tilladelse til
- Sellect locked celles
- Sellect unlocked celles
- Sort
- Use AutoFilter

Jeg troede jo så at det ville betyde, at brugeren ville få lov at bruge de filtre jeg havde sat på. Brugeren kan også godt få lov at til og fravælge værdier i filteret, MEN jeg kan ikke få lov at bruge filterets sorteringsfunktion!! Efter en god gang tænketid, får jeg fejlen "The cell or chart that you are trying to change is protectede and therefor read-only. To modify a protected celle or chart, first remove protection using the unprotect Sheet command........"

Nogen der har en løsning på det???

mvh
Line
Avatar billede excelent Ekspert
14. oktober 2010 - 16:37 #1
Du kunne lave en kopi af tabellen i et andet ark
mig bekendt er det ikke muligt at beskytte og samtidig sortere
Avatar billede lineriber Praktikant
19. oktober 2010 - 12:28 #2
Er det virkelig ikke nogen der har en løsning på dette problem?
(jeg er meget ked af at skulle acceptere dit svar excelent, snøft snøft)
Avatar billede excelent Ekspert
19. oktober 2010 - 18:51 #3
Jeg kunne jo tage fejl
Lad den stå lidt endnu, måske en anden har løsningen

Ellers kan man via kode oprette en kopi af arket og skjule originalen - fx automatisk når projektmapen åbnes
Avatar billede excelent Ekspert
19. oktober 2010 - 19:54 #4
Du kunne jo også gemme projektmappen med skrivebeskyttelse med tilhørende adgangskode, så kan evtentuelle ændringer ikke gemmes uden adgangskode
Avatar billede supertekst Ekspert
27. oktober 2010 - 12:56 #5
Option Explicit
Public Sub sortering()
Dim sidsteRække As Long
Const pw = "???"
    ActiveSheet.Unprotect (pw)
   
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    ActiveWorkbook.Worksheets("Entry sheet").AutoFilter.sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Entry sheet").AutoFilter.sort.SortFields.Add Key:= _
        Range("F5:F" & sidsteRække), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Entry sheet").AutoFilter.sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    ActiveSheet.Protect Password:=pw, DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True

End Sub
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
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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