Ir para conteúdo
Fórum Script Brasil
  • 0

Como Abrir Documento Word C/ Senha


Guest Mr. Dog Bean

Pergunta

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

Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros 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????

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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: mr_dog_bean@hotmail.com, acho que ficara melhor pra lhe explicar.....

Abraço....

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...