Note: The other languages of the website are Google-translated. Back to English

Hoe voorkom je dat specifieke celinhoud in Excel wordt verwijderd?

Dit artikel heeft het over het voorkomen dat specifieke celinhoud in Excel wordt verwijderd. U kunt dit bereiken met de methoden in dit artikel.

Voorkom dat specifieke celinhoud wordt verwijderd door het werkblad te beschermen
Voorkom dat specifieke celinhoud wordt verwijderd door VBA-code te gebruiken


Voorkom dat specifieke celinhoud wordt verwijderd door het werkblad te beschermen

Standaard zijn alle cellen in het werkblad vergrendeld. Als u wilt voorkomen dat specifieke celinhoud wordt verwijderd en andere cellen bewerkbaar wilt maken nadat u deze hebt beveiligd, gaat u als volgt te werk.

1. Klik op het knop in de linkerbovenhoek van het werkblad om het hele werkblad te selecteren. Druk vervolgens op Ctrl + 1 toetsen om de te openen Cellen opmaken dialoog venster.

2. In het opduiken Cellen opmaken dialoogvenster, schakel het vinkje uit Vergrendeld optie onder de Bescherming Klik op het tabblad en klik vervolgens op OK knop. Zie screenshot:

3. Selecteer de cellen waarvan u niet wilt dat de inhoud wordt verwijderd, en druk op Ctrl + 1 toetsen om het Cellen opmaken dialoogvenster nogmaals, vink het Vergrendeld optie onder de Bescherming Klik op het tabblad en klik vervolgens op OK knop.

4. Klik nu Review > Bescherm het blad, specificeer en bevestig vervolgens uw wachtwoord in beide Bescherm het blad en Bevestig wachtwoord dialoogvensters.

Nu is het werkblad beschermd. En de gespecificeerde celinhoud wordt niet meer verwijderd.


Voorkom dat specifieke celinhoud wordt verwijderd door VBA-code te gebruiken

Naast de bovenstaande twee methoden, kunt u VBA-code uitvoeren om te voorkomen dat specifieke celinhoud in een werkblad wordt verwijderd. Ga als volgt te werk.

1. Open het werkblad met de celinhoud die u niet wilt verwijderen, klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

2. Kopieer en plak de onderstaande VBA-code in het codevenster van het Microsoft Visual Basic voor toepassingen venster.

VBA-code: voorkom dat specifieke celinhoud wordt verwijderd in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

Opmerking:: In de code is A1: E17 het bereik waarvan u wilt voorkomen dat de celinhoud wordt verwijderd. U kunt het bereik aanpassen aan uw behoeften.

Als u vanaf nu celinhoud probeert te verwijderen uit bereik A1: E17, krijgt u een Kutools for Excel dialoogvenster zoals hieronder afgebeeld, klik op het OK knop.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (17)
Rated 5 uit 5 · 1 ratings
Deze opmerking is gemaakt door de moderator op de site
Precies wat ik zocht, bedankt voor de hulp!
Deze opmerking is gemaakt door de moderator op de site
maak je geen zorgen altijd hier om te helpen :)
Deze opmerking is gemaakt door de moderator op de site
Hey daar!

Ik heb net het VBA-script geprobeerd en hoewel het in de meeste situaties heel goed werkt. Het werkt echter niet wanneer u vanuit een bewerkbare cel naar de niet-bewerkbare kolom/cel tikt. Het probleem ontstaat doordat het de foutmelding geeft - zoals bevolen - maar het bewaart niet de gegevens die zijn ingevoerd in de originele, bewerkbare cel waaruit werd getabd.

Zou u een wijziging in het script willen hebben, zodat het de gegevens in de bewerkbare cel accepteert wanneer u naar niet-bewerkbaar tab?

Proost
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
Ik heb geprobeerd zoals u in uw geval zei, maar er worden geen fouten gegenereerd. Zou je een screenshot van je case willen maken of me je Office-versie willen vertellen?
Bedankt voor je commentaar.
Deze opmerking is gemaakt door de moderator op de site
Als je je blad niet wilt bekijken of VBA-code wilt schrijven, gebruik ik een eenvoudige techniek die elke overschrijving verhindert, behalve wanneer ze de "DELETE" -toets gebruiken (backspace is niet toegestaan, maar verwijderen is moeilijk te stoppen ). Wat ik deed, is een gegevensvalidatie toegevoegd met de volgende instellingen:

1) Toestaan ​​--> Lijst

