Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie kann ich bestimmte Zellen sperren, ohne das gesamte Arbeitsblatt in Excel zu schützen?

Normalerweise müssen Sie das gesamte Arbeitsblatt schützen, um Zellen vor dem Bearbeiten zu sperren. Gibt es eine Methode zum Sperren von Zellen, ohne das gesamte Arbeitsblatt zu schützen? Dieser Artikel empfiehlt eine VBA-Methode für Sie.

Sperren Sie bestimmte Zellen, ohne das gesamte Arbeitsblatt mit VBA zu schützen


Sperren Sie bestimmte Zellen, ohne das gesamte Arbeitsblatt mit VBA zu schützen


Angenommen, Sie müssen die Zellen A3 und A5 im aktuellen Arbeitsblatt sperren, hilft Ihnen der folgende VBA-Code dabei, dies zu erreichen, ohne das gesamte Arbeitsblatt zu schützen.

1. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü.

2. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein. Siehe Screenshot:

VBA-Code: Sperren Sie bestimmte Zellen, ohne das gesamte Arbeitsblatt zu schützen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
        End If
    End If
End Sub

Hinweis: Im Code, Column 1, Zeile = 3 und Zeile = 5 Geben Sie an, dass die Zellen A3 und A5 im aktuellen Arbeitsblatt nach dem Ausführen des Codes gesperrt sind. Sie können sie nach Bedarf ändern.

3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Jetzt sind die Zellen A3 und A5 im aktuellen Arbeitsblatt gesperrt. Wenn Sie versuchen, Zelle A3 oder A5 im aktuellen Arbeitsblatt auszuwählen, wird der Cursor automatisch in die rechte benachbarte Zelle bewegt.


