Opgelost Blad beveiliging opheffen via een pop up

[Joey2024]

Goede dag,

Bezig met een excelfile te maken en moet sommige bladen beveiligen tegen "verkeerde handelingen".
er worden soms dingen gewist die niet gewist mogen worden.
Al eens de google gebruikt om een oplossing te vinden, maar geraak er niet

Bedoeling zou zijn dat ik blad 3 beveilig (blad 3 is actief) met wachtwoord en deze via een pop up kan beveiligen.
Desnoods ook terug (na bewerken) kan beveiligen met hetzelfde wachtwoord.

Kan er mij iemand helpen?

 

[edmoor]

Je kan toch gewoon via het lint > Beveiligen en dan Beveiliging opheffen?
Als je toch een popup wilt dan moet dat in VBA.
En op welk moment zou dan die popup moeten verschijnen?

 

[Joey2024]

Dag Edmoor

Ik weet dat je dit via het lint kan beveiligen en vrijgeven.
Maar zou het willen proberen met een VBA code die om een wachtwoord vraagt om deze vrij te geven.
Ook om deze dan terug te beveiligen (een andere code dan wss)

 

[HSV]

Maak een Commandbutten uit de ActiveX-besturingselementen aan en dubbelklik erop en plaats de code.
Drie kansen om in te voeren daarna de knop opnieuw gebruiken.

Private Sub CommandButton1_Click()
Const ww As String = "ABC"
Dim reactie As String, msg As String, beveiligen As String, teller As Integer
 msg = "Voer wachtwoord in:"
 beveiligen = "Beveiliging " & IIf(ProtectContents, "er af halen", "er op zetten")
      While teller < 3 And reactie <> ww
        reactie = Application.InputBox(msg, beveiligen, , , , , , 2)
        Select Case reactie
            Case CStr(False)
            Exit Sub
            Case Else
                msg = "Fout wachtwoord" & vbNewLine & "Voer opnieuw wachtwoord in:"
        End Select
    teller = teller + 1
 Wend
If teller <> 3 Then If ProtectContents Then Unprotect Else Protect
End Sub

 

[Joey2024]

@HSV de code werkt perfect, waarvoor dank.
Ik zet deze vraag op opgelost.
@edmoor ook bedankt voor je tijd

 

[Joey2024]

OK, probleempje. Ik vind nergens op mijn scherm de optie vraag is opgelost

 

[HSV]

Misschien in je openingsvraag?; de site is jongstleden vernieuwd.

Overigens graag gedaan.