gestern war Nepumuk so nett, mir einen Code zur Verfügung zu stellen, mit dem man ein Passwort im VBA-Code von einer Textbox aus ändern kann. Das funktionert allerdings nur wenn das VBA-Project entsperrt ist. Wie kann ich diese Funktion (Project entsperren/sperren) ins Makro einbauen?
Gruß
Matthias
Hier nochmal der etwas von mir geänderte Code:
Option Explicit
Public Const Kennwort As String = "test"
Sub ändernmodul()
Dim neues_Kennwort As Variant
neues_Kennwort = Application.InputBox("" & Chr$(13) & _
" Bitte das neue Zugangskennwort eingeben!" & Chr$(13) & _
" Achtung, das Passwort erscheint im Klartext!", "Passwortänderung", Type:=2)
If neues_Kennwort <> False And neues_Kennwort <> "" Then
With Application.VBE.ActiveVBProject.VBComponents("Modul1").CodeModule
.DeleteLines 2, 1
.InsertLines 2, "Public Const Kennwort As String = " & Chr(34) & neues_Kennwort & Chr(34)
Beep
MsgBox "Das Kennwort wurde geändert.", _
vbOKOnly, " Kennwortänderung "
End With
Else
Beep
MsgBox "Das Kennwort wurde nicht geändert.", _
vbOKOnly, " Kennwortänderung "
End If
End Sub