XLS Datei öffnen und dabei die geschütze Ansicht entfernen per VBA

If Application.ProtectedViewWindows.Count > 0 Then 
     Application.ActiveProtectedViewWindow.Edit 
 End If

Sub Mail_auslesen()

Dim Out As Outlook.MAPIFolder
Dim i As Integer, intz As Integer, txtContent As String
Dim objDoc2 As Object

Application.StatusBar = "Daten werden ausgelesen. Bitte warten."  
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Out = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)  

i = Out.Items.Count
intz = 0

For intz = 1 To i
    With Out.Items(intz)
        If .SenderName = "max.musterman@muster.de" And .Subject = "GHB_" & Format(Now - 1, "DD.MM.YYYY") & ".xls" Then  
            Set outmail = Out.Items(intz)
            outmail.Attachments.Item(1).SaveAsFile "\\Server\groups2\BBB\Service & Sales\Support\ABC\02_Check\GHB_Date\" & Format(Now - 1, "YYYY") & "\" & Format(Now - 1, "MM_MMMM_YYYY") & "\" & outmail.Attachments.Item(1)  
          
        End If
    End With
Next

Set Out = Nothing

Workbooks.Open Filename:="\\Server\groups2\BBB\Service & Sales\Support\ABC\02_Check\GHB_Date\" & Format(Now - 1, "YYYY") & "\" & Format(Now - 1, "MM_MMMM_YYYY") & "\GHB_" & Format(Now - 1, "DD.MM.YYYY") & ".xls"  
ActiveWorkbook.SaveAs Filename:="H:\privat\GHB\GHB_" & Format(Now - 1, "DD.MM.YYYY") & ".xls", Password:="abc"  

Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True


End Sub