VBAProjectKennwort mittels sendkeys aufheben
27.09.2007 16:18:00
Jochen
Hallo zusammen,
habe einen Code geschrieben, mit dem ich das VBAProject Kennwort einer Arbeitsmappe ändern möchte:
Private Sub CommandButton3_Click()
Const C_PASSWORT As String = "test"
Application.VBE.MainWindow.Visible = True
If (Val(Application.Version) = 8) Then ' Office 97
SendKeys ("s")
Else ' ab Office 2000
SendKeys ("i")
End If
SendKeys ("%{F11}")
SendKeys (C_PASSWORT)
SendKeys ("{Enter}")
End Sub
Mit diesem Code öffnet VBA jedoch meine persöniche Arbeitsmappe "VBAProject (Personl.xls)" und schreibt ins Codefenster ein "i".
Wie kann ich die richtige Datei ("Test_PW_aufheben.xls") ansteuern?
Vielen Dank und schöne Grüße,
Jochen
Anzeige