Is het mogelijk dat excel om een paswoord vraagt

[Tijger81]

Ik ben een excel document aan het maken die alleen door mij gesloten kan worden. Nu wil ik dat wanneer je op de rode afsluitknop drukt er om een paswoord wordt gevraagd.
Ik heb nu dit: Dat voorkomt dat ze het makkelijk kunnen afsluiten. Maar dan kan ik hem ook alleen zelf via taakbeheer afsluiten.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If closemode <> 1 Then Cancel = 1
End Sub

Is het mogelijk dat excel om een paswoord vraagt wanneer je op de afsluitknop drukt?

 

[pasan]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim WachtWoord

WachtWoord = InputBox("Voer het wachtwoord in." & Chr(13) & "Let op dit is hoofdletter gevoelig!" & Chr(13) & Chr(13) & Chr(13), "Voer wachtwoord in.")
 If StrPtr(WachtWoord) = False Then GoTo sluiten
  If WachtWoord = "sluiten" Then
   GoTo einde
    Else
   MsgBox "fout wachtwoord probeer het opnieuw"
  End If
sluiten:
If closemode <> 1 Then Cancel = 1

einde:
End Sub

 

[Tijger81]

Werkt! Heel erg bedankt Pasan!