Remover exibição protegida da planilha do Excel aberta programaticamente no Access
Eu tenho uma planilha que abro programaticamente usando o VBA no Access:
Set xl = CreateObject("Excel.Application")
With xl
Call RunASCFormatting(xl, wb, strPath)
'More code
Sub RunASCFormatting(xl As Excel.Application, wb As Excel.Workbook, strPath As String)
With xl
If .ProtectedViewWindows.count > 0 Then
.ActiveProtectedViewWindow.Edit
End If
Set wb = .Workbooks.Open(Trim(strPath) & "ASC.xls", True, False)
wb.Sheets(1).Rows("1:1").Delete Shift:=xlUp
.ActiveWorkbook.SaveAs FileName:=Trim(strPath) & "ASC.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End With
End Sub
Eu adicionei a instrução "If" no submarino, pois esperava remover a mensagem "Modo de exibição protegido - Editar este tipo de arquivo não é recomendado devido às suas configurações de Bloqueio de arquivo na Central de Confiabilidade". O que estou tentando alcançar é remover o botão "Ativar edição", para que essa macro possa ativar a edição e executar conforme o planejado.
Atualmente, o código cai na linha "Set wb". Qual é a maneira correta de alcançar o que estou procurando?