Eerdere oplossing werkt niet als blad beveiligd wordt.

[erpee]

Een tijd geleden heeft @snb mij goed geholpen met een oplossing met het onderstaande bestand.

Na activering van de form kon ik netjes een gebruiker verwijderen.

Echter. Als ik het blad beveilig merk ik dat er een foutmelding komt op het moment dat ik de form sluit.


Hoe kan ik dit oplossen waarbij het blad wél beveiligd blijft

 

[HSV]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    With Sheets("UserData")
     .Unprotect
          With .ListObjects(1)
           .DataBodyRange.ClearContents
           .Resize .Range.Resize(L_00.ListCount + 1)
           .DataBodyRange = L_00.List
          End With
      .Protect
    End With
End Sub

 

[erpee]

Deze oplossing begrijp ik. Echter. De wachtwoorden voor het beveiligen wisselen en wil de wachtwoorden (vanwege veiligheid) ook niet hard-coderen in de VBA code.

 

[HSV]

Zet het wachtwoord in de laatste cel rechtsonder van een blad of beveilig je VBAProject.

 

[mvdvlist]

Of stel de beveiliging in als bv: Format(Now, "ddmm")
en kies dus het wachtwoord als bv 0405 (4 mei)
En zo heb je uiteraard veel mogelijkheden