Låse en celle automatisk efter indtastning af data
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=3629
Udskrevet den: 23.Nov.2024 kl. 10:07
Emne: Låse en celle automatisk efter indtastning af data
Besked fra: cprdk
Emne: Låse en celle automatisk efter indtastning af data
Posteringsdato: 24.Sep.2018 kl. 07:59
|
Kære alle Excel 365 Hilsen Claes
|
Svar:
Besked fra: maxzpad
Posteringsdato: 24.Sep.2018 kl. 08:28
|
Hej Claes Det kan lade sig gøre med en makro, der placeres i arkets kodemodul. Først skal du dog fjerne beskyttelsesmarkeringen "Låst" på alle cellerne i arket. Private Sub Worksheet_Change(ByVal Target As Range) With Target .Parent.Unprotect .Locked = True .Parent.Protect End With End Sub Håber det giver mening - eller så skriv igen. Mvh Max |
Besked fra: cprdk
Posteringsdato: 24.Sep.2018 kl. 09:07
|
Hej Max Det er helt perfekt (o: Jeg har brug for at kolonne A:D kan redigeres af bruger - Kan det komme med i koden ? Og kan der indsættes et password så en superbruger kan rette i en given celle ? Og ja jeg ved godt fanden tager hele armen når han møder kompetence (o: Hilsen Claes
|
Besked fra: maxzpad
Posteringsdato: 24.Sep.2018 kl. 11:16
|
Hej Claes Prøv denne kode: Private Sub Worksheet_Change(ByVal Target As Range) If Application.Intersect(Target, Target.Parent.Range("A:D")) Is Nothing Then With Target .Parent.Unprotect Password:="MyPw" .Locked = True .Parent.Protect Password:="MyPw" End With End If End Sub Mvh Max |
Besked fra: cprdk
Posteringsdato: 24.Sep.2018 kl. 12:30
Virker bare helt perfekt - Tusinde tak for hjælpen 
|