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

@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 Boa tarde, Já tentei, mesmo erro.

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

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.

Perfeito @Midori funcionou de boa. Obrigado pela atenção.

@Midori se não me engano é este, não estou com o pc que está dando o erro aqui comigo. Confirmei é esse mesmo.

@Midori Ficou show, mas será que pode dar problema com versão do Office? Pois consigo abrir em um pc (office mais atual), e no outro (office 2013) da erro em tempo de execução 5. Sabe o que pode causar isso? @Midori Ficou muito top o código e agradeço muito por isso, porém eu estive vendo algumas coisas e estou com o código abaixo. Ele cria um Popup "personalizado". E minha dúvida é a seguinte será que consigo utilizar o código que você me passou para este Popup, assim eu teria a informação somente quando tivesse dúvida. Consegue me ajudar nessa também? Sub CriarPopUp() Dim Mrs As CommandBar CommandBars("PopUpPersonalizado").Delete Set Mrs = CommandBars.Add("PopUpPersonalizado", msoBarPopup) With Mrs With .Controls.Add(msoControlButton) .Caption = "Quantidade Caixa Master" .FaceId = 1394 .OnAction = "CaixaMaster" End With End With End Sub Sub CaixaMaster() End Function Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) CommandBars("PopUpPersonalizado").ShowPopup Cancel = True End Sub

@Midori Ficou muito top o código e agradeço muito por isso, porém eu estive vendo algumas coisas e estou com o código abaixo. Ele cria um Popup "personalizado". E minha dúvida é a seguinte será que consigo utilizar o código que você me passou para este Popup, assim eu teria a informação somente quando tivesse dúvida. Consegue me ajudar nessa também? Sub CriarPopUp() Dim Mrs As CommandBar CommandBars("PopUpPersonalizado").Delete Set Mrs = CommandBars.Add("PopUpPersonalizado", msoBarPopup) With Mrs With .Controls.Add(msoControlButton) .Caption = "Quantidade Caixa Master" .FaceId = 1394 .OnAction = "CaixaMaster" End With End With End Sub Sub CaixaMaster() End Function Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) CommandBars("PopUpPersonalizado").ShowPopup Cancel = True End Sub

@Midori Funcionou perfeitamente. Muito obrigado Midori.

@Midori Boa noite, obrigado desde já com a ajuda. Segue PLANILHA PEDIDO.rar

Pessoal mais uma vez preciso de ajuda. Estou precisando fazer uma macro que quando um valor é digitado em qualquer intervalo entre A12:A40 da aba "Pedido", a mesma busque este valor na aba "Impostos" na coluna E, e seja apresentado em uma Msgbox. Por exemplo: Na minha aba pedido eu digito um código de produto na celula A12, por exemplo código "10" que é de uma caixa fechada de café. Na Msgbox eu preciso que apareça a quantidade total de café contida na caixa. A informação da quantidade está contida na aba Impostos. E assim sucessivamente na linhas abaixo, A13, A14..... Por favor poderiam me ajudar?

@Basole perfeito, muito obrigado pela ajuda Abraço

@Basole Muito obrigado, funcionou perfeitamente. Só adicionei espaço entre as informações. Sem querer abusar, um dos campos é data e causa erro na macro, sabe como posso corrigir? Visto que a data vai ser inserida por outras pessoas utilizando este arquivo. Obrigado

@Basole Não funcionou. Ele salva somente com o nome "Pedido". Não puxa nenhuma informação.