Wieso wird Makro nicht zu ende ...
30.06.2006 11:40:29
Walter
habe folgendes Makro:
Sub Passwort_einsetzen()
Dim Password As String
Password = "aa"
If ActiveWorkbook.VBProject.Protection Then
MsgBox "Passwort vorhanden"
Exit Sub
Else
MsgBox "Jetzt wird das Passwort gesetzt," _
& Chr(13) & Chr(13) & "wird die Datei automatisch Geschlossen..." _
& Chr(13) & Chr(13) & " " _
, 64, "Wichtiges Sicherheitsupdate!"
Application.DisplayAlerts = False
SendKeys "%{F11}"
SendKeys "%xi{TAB 9}{RIGHT}{TAB} {TAB}"
SendKeys Password
SendKeys "{TAB}"
SendKeys Password
SendKeys "{TAB}{ENTER}"
SendKeys "%Dh"
Application.DisplayAlerts = True
End If
'ActiveWorkbook.Close True <<<< wenn ich dies?
End Sub
Wenn ich nun automatisch schließen möchte, wird das Passwort setzen nicht ausgeführt.
Wenn ich ActiveWorkbook.Close True rausnehme, wird Passwort gesetzt, muß dann die Datei selbst schließen, beim starten wird dann angezeigt das Passwort vorhanden ist.
Also dann alles i.o.
Wie kann ich das hinkriegen das das Passwort gesetzt wurd und dann automatisch geschlossen wird ?
gruß Walter
übrings Deutschland-Argent. 1:0 !