Como Abrir Documento Word C/ Senha

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

[Graymalkin]

Experimente assim:

objword.Documents.Open "arquivo", , , , "senha"

Abraços,

Graymalkin

[Guest Mr. Dog Bean]

Caro Graymaikin

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

[Graymalkin]

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

[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????

[Graymalkin]

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

[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

[Graymalkin]

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

[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: mr_dog_bean@hotmail.com, acho que ficara melhor pra lhe explicar.....

Abraço....

[Graymalkin]

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

[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

[Graymalkin]

Experimente colocar uma pausa entre o PrintOut e o Quit.

Abraços,

Graymalkin

[Guest - Dog Bean -]

Mais qual o comando do pausa ?????

seria PAUSE ???

[Graymalkin]

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

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

[kuroi]

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