Excel Código em VBA para desabilitar o modo protegido do Word

[Jvitorino1007]

Boa tarde, não se é possível realizar esse código. Tenho uma código que gera um documento no Word que pega as informações das Textbox preenchida e com um arquivo modelo ele preenche os dados. Só que tenho que desabilitar manualmente o modo de exibição protegido, teria algum código que faça isso de modo automático? Porque esse arquivo será disponibilizado para vários usuários.

Private Sub CommandButton5_Click()
Dim word
Dim doc
Dim StrFile As String, strFolder As String
Set word = CreateObject("Word.Application")
word.Visible = True

Set doc = word.Documents.Add(ThisWorkbook.Path & "\Carta_Padrão.doc")
With doc
'*Dados fornecedor
.FormFields("dia").Range = dia.Text
.FormFields("mes").Range = mes.Text
.FormFields("ano").Range = ano.Text
.FormFields("Distribuidora").Range = Distribuidora.Text
.FormFields("Subestação").Range = Subestação.Text
.FormFields("Distribuidora1").Range = Distribuidora1.Text
.FormFields("numero").Range = numero.Text
.FormFields("BAY").Range = BAY.Text
.FormFields("se1").Range = se1.Text
.FormFields("codigo").Range = codigo.Text
.FormFields("Distribuidora2").Range = Distribuidora2.Text

.FormFields("dias").Range = dias.Text
.FormFields("meses").Range = meses.Text
.FormFields("anos").Range = anos.Text
.FormFields("anoatualizado").Range = anoatualizado.Text


.SaveAs (ThisWorkbook.Path & "\Carta_de_pré_aprovação - " & Subestação & "_" & BAY & ".docx ")
 
word.Quit

Set word = Nothing
Set doc = Nothing


End With
MsgBox "Dados Gerados com Sucesso", vbInformation, "INFORMAÇÃO"

Unload Me
End Sub

 

 Gera o erro '5981' com o modo de exibição protegido, todos selecionados.

Agradeço desde já.

[Basole]

Envie o seu arquivo para testarmos e ver se o problema e com o mesmo, ou as configuracoes de segurança do seu aplicativo.

[Jvitorino1007]

@Basole achei esse código, como poderia inserir no outro codigo? Tentei de algumas formas mas não consegui

Dim wb As Workbook

Dim prtvw As ProtectedViewWindow

Set wb = prtvw.Edit()

 

ou 

Sub wkBooks()

Dim wbProtected As Workbook

If Application.ProtectedViewWindows.Count > 0 Then

Set wbProtected = Application.ProtectedViewWindows(1).Workbook

End If