Det er faner (Det tidligere omtalte ark til dagsedler)

jeg skal bruge  1 til hver dag i året

Navnene er datoer som er tastet ind i celle i et ark 

der skal fungerer som forside. når man så klikker på en dato

kommer man til dagsedlen med denne dato

den kan man så udfylde og låse samtidig med kommer man så tilbage til for siden.

 

det var en længere forklaring men det er nogle gange lettere

når man ved hvad resultatet skal blive

 

Henrik

     

 

Kan det lade sig gøre at oprette 364 kopier af et ark på en gang ?

 

Henrik

 

Kan det lade sig gøre at låse og afslutte i et klik ?

 

Henrik

 

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

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

 

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 

 

herefter skal det ikke være muligt for montørerne at låse det op

 

Henrik

 

 

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.  

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