Fußball in 20 Min., vielleicht hat nachher noch jemand "Bock" mal zu schauen.
Mein Makro funktioniert einwandfrei, das Passwort in VB wird gesetzt, wenn
ich die Datei jetzt schließe und wieder öffne ist alles so wie ich das haben möchte.
Das Problem: ich möcht nach dem setzen des Passworts aber die Mappe direkt schließen, das geht leider nicht, wenn ich diesen Close Satz aktiviere und ich drücke das Button wird mir das Layout angezeigt. Wie kann man das hinkriegen das man die Mappe direkt schließen kann ?
Hier das Makro:
Private Sub CommandButton5_Click()
Dim Password As String
Password = "fa"
If ActiveWorkbook.VBProject.Protection Then
MsgBox "Command-Button5 Passwort ist vorhanden..."
Exit Sub
Else
Application.DisplayAlerts = False
Application.ScreenUpdating = False
SendKeys "%{F11}"
SendKeys "%xi{TAB 9}{RIGHT}{TAB} {TAB}"
SendKeys Password
SendKeys "{TAB}"
SendKeys Password
SendKeys "{TAB}{ENTER}"
SendKeys "%Dh"
' SendKeys ""
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If
'ActiveWorkbook.Close <<<<<
End Sub
gruß Walter