VBA-Projekt per Makro öffnen
05.01.2007 12:12:14
mumpel
Mit dem folgenden Makro (wird über Symbolleiste ausgelöst) möchte ich das VBA-Projekt öffnen, ohne immer das Paßwort eingeben zu müssen. Leider scheint Excel 2003 ein Problem damit zu haben. Das Makro bleibt immer bei dem Dialog "Eigenschaften von VBAProjekt..." hängen, der Dialog wird nicht automatisch bestätigt. Unter Excel 2000 hat das noch funktioniert. Wo liegt der Fehler, oder muss ich auf dieses Makro verzichten? Danke!
Sub VBAProjektÖffnen()
If GetSetting("MeinPfad", "MeinSchlüssel", "MeinZeichen") <> Passw Then GoTo Fehler
If Excelversion >= 10 Then
On Error GoTo xpfehler
End If
ThisWorkbook.Sheets("Tabelle1").Unprotect Passw
ThisWorkbook.Sheets("Tabelle1").Range("Name").value = Passw
Application.Goto Reference:="Name"
SendKeys ("%{F11}"), True
If Application.VBE.ActiveVBProject.Protection Then
Select Case Excelversion
Case "8"
SendKeys ("%xs" & Passw & "{ENTER}{ENTER}"), True
Case Else
SendKeys ("%xi" & Passw & "{ENTER}{ENTER}"), True
End Select
ThisWorkbook.Sheets("Tabelle1").Range("Name").value = ""
ThisWorkbook.Sheets("Tabelle1").Protect Passw
End If
Exit Sub
xpfehler:
Exit Sub
Fehler:
MsgBox "Sie haben nicht die notwendige Berechtigung " & vbCrLf & _
"zum Öffnen des VBA-Projektes!" & vbCrLf & vbCrLf & _
"Vorgang abgebrochen.", vbExclamation + vbOKOnly, " *** Hinweis des Autors *** "
End Sub
Gruß, Rene