Hvordan låses eller beskyttes celler efter dataindtastning eller input i Excel?
Hvis du antager, at du har et regneark og bare et bestemt interval af tomme celler har brug for dataindtastning, og når du er færdig med at indtaste data, skal du automatisk låse cellerne for at forhindre ændringer igen. Hvordan kan du gøre for at opnå det? Denne artikel kan hjælpe dig.
Lås eller beskyt celler efter dataindtastning eller input med VBA-kode
Lås eller beskyt celler efter dataindtastning eller input med VBA-kode
For eksempel er det bestemte interval af tomme celler A1: F8. Gør som følger for at låse disse celler efter dataindtastning i Excel.
1. Lås først dette interval op, vælg cellerne, højreklik, og vælg derefter formater celler i højreklikmenuen og i formater celler dialogboksen, fjern markeringen af Låst under boksen beskyttelse og endelig klikke på OK knap. Se skærmbillede:
2. klik anmeldelse > Beskyt ark. Og angiv en adgangskode for at beskytte dette regneark.
3. Højreklik på arkfanen, vælg Vis kode fra højreklikmenuen. Kopier og indsæt derefter nedenstående VBA-kode i kodevinduet. Se skærmbillede:
VBA-kode: Lås eller beskyt celler efter dataindtastning eller input
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), 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("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Bemærk: I koden er “A1: F8” det område, du har brug for for at indtaste data; og "123" er adgangskoden til dette beskyttede regneark. Skift dem, som du har brug for.
4. Trykke andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
Når du er færdig med at indtaste data i cellerne i området A1: F8, låses de automatisk. Og du får en hurtig dialogboks, hvis du prøver at ændre noget celleindhold i dette interval. Se skærmbillede:
Relaterede artikler:
- Hvordan låses alle cellereferencer i formler på én gang i Excel?
- Hvordan låses eller låses celler op baseret på værdier i en anden celle i Excel?
- Hvordan låses billede / billede til eller inde i cellen i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!