Fjerne linjer fra tabel i protected sheet.

Det jeg havde i tankerne var, at sheet'et blev unprotected ved dobbeltklik i rangen og linjen der korresponderer til den aktive celle så blev slettet. Sheet protectes til slut.

Om du kan gøre det med et dobbeltklik tror jeg måske ikke, men du kan ihvertfald gøre det v.h.a. en makro, som først slår arkbeskyttelsen fra, derefter sletter den valgte linie og til sidst slår beskyttelsen til igen.

men så kan jeg vel bare lade visual lytte efter dobbeltklik den celle og så køre makroen derfra:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A6")) Is Nothing Then
    Call delRow
End If
End Sub

Men problemet er, at jeg så skal lave 20 makroer, en for hver linje jeg vil have mulighed for at slette. Ligeledes skal jeg lave 20 stykker kode. Derfor ville jeg gerne lave et stykke kode der sletter linjen ved dobbeltklik på den.

ved dobbeltklik
slå arkbeskyttelse fra
variabel = aktiv cellenummer
delete row_variabel
slå arkbeskyttelse til

Sådan nogenlunde må pseudokoden se ud, jeg kan bare ikke finde ud af visual basic og er slet ikke klar over om det kan lade sig gøre.

Følgende kode sletter den valgte linie:
Selection.EntireRow.Delete

Denne kode fjerner password:

Dim WS As Worksheet
    For Each WS In ActiveWorkbook.Worksheets
        WS.Unprotect Password:="petter"
    Next WS
    ActiveWorkbook.Unprotect Password:="xxx"

og denne kobler den på igen:


    For Each WS In ActiveWorkbook.Worksheets
        WS.Protect Password:="petter"
    Next WS
    ActiveWorkbook.Protect Password:="xxx"

If Not Intersect(Target, Range("A7:A50")) Is Nothing Then
    Worksheet.Unprotect
    Selection.EntireRow.Delete
    Worksheet.Protect
End If

Men det virker ikke. Den midterste linje virker fint, men det er ophævelse af beskyttelse der ikke virker. Jeg behøver vel ikke unprotecte hele workbook'en (det er kun det aktive sheet der er protected).

Nej, du behøver ikke unprotecte hele workbooken.

Arket skal være beskyttet, når du kører makroen.

Prøv evt. at fjerne If-sætningen og sætte koden ind i en almindelig Sub-End sub blok.

løst ved at ændre til ActiveSheet.Unprotect

Prøv at bruge ActiveSheet.Unprotect i stedet.

Hehe

If Not Intersect(Target, Range("A7:A50")) Is Nothing Then
    ActiveSheet.Unprotect
    Selection.EntireRow.Delete
    ActiveSheet.Protect
End If

Sådan ser koden ud, den fungerer

Fint :-)

OK, det var jo hurtig hjælp, tusind tak for hjælpen endnu engang.

Velbekomme og god weekend :-)

jo tak, ilm

En sidste ting, jeg har denne her kode:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A6:H6")) Is Nothing Then
    ActiveSheet.Unprotect
    Range("A6:I50").sort Key1:=Range("A7"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Den sorterer tabellen efter indgang A7 ved dobbeltklik på en af overskrifterne. Hvordan kan man gøre det sådan at den sorterer efter den celle der svarer til cellen under den celle der er klikket i?
Altså hvis jeg klikker på B6 så sorterer den efter B7.

Det er klaret:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A6:I6")) Is Nothing Then
    ActiveSheet.Unprotect
    Range("A6:I50").sort Key1:=ActiveCell, Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Men jeg ville gerne vide hvordan jeg kan sætte rangen til at gå fra A6 og hele vejen ned uden at skulle sætte den til A6:A65536 eller hvor meget det nu er. Kan man gøre sådan at rangen går fra A6 til sidste celle med indhold? Kan man også gøre det med navngivne områder? Jeg bruger advanced filter og der har jeg jo en database, denne er ikke fast størrelse, så derfor har jeg måtte lave området database noget større end indholdet er pt, kan det løses?

Ja, det tror jeg.
Du kan lave et navngivent område, som du selv skriver, hvor du definerer et dynamisk område v.h.a. formlen OFFSET(FORSKYDNING).
I VBA-koden kan du så bare henvise til dette navn.

kan du forklare det lidt nærmere, hvordan kan jeg navngive et område som går fra a6:I(sidste celle med indhold)?

Nu tror jeg at jeg har ramt det sidste problem:
http://www.eksperten.dk/spm/427565
Hvis du vil være behjælpelig vil det være meget værdsat.

sådan, Google var min ven, jeg har fundet ud af hvordan man navngiver ved brug af offset, det er smart.
Arket er nu færdigt og spiller max, mange tak for hjælpen.