Met macro VBA veranderen dat is beveiligd

[Schipperjte]

Goedemorgen,

Heb weer een uitdaging,

Heb een code gevonden maar weet het niet aan elkaar tebreien.

Zou graag via een userform een datum willen veranderen in een vba sub dat beveiligd is.

Het userform(Userform1) zou in die code de datum moeten veranderen na invoeren van het wachtwoord.
Na op bevestigen te drukken deze invoeren en dan gelijk dit userform niet meer weergeven .
Daarna met het hoofd userform(Userform2) verdergaan en na afsluiten deze (Userform1) niet meer weergeven.
Dus verwijderen als het kan of niet meer weergeven

Het wachtwoord is 123.


Deze code zou aangepast moeten worden

Private Sub UserForm_Initialize()
With Me
.Height = Application.Height
.Width = Application.Width
.Left = Application.Left
.Top = Application.Top
End With
 Dim exdate As Date
[B]exdate = "19/09/10"[/B]
If Date > exdate Then
 MsgBox ("Programma is verlopen. ")
 ActiveWorkbook.Close
 End If
 MsgBox ("Programma verloopt over " & exdate - Date & " dagen,neem contact op met .....")
  

End Sub

deze code's heb ik gevonden

Sub bij()
ThisWorkbook.VBProject.VBComponents("module19").CodeModule.InsertLines 3, "Test"
End Sub

Sub DeleteVBA()
  Dim VbaCode As Object
  
  Set VbaCode = Application.VBE.ActiveVBProject.VBComponents
  VbaCode.Remove VBComponent:=VbaCode.Item(MODULENAAM)
End