Avatar billede cniels85 Praktikant
25. maj 2010 - 14:22 Der er 6 kommentarer og
1 løsning

låsning af felter i et regnark

Jeg har et budget regneark som bliver brugt af flere brugere, og vil derfor gerne kunne låse nogle bestemte felter, da der ikke må kunne redigeres i disse. Der skal gerne en kode på. Havde en idé om at jeg skulle kunne bruge den til flere regneark, så derfor vil jeg have macroen som en knap i værktøjslinien permenemt.

Jeg er derfor på udkig efter en macro som kan gøre dette for mig.

Håber der er nogen som kan hjælpe mig???

Claus
Avatar billede Ialocin Novice
25. maj 2010 - 23:09 #1
Hej cniels85

Som default er ALLE felter i excel 2003 låst (locked).
Selve låsningen træder dog først i kraft, når man beskytter det enkelte ark.

Så prøv evt. følgende:
- marker hele arket (sheet1, osv. ...)
- højreklik og vælg "format cells"
- vælg fanebladet "protection"
- fjern fluebenet ud for "Locked"

ALLE felter på det pågældende ark er nu ulåste.

- marker de felter du ønsker beskytter.
- højreklik på din markering og vælg "format cells"
- vælg fanebladet "protection"
- sæt fluebenet ud for "Locked"

DE MARKEREDE felter er nu låste.


Under Tools menuen på øverste menulinie vælges "protection"
- vælg "protect sheet"
- vælg/fravælg de muligheder som du ønsker for de låste felter.
(prøv dig lidt frem ...)
- find et password til at beskytte/ubeskytte arket med.
- klik OK/tast "enter"
- gentag password.
- klik OK/tast "enter" og de de markerede felter burde være låst.

Med venlig hilsen Nicolai
Avatar billede cniels85 Praktikant
26. maj 2010 - 16:40 #2
Tak Nicolai,

havde nu en macro i tankerne så jeg kan gøre det hele med et enkelt klik på en knap. Det er fordi jeg har en del regneark, som alle skal låses i de samme felter, og ville derfor gerne kunne låse(op) disse felter op med ét tryk, så jeg ikke skal markerer den alle sammen hver gang.

Claus
Avatar billede store-morten Ekspert
03. juni 2010 - 22:57 #3
Ret selv celler til
Sub Lås_Celler()

    Range("A1").Locked = False
    Range("A3").Locked = False
   
End Sub

Låses ved at beskytte ark.
Låses op ved at fjerne beskyttelse.


Prøv evt. (Beskyttes uden kode)
Sub Lås_Og_Beskyt_Celler()

    ActiveSheet.Unprotect

    Range("A1").Locked = False
    Range("A3").Locked = False
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
End Sub
Avatar billede Ialocin Novice
23. juni 2010 - 09:25 #4
Hej cniels85

Har du fundet et svar der passer dig ??

Hvis min mail hjalp dig ? .. sender jeg gerne et svar her.

mvh Nicolai
Avatar billede cniels85 Praktikant
23. juni 2010 - 10:44 #5
ja, tak.

send du bare et svar.

Tak for hjælpen!!!!!!!
Avatar billede Ialocin Novice
23. juni 2010 - 14:21 #6
Hej cniels85

Hermed et "svar" :o)

Mvh Nicolai
Avatar billede Ialocin Novice
24. juni 2010 - 11:48 #7
Hej cniels85

Jeg takker og bukker :o)

mvh Nicolai
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