In Verbindung stehende Artikel:


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
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.
    Aaron · 5 months ago
    Is there a way for this VBA code to run automatically every time someone opens the file?
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Aaron,
      After adding the code, please save the workbook as an Excel Macro-Enabled Workbook (click File > Save As > specify a folder for the file > choose Excel Macro-Enabled Workbook from the Save as type drop-down list > Save). After that, every time when you open the file, the code works automatically.
  • To post as a guest, your comment is unpublished.
    peggywong44667799@gmail.com · 1 years ago
    I have try cannot, Hide formula without protecting.
  • To post as a guest, your comment is unpublished.
    Kasey · 1 years ago
    Hi,

    I have tried to use the code for ranges you have previously posted but it isn't working - can you advise me if I should be combining the code for ranges above or below?


    Thanks
  • To post as a guest, your comment is unpublished.
    Charlie · 2 years ago
    Hello,

    I used the code provided to Carlos and it did exactly what I wanted it to. Is there a way to have some ranges offset within the ROW to the right of the protected range (as the "Carlos" code already does), but have other ranges offset within the COLUMN to the cell directly below the protected range? I tried entering the "Carlos" code twice and changing the offset, but I received a variety of errors.

    Thank you
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Charlie,
      Sorry can't help you with that yet. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Espen · 2 years ago
    Is there any function to set for example Row 2 cell 13 to 900? Or do i need to manually punch each cell name in the code?
  • To post as a guest, your comment is unpublished.
    christophe.bourquard@gmail.com · 2 years ago
    Bonjour,
    Comment faire pour verrouiller de la cellule B8 à B10000?
    D'avance merci de votre réponse.
    Christophe
  • To post as a guest, your comment is unpublished.
    Erin · 2 years ago
    Dear Crystal,

    Thank you so much for this! It works perfectly.

    I have used the code in Carlos' comment to run the macro automatically as you open the file. I was wondering if there is a way of having an "Undo" button or something like it, that allows you to cancel that code and therefore, unlock those ranges that have been locked.

    I want those to be locked most of the time, but I would like to unlock them should I need to change any of the data. The only reason I am not protecting the whole sheet is because, if I do, it deactivates the ability to expand on tables. That in turn, expand on a line chart.

    Thanks so much for the help!
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Erin,
      You can manually break the code by clicking the Break button in the Microsoft Visual Basic for Applications window to unlock those ranges. And run the code to activate it again. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    carlito2002wgn · 3 years ago
    Dear Crystal,

    Is there anyway that this macro can be run automatically upon opening the file, or upon clicking any cell. I don't want people to have to run the macro manually in order for the required ranges to be protected.

    Also, I will need to protect 12 non adjacent ranges. For example: I11:I20 and K11:K20 and M11:20 etc... How do I do this?

    Last, and this one might be asking too much, but is it possible to apply the protection to the example ranges that I provided above, BUT then extend the protection down additional rows as new ones are added? In other words, protection would be applied to I11:I20 and K11:K20 and M11:20, but a user would be able to add a new row (row 21), with new data, but once the new row is added, then the protection would apply to I11:I21 and K11:K21 and M11:21. Am I asking for the moon? :-)

    Thank you for everything that you've already provided! I can't thank you and other people like you enough for sharing the your knowledge. Amazing!
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear Carlos,
      The following VBA code can help you solving the problem. Please fill in your ranges in the fourth line of the code and press the Alt + Q keys to return to the worksheet. Then please shift to other worksheet and then go back to current sheet to activate the code. Thank you for your comment.

      Dim xRg As Range
      Private Sub Worksheet_Activate()
      If xRg Is Nothing Then
      Set xRg = Union(Range("I10:I20"), Range("K10:K20"), Range("M10:M20"), Range("O10:O20"))
      End If
      End Sub
      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim I As Integer
      Dim xRgNew As Range
      Dim xRgLCell As Range
      On Error Resume Next
      Application.EnableEvents = False
      For I = 1 To xRg.Areas.Count
      Set xRgLCell = xRg.Areas.Item(I)
      Set xRgLCell = xRgLCell(xRgLCell.Count).Offset(1, 0)
      If Target.Address = xRgLCell.Address Then
      If xRgNew Is Nothing Then
      Set xRgNew = Target
      Else
      Set xRgNew = Union(xRgNew, Target)
      End If
      End If
      Next
      Set xRg = Union(xRg, xRgNew)
      Application.EnableEvents = True
      End Sub
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error GoTo Exitsub
      If (Not Intersect(xRg, Target) Is Nothing) And (Target.Count = 1) Then
      Target.Offset(0, 1).Select
      End If
      Exitsub:
      End Sub
  • To post as a guest, your comment is unpublished.
    pabloizquierdo88@gmail.com · 3 years ago
    Dear Crystal,

    You have provided me with a solution (half of it) that I have been struggling for the last few weeks, but I would need some more hints.

    How this could be applied to a table range only, not whole worksheet? Thanks in advance.
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      As the VBA code provided below, please change the specified range "H:J,4:46" to the table range you only want to lock in the worksheet.
      And cells(1,1) should be the cell outside the table range. When clicking on any cell in the table range, the cursor will be moved to that cell automatically.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim xRg As Range
      Dim xRgEx As Range
      Dim xRgExEach As Range
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Range("H:J,4:46") 'Change the row range and column range you will lock without protecting worksheet
      Set xRgEx = Application.Intersect(xRg, Target)
      If xRgEx Is Nothing Then Exit Sub
      Cells(1, 1).Select 'Specify a cell you will shift to after selecting the locked cells
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    AJ · 3 years ago
    how could i lock a range of rows, say 4-46 and columns 8 and 10
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear AJ,
      If you want to lock a range of specified rows and columns, please try the below VBA script.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim xRg As Range
      Dim xRgEx As Range
      Dim xRgExEach As Range
      On Error Resume Next
      Application.ScreenUpdating = False
      Set xRg = Range("H:J,4:46") 'Change the row range and column range you will lock without protecting worksheet
      Set xRgEx = Application.Intersect(xRg, Target)
      If xRgEx Is Nothing Then Exit Sub
      Cells(1, 1).Select 'Specify a cell you will shift to after selecting the locked cells
      Application.ScreenUpdating = True
      End Sub
      • To post as a guest, your comment is unpublished.
        Nikki · 8 months ago
        This is a great workaround, especially in shared workbooks where turning protection on/off is unsupported. Thank you so much.
  • To post as a guest, your comment is unpublished.
    ajay · 4 years ago
    I wanted to hide formula in Cell O1. Please inform formula for the same.
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear ajay,
      If you want to hide formula in cell O1 without protecting the worksheet, please try the below VBA script.
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Static TheFormula As String
      If Target.Address = "$O$1" Then
      With Target
      TheFormula = .Formula
      .Value = .Value
      End With
      Else
      With Range("O1")
      If Not .HasFormula Then
      .Formula = TheFormula
      End If
      End With
      End If
      End Sub

      After using the code, it seems that the formula of cell O1 is changed to formula result. Actually, it hides the formula with displaying the formula result in the Formula Bar. And the formula will display if the code is broken.
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear ajay,
      For hidding formula of cells, please follow the below hyperlink to get the solution.
      https://www.extendoffice.com/documents/excel/1424-excel-hide-formulas.html