Ich verzweifel, Bitte helfen, brauch dies dringend
01.07.2006 12:55:06
Walter
hatte gestern Morgen das Problem, kam leider nicht weiter, vielleicht ist jetzt
noch jemand Online der mir helfen Kann.
Bitte, brauch dies dringend !!!!!!!
Eine Datei wird geöffnet und das Passwort gesetzt, funktioniert auch.
Jetzt das Problem:
Die Datei muß ja geschlossen werden, damit das Passwort auch gesetzt wird, wenn ich die Datei normal schließe funktioniert auch.
Wenn ich die Datei öffne, wird auch die Info gege´ben: Passort vorhanden.
Frage:
Wie kann ich automatisch das schließen veranlassen und beim öffnen, wenn das Passwort da ist nicht automatisch geschlossen wird ?
Habe am Schluß des Passwort setzens alles versucht, es wird dann das Passwort nicht gesetzt Warum auch immer, ich weiß es nicht.
Hier mein Makro aus "DiesArbeitsmappe":
Private Sub Workbook_Open()
MsgBox "Bin da bei Workbook-Open! noch etwas..."
Call VBA_PW
End Sub
Hier das VBA_PW Makro:
Sub VBA_PW()
Dim Password As String
Password = "wbwb"
If ActiveWorkbook.VBProject.Protection Then
MsgBox "Hier ist Modul VBA_PW Passwort vorhanden"
Exit Sub
Else
MsgBox "Hier VBA Makro am Ende, " _
& Chr(13) & Chr(13) & "wird die Datei automatisch Geschlossen..." _
& Chr(13) & Chr(13) & " " _
, 64, "Wichtiges Sicherheitsupdate!"
Application.ScreenUpdating = False
SendKeys "%{F11}"
SendKeys "%xi{TAB 9}{RIGHT}{TAB} {TAB}"
SendKeys Password
SendKeys "{TAB}"
SendKeys Password
SendKeys "{TAB}{ENTER}"
SendKeys "%Dh"
Application.ScreenUpdating = True
End If
End Sub
Bitte helfen...
Danke im voraus,
gruß Walter