vermijden "opslaan" behalve met wachtwoord

[Meurik]

Goeienamiddag
Ik zou willen vermijden dat een bestand kan "gesaved" worden behalve wanneer een correct wachtwoord wordt ingevoerd, m.a.w. alvorens de opdracht "save" wordt uitgevoerd zou gevraagd moeten worden naar een correct wachtwoord, anders geen mogelijkheid tot opslaan. Deze beperking hoeft niet noodzakelijk voor de opdracht "opslaan als".
Ik vermoed dat dit mogelijk is door een bepaalde VBA-code in te voeren in "ThisWorksheet".

Om printen van een werkblad te voorkomen heb ik als iets kunnen terugvinden in dit forum

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Blad1" Then Cancel = True
End Sub

 

[Wigi]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim paswoord As String, antwoord As String
    paswoord = "pw"
    antwoord = Application.InputBox("Geef paswoord in aub.", "Paswoord", Type:=1)
    Cancel = Not (antwoord = paswoord)
End Sub

Wigi

 

[Meurik]

Beste Wigi
Vermits het de bedoeling was om "opslaan" te voorkomen (behalve met wachtwoord) heb ik uw code als volgt aangepast:

Private Sub Workbook_BeforeSave(Cancel As Boolean)
    Dim paswoord As String, antwoord As String
    paswoord = "eric"
    antwoord = Application.InputBox("Geef paswoord in aub.", "Paswoord", Type:=1)
    Cancel = Not (antwoord = paswoord)
End Sub

Deze aanpassing leidt evenwel tot een foutboodschap:
"Compile error, Procedure declaration does not match description of event or procedure having the same name"
Wat zie ik over het hoofd of wat doe ik fout ?

 

[Wigi]

Private Sub Workbook_BeforeSave([B]ByVal SaveAsUI As Boolean, [/B]Cancel As Boolean)

 

[Meurik]

Werkt !
Bedankt en prettig weekend !