Schutz aufheben aber Bildschirm ausblenden

Sub Passwort_Eingeben()
Dim akw As String
akw = ActiveWorkbook.name
Dim Password As String
Password = "wwpawb"
Dim vbext_pp_none
Dim wb As Workbook, ok As Boolean, s As String
Set wb = Application.Workbooks(akw)
Application.VBE.MainWindow.Visible = False
Application.ScreenUpdating = False
SendKeys "%{F11}^r{Tab}", True
Do While Application.VBE.ActiveVBProject.Filename  wb.FullName
''Cursor im Projekt-Explorer-Fenster auf das nächste Projekt setzen _
bis er auf dem aktuelle Projekt der zu entschützenden Arbeitsmappe steht
SendKeys "{Tab}", True
Loop
If Application.VBE.ActiveVBProject.Filename = wb.FullName Then
s = "%xi" & Password & "{ENTER}{ENTER}& %{F11}"
SendKeys s, True
End If
Application.VBE.MainWindow.Visible = True
Application.ScreenUpdating = True
End Sub

Es funktioniert einwandfrei aber wie kann ich es unterdrücken, das man
VBA Eigenschaften sieht also das flackern.
Es soll immer die aktive Tabelle sichtbar bleiben.
mfg walter mb