Forfatter |
Emne Søg Emne funktioner
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Emne: Låse ark Sendt: 08.Mar.2011 kl. 12:29 |
Hej
Nu er det lykkedes at låse et ark ved hjælp af et klik i en celle
dette med hjælp fra Allan tusind tak.
nu ville jeg gerne have det sådan at det kun er nogle celler der fra starten kan tastes i
og når der så er tastet data ind kan resten af arket så låses ved et klik i en celle.
henrik
|
|
|
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 08.Mar.2011 kl. 16:12 |
Hej Henrik,
Prøv med:
Private Const koden = "123" Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" And ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect koden Range("D5").Locked = True 'Denne celle er åben indtil arket låses Range("D9").Locked = True 'Denne celle er åben indtil arket låses ActiveSheet.Protect "123" End If End Sub Sub AabenCellenIgen() On Error Resume Next ActiveSheet.Unprotect koden Range("D5").Locked = False 'Denne celle er åben indtil arket låses Range("D9").Locked = False 'Denne celle er åben indtil arket låses ActiveSheet.Protect koden End Sub
Sørg altid for at låse din ark med sub'en AabenCellenIgen.
Kan du få det til at virke?
//Allan
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 10.Mar.2011 kl. 08:00 |
Hej Allan
Det er godt nok en god side jeg fandt her
det er helt utroligt at man kan få sådan en hjælp.
Den sidste her virker dog ikke men måske har jeg forklaret det dårligt
Jeg har et ark som er beskyttet af en kode
men med celler som ikke er beskyttet
Det er så meningen at der skal kunne tastes data i disse celler
og når indtastningen er afsluttet trykkes på en celle med lås ark
og så låses de ulåste celler også
Henrik
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 10.Mar.2011 kl. 09:55 |
Hej Henrik, Jeg har lavet et eksempel til dig, jeg tror jeg har forstået dig, men jeg har blot ikke forklaret min kode særlig pædagogisk. Der er 2 celler som du kan taste i, selvom arket er låst. Når du klikker på A1 vil disse 2 celler også blive låst. Jeg har for testens skyld, forsynet arket med en knap, hvor du kan åbne celler igen. Er det nogenlunde det du forestillede dig? //Allan
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 10.Mar.2011 kl. 10:18 |
Hej Allan
det er precis det jeg skulle frem til
prøver at overfører det til mit eget ark
knappen lås op hvordan oprettes den ?
endnu en gang tak for hjælpen
Henrik
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 10.Mar.2011 kl. 10:24 |
I Excel 2007 og 2010 ligger den på fanen 'Udvikler' Vælg knappen 'Indsæt' og knappen under 'Kontrolelementer for Formular' Har du ikke fanen 'Udvikler' skal du gøre følgende: Klik på den runde OfficeKnap i øverste venstre hjørne Vælg 'Excel Indstillinger' Sæt flueben i 'Vis fanen Udvikler på båndet' //Allan
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 10.Mar.2011 kl. 10:25 |
undskyld knappen hedder ikke Lås op men åben celler igen
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 10.Mar.2011 kl. 10:35 |
Hej Allan
Jeg er vidst kommet lidt til kort her, det er nok bedst
at jeg studerer det du har sendt før jeg bruger mere af din tid.
syntes det er fantastisk at sådan et forum her findes
det gør at jeg ar ret tæt på at opnå noget som for mig vil være perfekt
tusind tak for hjælpen
Henrik
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 10.Mar.2011 kl. 11:43 |
Hej Allan
Jeg har kopieret dette til mit ark og rettet cellenavn til A2 og A3
men det fungerer ikke.
ville gerne kunne vise dig arket som det du viste mig men ved ikke hvordan det gøres
Henrik
Private Const koden = "123" Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" And ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect koden Range("A2").Locked = True 'Denne celle er åben indtil arket låses Range("A3").Locked = True 'Denne celle er åben indtil arket låses ActiveSheet.Protect "123" End If End Sub Sub AabenCellenIgen() On Error Resume Next ActiveSheet.Unprotect koden Range("A2").Locked = False 'Denne celle er åben indtil arket låses Range("A3").Locked = False 'Denne celle er åben indtil arket låses ActiveSheet.Protect koden End Sub
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 10.Mar.2011 kl. 12:45 |
Hej igen, Du er meget velkommen til at bruge min tid. Jeg mener at hvis man har fået en gave i form af kundskaber, bør man dele den med andre, ellers vil den viden man har opbygget, over tid blive ubrugelig eller måske endda gå tabt. Du kan uploade dit ark til forummet ved først at bruge 'Besvar' knappen. Når du så skriver beskeden, skal du bruge knappen som ligger i menulinjen. Så kan du lægge filer op og efterfølgende administrere dem. //Allan
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 10.Mar.2011 kl. 15:33 |
Hej Allan det er utroligt
Planen med det her ark at ligge det på serveren som montørene
får adgang til via en kode
Jeg kan så ved hjælp af samkøring af timer til mit ark med kalkulationer
følge med i hvad der er brugt af tid på hver sag.
Det skal være let for dem så derfor siden med datoer
man klikker så bare på datoen og så kommer man til
sin montage rapport for denne dag
den er forudfyldt med sag, nr. navn osv.
når man så har indtastet sine data skulle man så
hvis det kan lade sig gøre trykke på en celle og så er arket låst
og man hopper tilbage til siden med datoer.
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 11.Mar.2011 kl. 12:34 |
Hej igen Henrik, Når du trykker på LÅS, låses arket, når du trykker på LÅS OP spørges du om koden, og arket åbnes. Kan det løfte opgaven? //Allan
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 11.Mar.2011 kl. 13:31 |
Hej Allan
Nej det løser desværre ikke helt opgaven
når arket er tilgængeligt for montørerne
skal der kun kunne skrives i felter med rødt
samt på linjer beregnet for tekst
resten skal være låst
når så de er færdige med at indtaste skal resten af arket låses
ved hjælp at et klik i en celle
herefter skal det ikke være muligt for montørerne at låse det op
Henrik
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 11.Mar.2011 kl. 14:24 |
Prøv lige denne, den er rettet efter det du beskriver. Montøren kan taste i felter med rødt og linjer beregnet til tekst. Når han klikker på Lås, låses alt. Klikker man på Lås op og man kender koden, kan felterne med rødt og linjer beregnet til tekst anvendes igen. Er vi der? //Allan
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 11.Mar.2011 kl. 14:41 |
Hej Allan
Jeg er stået af på det med koderne (skulle måske studerer det lidt mere)
Det virker ikke helt som jeg havde forestillet mig
efter at have trykket lås kan man stadig taste i nogle felter
Grøn tekst må ikke på noget tidspunkt kunne ændres af montørerne
Rød tekst må kunne ændres af montørerne til de har trykket lås
herefter må der ikke være noget som er tilgængeligt medmindre man kender koden selvfølgelig
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 11.Mar.2011 kl. 14:44 |
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 11.Mar.2011 kl. 14:45 |
Henrik, Prøv lige følgende: Luk din internet browser, åben den igen og vend tilbage her til forummet. Jeg tror det er en gammel kopi som spøger lidt, da jeg har brugt det samme filnavn 2 gange. //Allan
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 11.Mar.2011 kl. 14:48 |
|
|
Henrik Nielsen
Bronze bruger
Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55
|
Sendt: 11.Mar.2011 kl. 14:52 |
Hej Allan
Helt perfekt tusind tak for hjælpen
Ok nu kom den med nyt navn
så alt er sikkert ok
Jeg fortsætter med de ark som det skal kobles sammen med
God weekend
Henrik
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 11.Mar.2011 kl. 14:53 |
Velbekomme Henrik, også god weekend til dig //Allan
|
|