Luis Geraldo

Bom dia , Eu baixei essa planilha da internet, porém está bloqueada para modificações, é possível desbloquear?Desbloqueando eu conseguiria de modificar para que ao clicar em "vendas" e "confirmar venda" fosse gerado um recibo enviado via e-mail e quando eu clicar em "consulta" fosse possível excluir registro apenas se o tipo de usuário for "Administrador" ( não será possível quando for "usuário padrão" - Na aba cadastro) ou esconder o botão consulta para que eu pudesse acessa-lo apenas com um atalho. Gostaria tambem de verificar a tabela de produtos para que eu pudesse alterar a ordem na inserção de produtos novos.Link com a planilhahttps://www.sendspace.com/file/9j3tc4

Boa tarde No código abaixo foi gerado uma caixa de mensagem que se eu clicar em Sim, ela reexibe duas abas, nessa parte do código não tem problema, porém se na caixa de mensagem eu clicar em Não a planilha deveria ocultar duas abas (aba Scopo e Instruções) porém se essas abas já estiverem ocultas na minha planilha o código gera erro. Eu gostaria que ao abrir a planilha (arquivo de excel) já aparecesse inicialmente uma caixa de mensagem para responder Sim ou Não e que o erro gerado no código( na caixa de mensagem, se eu clicar em Não a planilha deveria ocultar duas abas, Scopo e Instruções) , seja feito nada, ou seja, se o código der erro ele finaliza sem nenhuma mensagem, se não der erro ele oculta as abas. Segue planilha de exemplo em anexo. Mudei a extensão para conseguir inserir o arquivo Código Sub MacroMsg() ' ' MacroMsg Macro ' Dim resultado As VbMsgBoxResult resultado = MsgBox("Você irá fazer alguma atualização?", vbYesNo, "Tomando uma decisão") If resultado = vbYes Then Sheets("Dash").Select Sheets("Scopo").Visible = True Sheets("Scopo").Select Sheets("Instruções").Visible = True Sheets("dash").Select Range("b1").Select Else Sheets("Dash").Select Range("B1").Select Sheets(Array("Scopo", "Instruções")).Select Sheets("Instruções").Activate ActiveWindow.SelectedSheets.Visible = False Sheets("Dados").Select Range("Tabela1[[#Headers],[Placa]]").Select Selection.End(xlDown).Select Sheets("Dash").Select Range("B1").Select End If End Sub