• 0
Sign in to follow this  
Guest Mr. Dog Bean

Como Abrir Documento Word C/ Senha

Question

Guest Mr. Dog Bean

Olá, boa tarde

Alguém pode me dizer o que tem de errado na instrução abaixo?, pois não consigo abrir o arq. com senha.

Objword.documents.open ("c:\teste\teste.doc, false, false,;pwd:senha")

Vlw...

Share this post


Link to post
Share on other sites

15 answers to this question

Recommended Posts

  • 0

Caro Graymaikin

Essa instrução serve para o VB ????

Como assim "serve para o VB"? Se você observar os parâmetros (que aparecem no balãozinho amarelo) vai ver que são estes dois que devem ser preenchidos. Tirando o primeiro, todos os demais são opcionais.

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest Mr. Dog Bean

Na verdade o que eu quero e eguinte:

Tenho um arquivo no word que protegi com senha pela opção => FERRAMENTA => PROTEGER DOCUMENTO, Esse documento não quero que ninguém possa mexer porem posso abrir. O sistema que desenvolvi via VB irá gerar uma novo documento no word com outro nome.

Obs.> A instrução que você me passou só serviu para proteger o documento se colocar a senha pela opção => FERRAMENTA => OPÇÕES => SALVAR, Você teria alguma instrução para me passar onde possa abrir o documento com senha dessa forma que lhe passei????

Share this post


Link to post
Share on other sites
  • 0

Realmente não entendi o que você quer. Você tem um documento com senha, certo? E você quer abrí-lo, certo? Então, o código passado não faz isso?

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest Respondendo!!!

Não, não faz.......

só funciona quando insiro a senha de protecão pelo opção => FERRAMENTA => OPÇÕES. Desta maneira pra mim não servi-rá, pois preciso que o usuário tenha possibilidade de abrir o documento.

Obs.: Mesmo que você não tenha a solução para tal problema, desde já agradeço por sua atenção....vlw

Share this post


Link to post
Share on other sites
  • 0
Não, não faz.......

Ok.

só funciona quando insiro a senha de protecão pelo opção => FERRAMENTA => OPÇÕES.

Você quis dizer Feramentas -> Proteger Documento? Se sim, qual é o outro jeito de colocar senha que não seja este?

Desta maneira pra mim não servi-rá, pois preciso que o usuário tenha possibilidade de abrir o documento.

Então pra quê a senha? Se ele puder abrir sem a senha não existe a necessidade de colocar o seu sistema para abrir com a senha.

Obs.: Mesmo que você não tenha a solução para tal problema, desde já agradeço por sua atenção....vlw

De nada, mas eu acho que não estou ajudando muito porque realmente ainda não entendi o que você quer.

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest - Dog Bean -

Aí é que está o X da questão...., realmente preciso colocar a senha, pois quero que o usuário possa abrir o documento porém sem possibilidade de fazer qualquer alteração. Esse documento que possui senha já esta todo configurado, ele será a matriz para que o sistema possa gerar os outros doc's um pra cada cliente. beleza, entendeu agora minha duvida.

se for possivel adcione: [email protected], acho que ficara melhor pra lhe explicar.....

Abraço....

Share this post


Link to post
Share on other sites
  • 0

Então o que você quer é desproteger o documento quando abrir pelo seu sistema, certo? Você pode fazer isso assim:

    Dim objWord As New Word.Application
    
    objWord.Documents.Open "c:\SeuDocumento.doc"
    objWord.Visible = True
    objWord.ActiveDocument.Unprotect "senha"

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest - dog bean -

beleza, Cara funcionou......

Agora como posso fazer para imprimir esse maldito DOC e ao mesmo tempo fechar o word

Já tentei o:

.printout, porém quando mando fechar ( Quit wdDoNotSaveChanges ) o word ele não imprime. Parece que não dá tempo para o windows realizar a impressão. Sabe como posso fazer isso???

Segue Abaixo SCRIPT:

Private Sub gerar_Click()

Dim AreaTrabalho As Workspace

Dim query As String

Dim xxbco As Database

Dim nome_arq

Set AreaTrabalho = DBEngine.Workspaces(0)

Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "\BaseDados.Mdb")

query = "Select * From Cad_cliente where cod = '" & 20 & "'"

Set dyn = xxbco.OpenRecordset(query)

Dim temp As String

Dim Objword As Object

Set Objword = New Word.Application

' nome do relatorio pré montado

With Objword

.Documents.Open "F:\não_remover.doc"

.ActiveDocument.Unprotect "senha"

' chama rotina para substituicao

Call Substitui_Var("@dia", (Format(Date, "dd")), Objword)

Call Substitui_Var("@mês", (Format(Date, "mmmm")), Objword)

Call Substitui_Var("@ano", (Format(Date, "yyyy")), Objword)

Call Substitui_Var("@nome", (dyn("nome")), Objword)

Call Substitui_Var("@promoção", (txtpromoção), Objword)

Call Substitui_Var("@Texto_obs", (txt_obs), Objword)

nome_arq = "F:\cliente_cod" & dyn("cod") & ".doc"

.ActiveDocument.SaveAs (nome_arq)

' .ActiveDocument.Protect " "

.Visible = False

.PrintOut

.Quit wdDoNotSaveChanges

End With

' libera memoria

Set Objword = Nothing

End Sub

Private Sub Substitui_Var(Header As String, data As String, ObjWordTemp As Word.Application)

Dim temp As String

With ObjWordTemp.Selection.Find

.ClearFormatting

.Text = Header

.Execute Forward:=True

End With

Clipboard.Clear

Clipboard.SetText (data)

ObjWordTemp.Selection.Paste

Clipboard.Clear

End Sub

Share this post


Link to post
Share on other sites
  • 0

Não, não tem um comando para isso. Você vai ter que implementar uma pausa (que pode ser um simples While ou um Timer).

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest Visitante

Vou fazer o teste

Se possivel lê o post sobre "FORMATANDO ETIQUETAS"

Vlw Graymalkin e Mestre do Sr. Binho !!!!!, vocês são os caras.... Esse forum é SHOW DE BOLA...

Share this post


Link to post
Share on other sites
  • 0

Vlw Graymalkin e Mestre do Sr. Sr. Binho !!!!!, vocês são os caras.... Esse forum é SHOW DE BOLA...

hahahah valeu... mas nem fiz nada....

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this