Ins Modul was schreiben...
11.03.2006 10:38:23
Walter
ich habe vom Harald folgendes Makro erhalten, funbktioniert Super.
Meine Frage ?
Kann man auch das Passwort in ein Modul1 Zeile40 Spalte1, Schreiben lassen ?
Grund, wenn man das Passwort vergessen hat, finde ich es hier auch wenn man die
Makros deaktiviert hat.
Die Makros habe ich allerdings auch mit Passwort gesichert "wxxw".
Hier das Makro:
Sub VF_A_pwaendern()
Application.ScreenUpdating = False
Dim pwalt As String, pwneu As String
Dim i As Integer
pwalt = Tabelle511.Range("e3")
For i = 1 To Sheets.Count
Sheets(i).Unprotect pwalt
Next i
pwneu = InputBox("Bitte neues Passwort eingeben")
ActiveSheet.Unprotect (getStrPasswort)
Tabelle511.Range("e3") = pwneu
For i = 1 To Sheets.Count
Sheets(i).Protect pwneu
Next i
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
Gruß Walter