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


Emne lukketlås forskellige celler efter indtastning
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Benthe Se dropdown
Forum Begynder
Forum Begynder


Medlem: 02.Maj.2020
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Emne: lås forskellige celler efter indtastning
    Sendt: 02.Maj.2020 kl. 09:52
jeg har brug for at låse nogle celler efter der er tastet data ind,

det er cellerne "A6:A15" OG "C6:C15" og "E6:E15" og "G6:G15"

er der nogen som kan hjælpe

Benthe
Til top



Til top
InfoTAL Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 05.Okt.2017
Land: DK, 6900
Status: Offline
Point: 376 		Direkte link til dette indlæg Sendt: 02.Maj.2020 kl. 10:25
Til Benthe.

Først indtast ønskede tal/formler i celler der senere skal låses.
1. CTRL+marker de celler der skal låses
2. Højre-klik på de markerede celler
   Formater celler
   Beskyttelse
   Flueben i lås celler
   OK
3. Ark: Gennemse
   Beskyt ark
   (evt. kode - med så HUSK koden, ellers kan der ikke åbnes igen)
   Anbefales (ikke nogen kode)
   OK
Så er de markerede celler låste og resten celler åbne.

Håber det er en nogenlunde beskrivelse og ellers vedh. en fil med eksempel/ønske, så det kan vises/tilrettes.
Ellers mere/tilbagemelding her.
InfoTAL
v/H.C.
Bruger Excel 2021 DK, 64 bit.
Svar gives/modtages..
Accepteret løsning: MARKER tråden med TAK/Accepteret svar
s.e.&o.
Til top
Benthe Se dropdown
Forum Begynder
Forum Begynder


Medlem: 02.Maj.2020
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Sendt: 02.Maj.2020 kl. 10:54
Jeg udtrykte mig nok ikke godt nok.
Jeg har brug for en vba kode, som gør at cellerne låser 
Automatisk efter der er indtastet, og ikke kan rettes i, medmindre
At man låser arket op😉😉 selvfølgelig
Til top
Benthe Se dropdown
Forum Begynder
Forum Begynder


Medlem: 02.Maj.2020
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Sendt: 03.Maj.2020 kl. 18:35
Efter flere forsøg kom jeg frem til denne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A6:A15,C6:C15,E6:E15,G6:G15"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A6:A15,C6:C15,E6:E15,G6:G15,Q19"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:=""
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:=""

End Sub
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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