2) verwijder het vinkje bij "Negeer leeg" en "vervolgkeuzelijst in cel"

3) Voer in de bron twee dubbele aanhalingstekens in (dwz "")

4) Vink op het tabblad Foutwaarschuwing "Toon foutwijziging nadat ongeldige gegevens zijn ingevoerd" aan, selecteer "Stoppen" voor stijl en voer vervolgens een foutbericht en beschrijving in (bijv. Niet overschrijven)
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Bedankt voor het delen.
Deze opmerking is gemaakt door de moderator op de site
VBA-code - Goede tip bedankt

Is er een VBA-code om te voorkomen dat specifieke celinhoud wordt gewijzigd EN verwijderd in Excel?
Het gebruikelijke beschermblad werkt niet voor mij omdat ik de mogelijkheid verlies om gegevens te sorteren?

Bij voorbaat dank - Neil
Deze opmerking is gemaakt door de moderator op de site
"Voorkom dat specifieke celinhoud wordt verwijderd door het werkblad te beveiligen" Ik deed het volgens uw richtlijn, nog steeds kan celinformatie worden verwijderd, dwz de beveiliging werkt niet. Elke oplossing.
Deze opmerking is gemaakt door de moderator op de site
Hallo Ahsan,
Heb je de VBA-methode toegepast?
U moet de VBA toevoegen aan het werkbladcodevenster. Stel dat de celinhoud die u wilt beschermen zich in Sheet9 bevindt, klik dan met de rechtermuisknop op de bladtab en selecteer Bekijk code in het contextmenu en kopieer de code vervolgens rechtstreeks naar het codevenster zoals de onderstaande afbeelding laat zien.
Deze opmerking is gemaakt door de moderator op de site
Hallo, deze code werkt goed, maar als u rij/kolom verwijdert, wordt deze omzeild. Is hier een oplossing voor? Groetjes, Davy.
Deze opmerking is gemaakt door de moderator op de site
Hoi David,
Welke Excel-versie gebruik je? Ik heb de code geprobeerd, hele rijen en kolommen in het opgegeven bereik kunnen niet worden verwijderd na het toepassen van de code.
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor de waardevolle informatie.
Betreffende de onderstaande VBA:
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Intersect(Target, Range("A1:E7")) niets is, sluit dan Sub af
Bij fout Ga naar ExitPoint
Application.EnableEvents = False
Zo niet IsDate(Doel(1)) Dan
Toepassing.Ongedaan maken
MsgBox " U kunt de celinhoud uit dit bereik niet verwijderen " _
, vbCritical, "Kutools voor Excel"
End If
Uitgangspunt:
Application.EnableEvents = Waar
End Sub

Het bovenstaande maakt uitvoering mogelijk binnen een bepaald gespecificeerd bereik. Het staat het toevoegen van nieuwe rijen niet toe. Is er een manier waarop nieuwe rijen kunnen worden toegevoegd met behoud van dezelfde bescherming.
bedankt en groeten
Deze opmerking is gemaakt door de moderator op de site
Hallo Oussama Abou faraj,
Na verschillende methoden geprobeerd te hebben, krijg ik het niet voor elkaar. Na het toevoegen van een nieuwe rij wordt het gebied onmiddellijk vergrendeld en kan de nieuw ingevoegde cel niet worden bewerkt.
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om iets soortgelijks te doen op werkmapniveau?

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Intersect (Target, Range ("A1:M7000")) niets is, sluit dan Sub af
Bij fout Ga naar ExitPoint
Application.EnableEvents = False
Zo niet IsDate(Doel(1)) Dan
Toepassing.Ongedaan maken
MsgBox " U kunt de celinhoud uit dit bereik niet verwijderen " _
, vbCritical, "Kutools voor Excel"
End If
Uitgangspunt:
Application.EnableEvents = Waar
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo Gelu,
Bedoel je om te voorkomen dat het bereik "A1:M7000" wordt verwijderd in alle werkbladen van de huidige werkmap?
Deze opmerking is gemaakt door de moderator op de site
Nee, ik bedoelde GEEN verwijdering toe te staan ​​(zonder de wks of wkb te beschermen).

Het is fijn dat bovenstaande werkt op Wks niveau.

Als er iets is om het op wkb-niveau te laten werken, zou het nog beter zijn (ik heb veel bladen)

G
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldig. Ik vroeg me af of dit een optie was en ja hoor, dat was het ook. Bedankt voor de zeer gemakkelijke instructies.

André S.
Rated 5 uit 5
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL