Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketLåse ark
 Besvar Besvar Side  <12
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Henrik Nielsen Se dropdown
Bronze bruger
Bronze bruger


Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55 		Direkte link til dette indlæg Sendt: 11.Mar.2011 kl. 15:15
Nå ja det jo vanskeligt at slutte når man bliver grebet af det
 
Kan det lade sig gøre at låse og afslutte i et klik ?
 
Henrik
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 11.Mar.2011 kl. 15:41

 Nej, det er intet problem, du skal bare opdatere koden med denne:

 
Private Const koden = "123"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$K$43" Then
    If MsgBox("Du er ved at låse arket, vil du fortsætte?", vbInformation + vbYesNo, "STÅLKON") <> vbYes Then Exit Sub
    ActiveSheet.Unprotect koden
    Range("D8:K8,B13:F19,I13:L19,B21:L27,B29:L36,B38:L42").Locked = True
    ActiveSheet.Protect "123"
    Ark1.Activate
    Range("A1").Select
End If
If Target.Address = "$Q$43" Then
    ActiveSheet.Unprotect
    Range("D8:K8,B13:F19,I13:L19,B21:L27,B29:L36,B38:L42").Locked = False
    ActiveSheet.Protect koden
End If
End Sub
 
//Allan
Til top
Henrik Nielsen Se dropdown
Bronze bruger
Bronze bruger


Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55 		Direkte link til dette indlæg Sendt: 14.Mar.2011 kl. 14:29
Jamen det virker jo
 
Kan det lade sig gøre at oprette 364 kopier af et ark på en gang ?
 
Henrik
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 14.Mar.2011 kl. 15:03
Hej Henrik,
 
Faner eller filer?
Hvad skal navnet være, har du navnene skrevet i nogle celler?
 
//Allan
Til top
Henrik Nielsen Se dropdown
Bronze bruger
Bronze bruger


Medlem: 07.Mar.2011
Land: danmark
Status: Offline
Point: 55 		Direkte link til dette indlæg Sendt: 15.Mar.2011 kl. 08:41
Hej Allan
 
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
     
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 15.Mar.2011 kl. 16:56
Hej Henrik,
Prøv at kigge på denne funktion: https://www.bst-utilities.dk/?pageIDX=66
Hvis du kører funktionen 'Multiark generator' som opretter ark med de navne du har på din liste. (Alle 364)
Bagefter, skal du markere øverste celle i listen og køre funktionen 'List alle arknavne under aktive celle'
Sidstnævnte funktion indsætter alle arknavne og gør dem klikbare.
Er det for kryptisk?
//Allan
Til top
 Besvar Besvar Side  <12

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk