Wieso funktioniert Makro nicht ?
28.10.2006 12:07:32
Walter
ich habe eine UserForm, auf dieser UF befindet sich ein Makro was den
den VB Schutz aufheben soll. (habe mit Unterstützung vom Forum)
Diese Makro funktioniert einwandfrei im Sheet, ausgelöst ebenfalls durch ein CommandButton.
Warum also nicht wenn ich die UF geöffnet habe ?
Habe versicht die UF auszublenden und wieder zu öffnen, keine Reaktion.
Der Grund:
Ich muß ein Modul kopieren, um später in einer anderen Datei zu arbeiten.
Makro:
Private Sub CommandButton55_Click()
Dim Password As String
Password = "pa"
' Application.ScreenUpdating = False
' Userform4 Unload Me
If ActiveWorkbook.VBProject.Protection Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
SendKeys "%{F11}"
SendKeys "%xi"
SendKeys Password
SendKeys "{TAB}{Enter}"
SendKeys "{TAB}{Enter}"
SendKeys "%{F11}"
'UserForm4.Show
Else
MsgBox "Sie können jetzt arbeiten..."
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Hoffentlich findet sich jemand ...
gruß Walter