Excel VBA Onbeschermd blad

We hebben een optie in Excel waarmee we onze Excel-bladen en bestanden kunnen beschermen tegen verwijderen, hernoemen en de gegevens opslaan van andere wijzigingen die niet nodig zijn. De optie heet Blad beveiligen en Werkmap beveiligen. Deze vindt u in het gedeelte Veranderingen onder het menulint Overzicht . We kunnen een wachtwoord instellen waarmee we het geselecteerde blad kunnen opslaan van eventuele wijzigingen. Maar wat ik zeg, dit kan ook worden geautomatiseerd met behulp van VBA-code. Ja, we kunnen een code of macro maken waarmee we het blad en de werkmap automatisch kunnen vergrendelen. Maar dit artikel gaat helemaal over de beveiliging van het blad opheffen.

Het beschermen van de plaat is ook een vrij eenvoudig proces om de plaat te beschermen. Om de beveiliging van het blad op te heffen, moeten we het wachtwoord invoeren dat we hebben gebruikt bij het vergrendelen van dat blad. Om de beveiliging van het blad op te heffen, hoeven we alleen de naam van het werkblad te selecteren en de functie genaamd Beveiliging opheffen . Als dat beschikbaar is in VBA, is het slechts een eenregelige code. Maar als dit niet het geval is, moeten we een andere manier zoeken om het te doen, die we in de onderstaande voorbeelden zullen zien.

Hoe de beveiliging van blad in Excel VBA ongedaan maken?

We zullen leren hoe u de beveiliging van blad in Excel ongedaan kunt maken met behulp van de VBA-code.

U kunt deze VBA Unprotect Sheet Excel-sjabloon hier downloaden - VBA Unprotect Sheet Excel-sjabloon

VBA Unprotect Sheet - Voorbeeld # 1

Eerst zouden we een eenvoudig voorbeeld zien om de beveiliging van het blad op te heffen. Volg hiervoor de onderstaande stappen:

Stap 1: Open eerst een module via het menutabblad Invoegen zoals hieronder wordt weergegeven.

Stap 2: Schrijf nu de subprocedure van het VBA Unprotect-blad. Of we kunnen een andere naam kiezen om deze te definiëren.

Code:

 Sub VBA_Unprotect () End Sub

Stap 3: Definieer een variabele met de naam Werkblad met een willekeurige naam. Bij voorkeur de naam die lijkt op een werkblad zoals ExSheet

Code:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet End Sub

Stap 4: Stel nu de gedefinieerde werkbladvariabele in met de naam van het blad waarvan we de beveiliging willen opheffen. Hier is de naam van dat blad Sheet1 .

Code:

 Sub VBA_Unprotect () Dim ExSheet As Worksheet Set ExSheet = Worksheets ("Sheet1") End Sub

Stap 5: wijs nu de functie Unprotect toe die zich in de VBA-vervolgkeuzelijst bevindt aan de werkbladvariabele ExSheet .

Code:

 Sub VBA_Unprotect () Dim ExSheet als werkbladset ExSheet = Werkbladen ("Sheet1") ExSheet.Unprotect End Sub

Stap 6: Geef nu het wachtwoord dat we hebben gegeven om dat blad te vergrendelen. Hier is dat wachtwoord "Open1212". En dit kan van alles zijn, wat de keuze van de gebruiker is.

Code:

 Sub VBA_Unprotect () Dim ExSheet als werkbladset ExSheet = Worksheets ("Sheet1") ExSheet.Unprotect Password: = "Open1212" End Sub

Stap 7: Nu zullen we Sheet1 eerst beschermen door op de menutab Review te klikken en de optie Sheet Sheet te selecteren.

Stap 8: Voer het wachtwoord in dat we willen en klik op Ok om het blad te beschermen.

Stap 9: Voer het wachtwoord opnieuw in om te bevestigen.

Stap 10: Als we klaar zijn, zullen we zien dat we niets in dat blad kunnen veranderen, zelfs als we dat proberen. Om de beveiliging van het blad op te heffen, zullen we onze geschreven code compileren en uitvoeren.

We zullen zien dat, zodra onze code is uitgevoerd, we nu wijzigingen kunnen aanbrengen in Sheet1 .

Stap 11: Wat als we de regel code verwijderen of wijzigen waarin we het wachtwoord hebben ingevoerd en de functie Unprotect gebruiken zoals hieronder wordt weergegeven. Laten we kijken wat er zal gebeuren als we dat doen.

Code:

 Sub VBA_Unprotect () Dim ExSheet als werkbladset ExSheet = Werkbladen ("Sheet1") ExSheet.Unprotect End Sub

Stap 12: Voer nu opnieuw de volledige code uit. We zullen zien dat er een berichtvenster verschijnt waarin u wordt gevraagd om het wachtwoord in te voeren. Voer hier het wachtwoord in dat we hebben geselecteerd terwijl u het blad beschermt en klik op OK.

Met dit proces kunnen we ook de beveiliging van de gewenste plaat opheffen.

VBA Unprotect Sheet - Voorbeeld # 2

Er is een andere manier om werkbladen niet te beveiligen. Dit is de gemakkelijkste en eenvoudigste manier om dit te doen. Volg hiervoor de onderstaande stappen:

Stap 1: Schrijf de subprocedure voor VBA Unprotect zoals hieronder weergegeven.

Code:

 Sub VBA_Unprotect2 () End Sub

Stap 2: Gebruik de functie Werkbladen en selecteer het blad waarvan we de beveiliging willen opheffen. Ook hier is dat blad Sheet1 .

Code:

 Sub VBA_Unprotect2 () Werkbladen ("Sheet1") End Sub

Stap 3: Op dezelfde manier als getoond in voorbeeld-1, zullen we de opdracht Unprotect gebruiken samen met het wachtwoord dat we hebben gebruikt bij het vergrendelen van het blad. Hier is ons wachtwoord voor het opheffen van de beveiliging ook hetzelfde als " Open1212 ".

Code:

 Sub VBA_Unprotect2 () Werkbladen ("Sheet1"). Wachtwoord niet opheffen: = "Open1212" End Sub

Nu is onze code voltooid. Om dit te testen, beschermt u het blad eerst op dezelfde manier als in voorbeeld-1 en voert u deze code uit om de beveiliging op te heffen.

VBA Unprotect Sheet - Voorbeeld # 3

Wat als ik zeg, we kunnen weer een code schrijven waarbij we niet de naam van het blad hoeven te selecteren waarvan we de beveiliging willen opheffen. Ja, dit kan met behulp van een lus. Volg hiervoor de onderstaande stappen:

Stap 1: Open hiervoor opnieuw een module en schrijf de subprocedure van VBA Unprotect-blad zoals hieronder getoond.

Code:

 Sub VBA_Unprotect3 () End Sub

Stap 2: Gebruik DIM om een ​​variabele voor werkblad als exsheet te definiëren. Het is dezelfde regel die we in de bovenstaande voorbeelden hebben gebruikt.

Code:

 Sub VBA_Unprotect3 () Dim ExSheet As Worksheet End Sub

Stap 3: Open een For-Next-lus waar we de onbeschermde bladvoorwaarden zullen schrijven.

Code:

 Sub VBA_Unprotect3 () Dim ExSheet als werkblad voor volgende ExSheet End Sub

Stap 4: Schrijf de voorwaarde voor elke geopende actieve werkmap selecteert het huidige actieve werkblad, zoals hieronder getoond.

Code:

 Sub VBA_Unprotect3 () Dim ExSheet als werkblad voor elk ExSheet in ActiveWorkbook.Worksheets Volgende ExSheet End Sub

Stap 5: Nu op dezelfde manier als in de bovenstaande voorbeelden, zullen we gedefinieerde variabelen gebruiken samen met de functie Beveiliging opheffen om de beveiliging van het blad op te heffen. Ook hier kunnen we het wachtwoord wel of niet gebruiken. Dit is een optionele manier.

Code:

 Sub VBA_Unprotect3 () Dim ExSheet als werkblad voor elk ExSheet in ActiveWorkbook.Worksheets ExSheet.Unprotect Wachtwoord: = "Open1212" Volgende ExSheet End Sub

Compileer de code en voer uit als er geen fout is gevonden.

Dit is hoe we elk geopend huidig ​​werkblad kunnen beschermen zonder zelfs de naam en volgorde ervan te selecteren. Deze code houdt automatisch rekening met het blad dat momenteel is geselecteerd en geopend.

Voordelen van Excel VBA Unprotect Sheet

  • Bovenstaande processen en voorbeelden zijn het gemakkelijkst toe te passen.
  • We kunnen het blad op beide manieren ontgrendelen door het wachtwoord zelf in de code op te geven of zonder het wachtwoord te geven.
  • Dit werkt op dezelfde manier als waarop we het blad handmatig verwijderen.

Dingen om te onthouden

  • Omdat het proces vrij eenvoudig te implementeren is, is er misschien geen verbetering door automatisering.
  • We kunnen het wachtwoord elke keer wijzigen wanneer we het proces van het beveiligen en de beveiliging van het blad opnieuw uitvoeren.
  • We kunnen de naam van het blad of de reeks van het blad selecteren waarvan we de beveiliging willen opheffen.
  • En als u klaar bent, slaat u de code op in Macro, schakelt u Excel-werkblad in om te voorkomen dat de VBA-code verloren gaat.

Aanbevolen artikelen

Dit is een handleiding voor VBA Unprotect Sheet. Hier bespreken we hoe u het blad in Excel kunt opheffen met behulp van VBA-code, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. VBA Public Variable (voorbeelden)
  2. VBA-formaatnummer met functie
  3. VBA-variant met gegevenstypen
  4. VBA Randomiseren | Excel-sjablonen
  5. VBA Environ

Categorie:

VBA