hier habe ich das Makro, natürlich über das Forum erhalten, für das VBA-Passwort zu setzen. Funktioniert super, nun muß ich noch ein Makro vorher haben, um den Schutz aufzuheben (qa), damit ich meine UF kopieren kann,
wie kann man das ändern?
Sub VBA_PW()
Dim Password As String
Password = "qa"
If ActiveWorkbook.VBProject.Protection Then
MsgBox "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"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If
End Sub
gruß walter