13. november 2017 - 13:10Der er
13 kommentarer og 1 løsning
Beskyt ark, men knap kan derefter ikke bruges
Hej
Jeg har et Ark1, hvor jeg kan sætte flueben i nogle checkbokse, hvorefter en tilhørende celle ændrer status fra "Ikke gyldig" til "Gyldig".
På Ark2 har jeg en knap, som ved aktivering viser alle de "gyldige" rækker fra Ark 1.
Problemet er, at når jeg beskytter arket kan ovenstående knap i Ark2 ikke bruges. (Fejl: Run-time error '1004': Metoden AutoFilter fro klassen Range mislykkedes.)
Jeg har et par andre knapper til udskrift og gem som pdf, som fortsat virker.
Er der nogle gode løsninger? Forklaringen er vel, at når arket er låst kan der ikke filtreres.
Det lykkedes mig ikke, at få ovenstående til at virke, men nedenstående gør:
Sub Gyldig()
With ActiveWorkbook.Worksheets("Projekt") .Unprotect Selection.AutoFilter Field:=9, Criteria1:="Gyldig", Operator:=xlOr, Criteria2:="-" .Protect End With
End Sub
Det var linjerne, som starter med "Projekt", som gav fejlene.
...men tusind tak for indsatsen. Kan din VBA-viden klones og deles? :-)
Ja, lav du bare alle de kloner og kopier af koden, som du ønsker :-)
Men, jeg er stadigvæk lidt interesseret i, hvilken kodelinje, der gav syntaks fejl? Det kunne jo tyde på, at det er vmin ".Protect" linje, der giver fejl, hvis li9njen virker uden argumenter - og, så vil jeg da gerne lige vide, hvilket argument, jeg har ramt forkert?
Ikke helt fair, at du har markeret dig selv som svar, når nu løsningen er præcist, hvad jeg gav:
At 'Projekt' IKKE var kode navnet (du benytter jo ark navnet .Worksheets("Projekt")) Det var jo det jeg skrev: Er du HELT sikker på, at det er kodenavnet?!? Og, du spørger endda om du må bruge min kode.
Jeg har nogenlunde samme problem som jeg ikke kan får løst. Jeg har oprettet en knap på mit ark som jeg har tildelt et "rense layout" makro så den kan slette de inputs man indsætter i cellerne. når jeg beskytter arket får jeg en fejlmeddelelse 1004 der siger at denne ark er beskyttet og at jeg skal fjerne beskyttelsen først.
Jeg har prøvet ovenstående løsning med at indsætte koderne ind i den eksisterende makro/modul dog lykkedes det mig ikke. Jeg er ikke ekspert til excel.
Kan i muligvis hjælpe?
Synes godt om
Ny brugerNybegynder
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.