Avatar billede dane022 Seniormester
08. juni 2005 - 17:12 Der er 10 kommentarer og
1 løsning

Oplåsning af celle ved værdi i anden celle

Jeg ønsker hjælp til at gøre følgende:
Celle G35 skal låses op (kodeordet er brm) når der sættes X i celle F35. Hvis X fjernes skal G35 skrivebeskyttes igen og der skal indsættes en formel i G35 eks. =2+2.
Det skal helst være via vba
Avatar billede Philip Kuhlmann Seniormester
08. juni 2005 - 22:12 #1
Har du prøvet at lave en macro, der udfører det? Så kan du jo efterfølgende indskrive macroen ved hjælp af: Hvis(så;ellers)
Avatar billede jkrons Professor
08. juni 2005 - 22:25 #2
Mener du, at du vil arkbeskyttelsen fjernet, cellen låst op, arket beskyttet igen, og omvendt når X fjernes?
Avatar billede dane022 Seniormester
08. juni 2005 - 23:22 #3
ja og så langt er jeg nået, med to undtagelser:
1) Jeg kan ikke få excel til at sætte formlen ind igen (en kompliceret formel), men den vil gerne sætte en mindre formel som =2+2 ind igen når x fjernes.
Jeg får fejlen application-defined or object-defined error.
2) Jeg kan ikke finde ud af at sætte password på i koden. Formlen ser sådan ud:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True spørgsmålet er hvor password koden (brm) skal stå ?
Avatar billede jkrons Professor
09. juni 2005 - 14:57 #4
1) Hqar jeg ikke en god forklaring på. Kan du evt vise formlen?

2) ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="brm"

Mebn sø'rg lige for også at beskytte VBA koden med password, ellers kan alle gå ind i koden og se passwordet.
Avatar billede stefanfuglsang Juniormester
09. juni 2005 - 15:01 #5
1) jeg ved ikke om dit problem er dansk/engelsk formler? Brug f.eks. Worksheets(1).Range(G35).FormulaLocal = "=Middel(a1:a10)"
eller
Worksheets(1).Range(G35).Formu= "=Mean(a1:a10)"

2) ActiveSheet.Protect Password:="brm", DrawingObjects:=True, Contents:=True, Scenarios:=True
Avatar billede stefanfuglsang Juniormester
09. juni 2005 - 15:02 #6
trykfejl:  Worksheets(1).Range(G35).Formula= "=Mean(a1:a10)"
Avatar billede dane022 Seniormester
09. juni 2005 - 22:21 #7
1) jeg sat formlen i en anden celle og sat =l35 i koden, så oplysninger hentes derfra og det virker.

2) password virker
hvor sætter jeg password til unprotect ?
Avatar billede jkrons Professor
09. juni 2005 - 23:28 #8
2)

    ActiveSheet.Unprotect Password:="jan"
Avatar billede dane022 Seniormester
12. juni 2005 - 12:12 #9
Super. Mit sidste spørgsmål er:
Cellen hvor der skal sættes X og det felt der skal låses op/låses i, ligger lige ved siden af hinanden. Når man låser feltet op sætter man jo et x og tabulerer videre. Her vil excel så "springe" den oplåste celle over. Er det en måde at komme udover det ?
Avatar billede jkrons Professor
22. juni 2005 - 23:43 #10
Du kan sikkert kode dig ud af det, men jeg kan ikke lige gennemskue hvordan, på nuværende tidspunkt. Undskylæd den langsomem follow-up, det skyldes Ekspertens mailproblemer. Jeg har først i dag fët mails fra de seneste 14 dage.
Avatar billede dane022 Seniormester
23. juni 2005 - 20:26 #11
smider du et svar jkrons ?
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