VB Makro Kennwort, habe was gefunden aber...
07.11.2008 22:02:17
walter
Hallo K.Rola,
ich habe mal in der Recherche dies gefunden:
Public Sub VBA_Schutz()
Dim Password As String
Password = "ww"
'VBA Editor aufrufen und Passwort eingeben
'Für XLS97
SendKeys ("%{F11}"), True
If Application.VBE.ActiveVBProject.Protection Then
' SendKeys ("%xs" & Password & "{ENTER}{ENTER}"), True
SendKeys ("%xi" & Password & "{ENTER}{ENTER}"), True
SendKeys "%{F11}"
End If
End Sub
wenn ich dies mit einer Schaltfläche auslöse muß ich 2 oder 3 mal drücken, mit
einer Commandschaltfläche geht es garnicht obwohl ich Call ... stehe habe.
Das Makro habe ich in einem Modul.
gruß walter