Walhart
Super Participante
Registrado
185 Mensagens
65 Curtidas
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
ale.x.
Novo Membro
Registrado
11 Mensagens
1 Curtida
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.
Walhart
Super Participante
Registrado
185 Mensagens
65 Curtidas
foi o que eu disse...vc precisa desproteger a worksheet, e não a workbook...
substitui por ActiveSheet.Unprotect ("123")
ale.x.
Novo Membro
Registrado
11 Mensagens
1 Curtida
foi o que eu disse...vc precisa desproteger a worksheet, e não a workbook...
substitui por ActiveSheet.Unprotect ("123")
Não de certo, o arquivo (planilha) abre mas ainda solicita a senha de gravação
ale.x.
Novo Membro
Registrado
11 Mensagens
1 Curtida
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
Super Participante
Registrado
185 Mensagens
65 Curtidas
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
ale.x.
Novo Membro
Registrado
11 Mensagens
1 Curtida
Consegui usando:
ignorereadonlyrecommended:=True