Låse ark
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=271
Udskrevet den: 14.Maj.2024 kl. 13:57
Emne: Låse ark
Besked fra: Henrik Nielsen
Emne: Låse ark
Posteringsdato: 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
|
Svar:
Besked fra: Allan
Posteringsdato: 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
|
Besked fra: Henrik Nielsen
Posteringsdato: 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
|
Besked fra: Allan
Posteringsdato: 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
|
Besked fra: Henrik Nielsen
Posteringsdato: 07.Mar.2011 kl. 15:14
|
Herligt med så hurtig hjælp
men alle kan jo gå ind i vis programkode og se koden
|
Besked fra: Allan
Posteringsdato: 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  //Allan
|