Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zakleniti ali zaščititi celice po vnosu podatkov ali vnosu v Excelu?

Predpostavljamo, da imate delovni list in le določen obseg praznih celic potrebuje vnos podatkov in po končanem vnosu podatkov morate celice, ki jih želite samodejno zakleniti, da preprečite spremembe. Kako lahko to storite, da bi ga dosegli? Ta članek vam lahko pomaga.

Zaklenite ali zaščitite celice po vnosu podatkov ali vnosu s kodo VBA


Zaklenite ali zaščitite celice po vnosu podatkov ali vnosu s kodo VBA

Na primer, določen obseg praznih celic je A1: F8. Prosimo, naredite naslednje, da zaklenete te celice po vnosu podatkov v Excelu.

1. Najprej odklenite to območje, izberite celice in z desno miškino tipko kliknite, nato izberite Oblikuj celice v meniju z desnim klikom in v meniju Oblikuj celice pogovorno okno, počistite Zaklenjen polje pod zaščita jeziček in nazadnje s klikom na OK gumb. Prikaz slike:

2. klik pregled > Zaščitite list. Določite geslo za zaščito tega delovnega lista.

3. Desno kliknite jeziček stanja, izberite Ogled kode iz menija z desnim klikom. Nato kopirajte in prilepite spodnjo kodo VBA v okno Code. Prikaz slike:

VBA koda: zaklenite ali zaščitite celice po vnosu ali vnosu podatkov

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

Opombe: V kodi je "A1: F8" obseg, ki ga potrebujete za vnos podatkov; in "123" je geslo tega zaščitenega delovnega lista. Prosimo, spremenite jih po potrebi.

4. Pritisnite druga + Q tipke za hkratno zapiranje Microsoft Visual Basic za aplikacije okno.

Ko končate vnos podatkov v celice območja A1: F8, se bodo samodejno zaklenili. In če boste poskušali spremeniti katero koli celično vsebino tega območja, boste dobili hitro pogovorno okno. Prikaz slike:


Office Tab - brskanje, urejanje in upravljanje črk v Excelu:

Office Tab prikaže vmesnik z zavihki, kot ga vidite v spletnih brskalnikih, kot so Google Chrome, nove različice programa Internet Explorer in Firefox v Microsoft Excel. To bo orodje za varčevanje z energijo in neupoštevanje vašega dela. Glej spodaj predstavitev:

Kliknite brezplačno preskusno različico Office Tab!

Zavihek Office za Excel


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan Bullock · 8 days ago
    Hello there, how can I use this so that the user inputs the data in a range and then must click a submit button/cell to lock the cells?
  • To post as a guest, your comment is unpublished.
    AW · 16 days ago
    If the cell is currently empty (but has previously been filled) is there a way to make it editable rather than protected?
  • To post as a guest, your comment is unpublished.
    M · 5 months ago
    it doesn't seem to work if i have some cells merged. is there a solution for that?
    • To post as a guest, your comment is unpublished.
      crystal · 4 months ago
      Hi,
      If there are merged cells in the specified range, please try the following code.

      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.MergeArea.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
  • To post as a guest, your comment is unpublished.
    SURENDRA · 6 months ago
    SIR I SUCCESS TO PROTECT AND LOCK CELL BUT I WANT TO EDIT CELLS WHEN THEY LOCKED ONLY THROUGH CELLS CLICK AND ASK PASSWORD TO EDIT CELL . HOW TO DO THIS ..?
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi SURENDAR,
      Sorry can't help with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Prandeep · 7 months ago
    Sir, when pasting code after double click in selected entry cell which cell enter the data the cell did not permission to entry value please fix the problem modify the code.
    • To post as a guest, your comment is unpublished.
      crystal · 6 months ago
      Hi,
      The code has been updated with the problem solving, please have a try. Thank you for your comment.