Hoe bepaalde cellen te vergrendelen zonder het hele werkblad in Excel te beschermen?
Normaal gesproken moet u het hele werkblad beveiligen om cellen te vergrendelen tegen bewerking. Is er een methode om cellen te vergrendelen zonder het hele werkblad te beschermen? In dit artikel wordt een VBA-methode voor u aanbevolen.
Vergrendel gespecificeerde cellen zonder het hele werkblad te beschermen met VBA
Vergrendel gespecificeerde cellen zonder het hele werkblad te beschermen met VBA
Stel dat u cel A3 en A5 in het huidige werkblad moet vergrendelen, dan helpt de volgende VBA-code u dit te bereiken zonder het hele werkblad te beschermen.
1. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het rechtsklikmenu.
2. Kopieer en plak vervolgens de onderstaande VBA-code in het codevenster. Zie screenshot:
VBA-code: vergrendel gespecificeerde cellen zonder het hele werkblad te beschermen
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
Note: In de code, Column 1, Rij = 3 en Rij = 5 geef aan dat cel A3 en A5 in het huidige werkblad worden vergrendeld nadat de code is uitgevoerd. U kunt ze naar behoefte wijzigen.
3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.
Nu zijn cel A3 en A5 vergrendeld in het huidige werkblad. Als u cel A3 of A5 in het huidige werkblad probeert te selecteren, wordt de cursor automatisch naar de rechter aangrenzende cel verplaatst.
Gerelateerde artikelen:
- Hoe alle celverwijzingen in formules tegelijk in Excel te vergrendelen?
- Hoe cellen te vergrendelen of te beschermen na gegevensinvoer of invoer in Excel?
- Hoe cellen te vergrendelen of ontgrendelen op basis van waarden in een andere cel in Excel?
- Hoe een afbeelding / afbeelding in of in een cel in Excel te vergrendelen?
- Hoe celbreedte en -hoogte te vergrendelen tegen het wijzigen van de grootte in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!