Excel Desbloqueio de pasta de trabalho

[marcospires1]

Pessoal estou precisando de uma ajuda.

Tenho uma macro que cópia alguns dados de uma aba e cola em outra aba. Porém a pasta de trabalho é bloqueada com senha e a planilha também. Preciso colocar para a macro desbloquear, re-exibir a aba, realizar a ação, ocultar a aba e bloquear novamente.

 

O código da ação é esse abaixo 

Sub Cadastro_Novo()

    Sheets("Cadastro Novo CNPJ").Range("A2:H2").Copy
                        
    Sheets("Dados Clientes").Visible = True
    
    Sheets("Dados Clientes").Select
    Range("A1048576").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
    Sheets("Cadastro Novo CNPJ").Select
    Range("A2:H2").Select
    Selection.ClearContents
    Range("A2").Select
    
    Sheets("Dados Clientes").Visible = False
            
    MsgBox "CNPJ Cadastrado", vbInformation, "SALVAR"
    
        
End Sub

 

Agradeço se puderem me ajudar.

[Scofieldgyn]

@marcospires1

 

veja se te atende

Sub Cadastro_Novo()

    Sheets("Cadastro Novo CNPJ").Range("A2:H2").Copy
                        
    Sheets("Dados Clientes").Visible = True
    Worksheets(“Dados Clientes”).Unprotect Password:=”sua senha aqui″
    
    Sheets("Dados Clientes").Select
    Range("A1048576").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    
    Sheets("Cadastro Novo CNPJ").Select
    Range("A2:H2").Select
    Selection.ClearContents
    Range("A2").Select
    
    Worksheets(“Dados Clientes”).Protect Password:=”sua senha aqui″
    Sheets("Dados Clientes").Visible = False
            
    MsgBox "CNPJ Cadastrado", vbInformation, "SALVAR"
    
        
End Sub

 

[marcospires1]

@Scofieldgyn

Eu até tinha tentado esse código antes, mas ele retorna o erro.

Erro em tempo de execução 1004:

Não é possível definir a propriedade Visível da classe Worksheet.

 

Mesmo colocando a linha de código de senha antes.

 

 

 

[Edson Luiz Branco]

@marcospires1 , tente apenas jogar a linha que torna a planilha visível para baixo da que desbloqueia.

[marcospires1]

@Edson Luiz Branco Boa tarde, Já tentei, mesmo erro.

[Patropi]

@marcospires1

 

Se a senha é na pasta de trabalho, a primeira coisa que o código tem que fazer é desbloquear a planilha, e no teu código ele primeiro manda copiar de uma planilha, para depois desbloquear.

 

[]s

[marcospires1]

@Patropi tentei o que você recomendou, porém não funcionou também.

Vou colocar a planilha aqui para vcs verem. Não sei o que está acontecendo.

Tentei o código como workbook e não funcionou também.

Se for possível dar uma olhada.

Pedido_de_Compra.zip

[Edson Luiz Branco]

Você esqueceu de desbloquear a Pasta de Trabalho Excel antes de desbloquear a planilha, @marcospires1, como bem lembrou o amigo @Patropi na resposta anterior :

 

Sub Cadastro_Novo()
    ThisWorkbook.Unprotect Password:="123"
    ...
End Sub

 

Não esquecer de voltar a proteger no final.

[marcospires1]

@Edson Luiz Branco Agora olhando sua resposta consegui ver onde eu estava errando.

Eu estava colocando o codigo da maneira errada, estava colocando assim.

Workbook.Unprotect ao invés de Thisworkbook.Unprotect. 

Obrigado a todos pela ajuda