Logo Hardware.com.br
ale.x.
ale.x. Novo Membro Registrado
11 Mensagens 1 Curtida

[Resolvido] VBA excel abrir planilha com senha

#1 Por ale.x. 08/08/2015 - 15:42
Boa tarde tenho um botão na planilha que ao clicar preciso que abra outra planilha "teste" porém essa tem senha de gravação senha "123", preciso de um código que ao abrir essa planilha o código já insira a senha direto ou seja, com esse botão não previsarei mais ficar digitando a senha.

Obs: não posso retirar a senha da planilha, seria mais fácil, mas não posso.

Tentei o código abaixo mas não tive sucesso.
[code=VB]
Sub Botão2_Clique()
Workbooks.Open Filename:= _
"C:\Desktop\planilha_teste\teste.xls"
ActiveWorkbook.Unprotect ("123")
Sheets("Plan2").Visible = True
Range("A2").Select
End Sub
[/code]

Podem me ajudar?
ale.x.
ale.x. Novo Membro Registrado
11 Mensagens 1 Curtida
#3 Por ale.x.
12/08/2015 - 20:06
Walhart disse:
nesse seu teste, o que não funciona?
não abre a planilha?
não desbloqueia a senha?

proteger/desproteger a Worksheet e proteger/desproteger a Workbook são coisas diferentes....

outra coisa...
no windows 7 (e imagino que dele em diante), o endereço da área de trabalho é C:\Users\"nome de usuário"\Desktop, e não C:\Desktop



Bia noite obrigado pela atenção.

O endereço coloquei somente em caráter de exemplo, acontece que ao abrir a planilha a mesma continua pedindo senha pra abrir, ou seja, nao deu certo.
ale.x.
ale.x. Novo Membro Registrado
11 Mensagens 1 Curtida
#6 Por ale.x.
13/08/2015 - 07:51
Consegui.
Sub Botão2_Clique()
Workbooks.Open Filename:= _
"C:\Desktop\planilha_teste\teste.xls", writerespassword:=" 123"
Sheets("Plan2").Visible = True
Range("A2").Select
End Sub


Writerespassword foi a solução do problema.

Agora planilha não pede senha para abrir porem aparece msg de abrir como leitura ou não, tem como colocar na macro pra já dar um não nessa msg?
Walhart
Walhart Super Participante Registrado
185 Mensagens 65 Curtidas
#7 Por Walhart
13/08/2015 - 09:40
Tem 3 coisas que vc pode tentar:

1 - re-salvar esse arquivo que vc está abrindo sem ser como somente leitura, aí qdo vc abre ele, não aparece essa mensagem

2 - desativar as mensagens adicionando Application.DisplayAlerts = False no seu código

3 - adicionar o seguinte parâmetro no comando de abrir o arquivo:

Workbooks.Open Filename:="C:\Desktop\planilha_teste\teste.xls", Password:="123",ReadOnly:=False
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal