macro’s in Excel werkend ondanks beveiliging

beveiliging VBA

Als je macro’s gebruikt is het belangrijk om een wachtwoord te zetten op de VBA van je bestand, anders kunnen gebruikers hier het wachtwoord van de beveiliging van je bestand lezen.

  • Alt-F11 om VBA te openen
  • in het menu: Extra
  • Eigenschappen van VBAproject
  • Beveiliging
  • project vergrendelen voor weergave aanvinken
  • 2x het wachtwoord voor VBA invoeren

macro’s werkend ondanks beveiliging werkblad

Als je wilt dat macro’s werken terwijl het werkblad beveiligd is, dan moet je onderstaande tekst invoegen in ThisWorkbook.
Op de plaats van de … moet je het wachtwoord zetten.

  • Alt-F11 om VBA te openen
  • klik op de naam van je bestand
  • klik op ThisWorkbook
  • plak onderstaande tekst in het venster Programmacode
Private Sub Workbook_Open()
Dim wSheet As Worksheet

For Each wSheet In Worksheets
    wSheet.Protect Password:="...", UserInterFaceOnly:=True
Next wSheet

End Sub

bestand met verschillende wachtwoorden per werkblad

Heb je een bestand met verschillende wachtwoorden per werkblad, dan moet je per werkblad een regel toevoegen, zoals hieronder.

Private Sub Workbook_Open()
    Sheets("naam van het werkblad").Protect Password:="...", UserInterFaceOnly:=True
    Sheets("naam van het werkblad").Protect Password:="...", UserInterFaceOnly:=True
    ...
    ...
End Sub

Groeperen en Degroeperen werkend ondanks beveiliging

Als je wilt dat Groeperen en Degroeperen werkt terwijl het werkblad beveiligd is, dan moet je de regel || wSheet.EnableOutlining = True || toevoegen (zoals hieronder).

Private Sub Workbook_Open()
Dim wSheet As Worksheet

For Each wSheet In Worksheets
    wSheet.Protect Password:="...", UserInterFaceOnly:=True
    wSheet.EnableOutlining = True
Next wSheet

End Sub
kijk ook op ...
LinkedIn pinterest instagram

categorieën