Hoe voegt u rijen toe of verwijdert u rijen in een beveiligd werkblad?
Bij het werken met gevoelige of gedeelde gegevens in een Excel-werkblad is het beveiligen van het werkblad een Veelgebruikt methode om onbedoelde of onbevoegde wijzigingen te voorkomen. Door het ontwerp beperkt bladbeveiliging echter ook bepaalde bewerkingen, zoals het invoegen of verwijderen van rijen, met name in cellen die vergrendeld zijn. Veel gebruikers ondervinden vaak het probleem dat ze bewerkingen zoals het invoegen of verwijderen van rijen willen toestaan, terwijl de rest van het werkblad toch beveiligd blijft. Deze handleiding beschrijft praktische methoden om rijen in te voegen of Rijen verwijderen op een beveiligd werkblad en bespreekt de Toepassingsscenario's, voorzorgsmaatregelen en alternatieve oplossingen om uw gegevens veilig en efficiënt te beheren.
Rijen invoegen of Rijen verwijderen in beveiligd werkblad
VBA: Tijdelijk deblokkeren, invoegen/verwijderen en automatisch opnieuw beveiligen
Rijen invoegen of Rijen verwijderen in beveiligd werkblad
Deze oplossing is het meest geschikt voor situaties waarin u gebruikers beperkte bewerkingsrechten wilt geven, zoals het invoegen of verwijderen van rijen, terwijl het grootste deel van uw werkblad beveiligd blijft. Hierdoor blijven specifieke rijen of gegevenssecties flexibel en bewerkbaar, terwijl de rest van het werkblad beschermd is tegen onbedoelde wijzigingen of verwijderingen.
Volg deze stapsgewijze instructies om rijen in te voegen en te verwijderen in een beveiligd werkblad:
1. Selecteer de gehele rij waar gebruikers rijen mogen invoegen of verwijderen. Dit bepaalt op welke plek in uw beveiligde werkblad deze bewerkingen zijn toegestaan. Klik met de rechtermuisknop op de selectie en kies vervolgens Celopmaak instellen in het contextmenu. Zie schermafbeelding:
2. Ga in het verschijnende Celopmaak instellen-dialoogvenster naar het tabblad Beveiliging. Schakel hier het selectievakje Vergrendeld uit om deze specifieke cellen of rijen te ontgrendelen. Ontgrendelen is essentieel—anders kunnen gebruikers nog steeds geen wijzigingen aanbrengen, zelfs met andere machtigingen. Wees voorzichtig en ontgrendel geen gevoelige gebieden die beveiligd moeten blijven. Zie schermafbeelding:
3. Klik op OK om het dialoogvenster te sluiten. Ga vervolgens naar het Excel-lint, klik op Controleren en selecteer daarna Werkblad beveiligen om de werkbladbeveiliging in te schakelen. Zie schermafbeelding:
4. In het verschijnende Werkblad beveiligen-dialoogvenster ziet u een lijst met het label Gebruikers van dit werkblad toestaan. Schakel de opties Rijen invoegen en Rijen verwijderen in. Voer, indien nodig, een wachtwoord in om het werkblad te beveiligen en bevestig dit wanneer daarom wordt gevraagd. Deze stap is cruciaal om alleen de gewenste bewerkingsmachtigingen toe te kennen, terwijl de rest van het werkblad beveiligd blijft. Zie schermafbeelding:
5. Klik tot slot op OK om de bladbeveiliging in te schakelen met de nieuwe instellingen. Daardoor kunnen voortaan alleen de opgegeven rijen worden ingevoegd of verwijderd, conform de machtigingen en ontgrendelingen die u hebt ingesteld, terwijl de rest van het werkblad onaangetast blijft. Zie schermafbeelding:
Deze methode werkt goed voor de meeste basisbehoeften, maar houd er rekening mee dat gebruikers rijen buiten de ontgrendelde, toegestane gebieden niet kunnen invoegen of Rijen verwijderen. Controleer altijd welke cellen ontgrendeld zijn voordat u de beveiliging inschakelt, om onbedoelde blootstelling van gegevens of ontoereikende beveiliging te voorkomen.
Als u invoeg- of verwijderbewerkingen in grotere delen van het werkblad wilt toestaan of meer automatisering wenst, overweeg dan de onderstaande VBA-oplossingen.
VBA: Tijdelijk deblokkeren, invoegen/verwijderen en automatisch opnieuw beveiligen
Deze VBA-macro-aanpak is ideaal voor gebruikers die regelmatig rijen willen invoegen of verwijderen in een beveiligd werkblad, zonder telkens handmatig te hoeven ontgrendelen en opnieuw beveiligen. Met één muisklik voert u een macro uit die het werkblad tijdelijk deblokkeert, de rijbewerkingen uitvoert en het werkblad daarna automatisch weer beveiligt. Dit is bijzonder geschikt voor samenwerkingsprojecten of terugkerende taken, waarbij gegevens tegelijkertijd flexibel én continu beveiligd blijven.
De belangrijkste voordelen van deze aanpak zijn het minimaliseren van onbedoelde blootstelling van gevoelige gegevens door het beveiligingsvenster van het werkblad zo kort mogelijk te houden, en het vermijden van herhaaldelijk wachtwoorden hoeven in te voeren bij routinematige bewerkingen. Een mogelijke beperking is echter dat macro’s ingeschakeld moeten zijn en basiskennis van macro-beveiliging vereist is.
1. Open het werkblad waarop u deze functionaliteit wilt inschakelen. Klik op het tabblad Ontwikkelaar(als het tabblad Ontwikkelaar niet zichtbaar is, schakelt u dit in via)Bestand > Opties > Lint aanpassen), en klik vervolgens op Visual Basic. Selecteer in het VBA-editorvenster dat verschijnt Invoegen > Module en plak de volgende code in de module:
Sub InsertRowInProtectedSheet()
Dim ws As Worksheet
Dim pwd As String
Set ws = ActiveSheet
pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
If pwd = "" Then Exit Sub
On Error Resume Next
ws.Unprotect Password:=pwd
If Err.Number <> 0 Then
MsgBox "Incorrect password or unprotect failed!", vbExclamation
Exit Sub
End If
On Error GoTo 0
Dim insertRow As Integer
insertRow = Application.InputBox("Enter row number to insert:", "KutoolsforExcel", Type:=1)
If insertRow > 0 Then
ws.Rows(insertRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox "Row inserted at " & insertRow, vbInformation
End If
ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub
Sub DeleteRowInProtectedSheet()
Dim ws As Worksheet
Dim pwd As String
Set ws = ActiveSheet
pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
If pwd = "" Then Exit Sub
On Error Resume Next
ws.Unprotect Password:=pwd
If Err.Number <> 0 Then
MsgBox "Incorrect password or unprotect failed!", vbExclamation
Exit Sub
End If
On Error GoTo 0
Dim delRow As Integer
delRow = Application.InputBox("Enter row number to delete:", "KutoolsforExcel", Type:=1)
If delRow > 0 Then
ws.Rows(delRow).Delete
MsgBox "Row " & delRow & " deleted.", vbInformation
End If
ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub2. Sluit de VBA-editor. Druk op Alt + F8 om het Macrodialoogvenster te openen, selecteer InsertRowInProtectedSheet en klik op Uitvoeren. Om een rij te verwijderen, selecteert u DeleteRowInProtectedSheet en klikt u op Uitvoeren. U wordt gevraagd het werkbladwachtwoord in te voeren en op te geven welke rij u wilt invoegen of verwijderen. Deze methode beveiligt het werkblad onmiddellijk na de bewerking, zodat continue beveiliging gegarandeerd blijft. Sla uw werkmap op als een macro-inschakelbaar bestand ().xlsm) voor toekomstig gebruik.
Tips:
- Controleer altijd of u het juiste wachtwoord hebt voordat u de macro uitvoert, want met een onjuist wachtwoord wordt de automatisering geblokkeerd.
- Mocht er een fout optreden, controleer dan de ingevoerde waarden en zorg ervoor dat macro’s zijn ingeschakeld in de Trust Center-instellingen van Excel.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins