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
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 Emne: Låse ark
    Sendt: 07.Mar.2011 kl. 13:07
Hej
 
Er der nogen som ved om man kan låse et ark ved at klikke i en celle ?
det skal være sådan at når man er færdig med at indtaste data klikker men
i en celle med teksten lås ark og så kan der ikke redigeres i arket længere
medmindre man få udleveret en kode af administratoren
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: 07.Mar.2011 kl. 14:18
Hej Henrik,
 
Kender du til VBA?
 
For at løse din udfordring, skal du lægge denne lille kodestump under dit ark.
I dette eksempel, vil arket låse sig med koden 132 hvis man dobbeltklikker i cellen A1
 
Du skal gøre således:
 
Højreklik på den fane som indeholder den celle man skal klikke i for at låse arket.
Vælg 'Vis programkode'
Sæt nedenstående kode ind i det hvide område i højre side af din skærm.
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" And ActiveSheet.ProtectContents = False Then
    Target.Offset(0, 1).Select
    ActiveSheet.Protect "123"
End If
End Sub
 
De røde tekster skal du selv rette, for at det vil virke i dit ark.
123 = koden
$A$1 er cellen som udløser låsning ved dobbeltklik.
 
//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: 07.Mar.2011 kl. 15:05
Hej Allan
 
Tusind tak for hjælpen,  det virker
kan det lade sig gøre at ændre fra dobbeltklik til enkeltklik ?
da jeg skal have et link i samme celle
 
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: 07.Mar.2011 kl. 15:10
Hej igen,
 
Intet problem, så skal du bare ændre den til nedenstående:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" And ActiveSheet.ProtectContents = False Then
    ActiveSheet.Protect "123"
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: 07.Mar.2011 kl. 15:14
Herligt med så hurtig hjælp
men alle kan jo gå ind i vis programkode og se koden
 
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: 07.Mar.2011 kl. 15:56
Du kan vælge at låse VBA-koden, det er ikke 100% sikkert, men man skal alligevel kende noget til Excel for at bryde koden.
Når du er inde i koden, så højreklik på en af arkene i din fil, i vinduet til venstre.
Vælg 'VBAProjekt Properties'
Vælg fanen 'Protection'
Sæt flueben og skriv en kode 2 gange.
 
Nu skal man kunne koden for at kunne se koden Tongue
 
//Allan
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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