Schipperjte
Gebruiker
- Lid geworden
- 24 jan 2006
- Berichten
- 212
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
deze code's heb ik gevonden
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
Code:
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
Code:
Sub bij()
ThisWorkbook.VBProject.VBComponents("module19").CodeModule.InsertLines 3, "Test"
End Sub
Code:
Sub DeleteVBA()
Dim VbaCode As Object
Set VbaCode = Application.VBE.ActiveVBProject.VBComponents
VbaCode.Remove VBComponent:=VbaCode.Item(MODULENAAM)
End