Kan man låse flere ark på en gang??

Hvis du låsning mener, at du sætter beskyttelse på, kan du lave en makro, der fjerner og slår beskyttelsen til efter behov.

Til mig selv, har jeg lavet et regneark, hvor jeg har disse to makroer, der virker på den aktuelle projektmappe. Makroerne kaldes med ALT+F8

Sub Beskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Protect Password:="kodeord"
    Next
End With
End Sub
Sub UBeskyt_ark()
With ActiveWorkbook
    For Each ws In ActiveWorkbook.Worksheets
        ActiveWorkbook.Sheets(ws.Name).Unprotect Password:="kodeord"
    Next
End With
End Sub

husk at rette "kodeord" til dit eget password *S*

Okay men jeg har ikke så meget styr på de makroer der, og det skal samtidigt være sådan at det er felter der er åbne, og ikke alle ark ens?? Men kan det stadig lade sig gøre..?

Det kan det godt, men så er det en del over mit niveau *S*

Du kan da rimeligt hurtigt beskytte hele projektmappen, via menupunktet beskyttelse. Fjernes samme sted. Hvis du så på hver side har defineret hvilke celler der skal være ulåste, når ark/projektmappen låses, så er det problem vel løst. Helt uden makro, dog kræver det at du lige gå alle ark igennem og låser de enkelte celler op, slavearbejde.

Okay Prøver lige, du kan bare lige smide et svar.. Tak for den fine hjælp..

Hvem af os? :-)

Tja fatter ikke en skid af det der VB, så pointene må gå til dig.. Isskaarup

Okay, og du er helt med på hvordan du gør det?

Ja mener du ikke bare at jeg skal ind og låse de celler op jeg gerne vil have man skal kunne redigere i, under beskyttelse og Tillad brugere at redigere områder???

Jo under formateringen af cellerne, huske også at sætte password på beskyttelsen ellers er den ikke meget være.

Jeg har faktisk oplevet et officielt word-dokument fra TDC, som var låst med uden kode. Have vi været frække nok, kunne vi bare have ændret i teksten som det passede os.

Et lille træk, som måske kan gøre det lidt hurtigere for dig er følgende.
Hvis der på flere ark er den samme celle, f.eks. E10 som skal være ulåst, så kan du markere den celle på et af arkene, og derefter holder CTRL nede og klikke på de andre ark.

Du kan nu formatere den/de samme celle/r på flere ark samtidig.

Okay tak det vil ¨jeg prøve. Endnu en gang tak for hjælpen!

Kan ikke få det til at virke med at låse flere ark på en gang, så man ikke kan redigere i disse områder.. Kan du ikke lave en lidt bedre forklaring??

Hmm, der var jeg vidst for hurtigt ude, kan jeg se nu. Mente at "Beskyt projektmappe" kaldt alt i projektmappen (en i fil Excel er reelt en projektmappe, der så indeholder et eller flere regneark), men kan se at man godt kan ændre i regnearkene, men derimod ikke i navnene på arkene. Mener fkatisk man kunne det tilligere ?-|

Nå men så skal vi over i noget Makro, men det er nu ikke så svært lige det her.

Jeg forudsætter at du har valgt hvilke felter der skal være ulåste og har projektmappen åben.

Tryk Alt+F11 -> Åbner makro editoren.

Til venstre skulle du gerne have en oversigt, med de forskellige ark samt en der hedder "ThisWorkbook".

Dobbeltklik på den sidstnævnte. -> Åbner en editorside for hele projektmappen og ikke kun et enkelt ark.

Kopier denne kode ind. (koderord skal erstattes med et ord efter dit valg). Der er 2 makroer der henholdsvis låse arkene og låser dem op igen.

Sub protecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Protect "kodeord"
Next
End Sub


Denne makro vil fjerne beskyttelsen igen fra alle ark
Sub unprotecting()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
  s.Unprotect "kodeord"
Next
End Sub

Gem og luk

Tryk Alt+F8 -> Gvier mulighed for at afspille makroerne

Ups, ramte lige den forkert knap... ;-)

Altså Alt+F8 -> Giver mulighed for at afspille makroerne.

Vælg dem du vil afspille og tryk afspil -> protecting låser arkene, unprotecting låser dem op igen.

Håber det kan hjælpe, eller bare skriv igen.

Hey Hey, det virker super godt, på nær at jeg har noget filter på, og de er deaktiveret når jeg låser arkene, også selvom jeg har markeret dem til at være Tilladt?? Kan du knække den?

Nemt, når du laver beskyttelsen kan du bestemme hvor meget brugeren nå have lov til. Find her punktet Autofilter og ving det af.

Jeg har Office 2003, og ved ikke om den også er der hvis du har Office 2000.

Hvad kan jeg sige, du har styr på dit l**t, endnu en gang tak for det..

@lsskaarup Super gide med makroer men jeg kan ikke få det til at virke med autofilter.