Ir ao conteúdo
  • Cadastre-se
Jvitorino1007

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

Posts recomendados

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á.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...