Makro Schutz, leider Schwierig
05.11.2008 11:50:55
Walter
habe ein schwieriges Problem:
Ich möchte, nachdem ich eine neue Datei erstellt habe, den
Makro Schutz einfügen, habe das mal in meiner Sammlung gefunden,
leider funktioniert es nicht.
Sub VBA_Schutz_SETZEN()
Dim Password As String
Password = "wb"
If ActiveWorkbook.VBProject.Protection Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
SendKeys "%{F11}"
SendKeys "%xi{TAB 9}{RIGHT}{TAB} {TAB}" 'damit Passwort
SendKeys Password
SendKeys "{TAB}"
SendKeys Password
SendKeys "{TAB}{Enter}"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If
End Sub
mfg walter mb
Anzeige