Makro funktioniert nicht von UF aus
21.08.2006 13:51:09
UF
ich habe folgendes Makro über das Forum erhalten, funktioniert auch von der
Sheet aus, wenn ich allerdings von einem Command-Button von der UserForm aus das Makro starte, passiert nicht.
Wie kann ich das hinkriegen ?
Makro:
Dim Password As String
Password = "zaz"
If ActiveWorkbook.VBProject.Protection Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
SendKeys "%{F11}"
SendKeys "%xi" 'damit Passwort
SendKeys Password
SendKeys "{TAB}{Enter}"
SendKeys "{TAB}{Enter}" ' bis hier wird nur das Passwort gesetzt
' jetzt kann kopiert werden
SendKeys "%{F11}" ' wieder zurück
Else
MsgBox "Sie können jetzt arbeiten..."
End If
End Sub
mfg Walter