Neste artigo, criaremos uma macro para ocultar a planilha do Excel. A planilha do Excel é ocultada pela alteração de suas propriedades usando o código VBA. A planilha oculta do Excel não pode ser tornada visível usando o botão Exibir no aplicativo Excel.
Neste exemplo, criamos um formulário de registro de portão.
Quando o usuário insere os detalhes no formulário e clica no botão enviar, os detalhes são salvos na planilha “Dados”. O botão “Enviar” é atribuído à macro “SubmittingDetail”.
A folha de “dados” pode ser ocultada ou mostrada clicando no botão “Folha de dados”. Se a planilha de “dados” estiver oculta, ela não pode ser tornada visível usando a opção de reexibir disponível na planilha do Excel.
A folha oculta usando o botão “Folha de dados” permanece visível no explorador de projetos no VBE (Editor do Visual Basic) e as propriedades da folha da folha oculta são definidas como xlSheetVeryHidden.
A folha também pode ficar muito oculta sem o uso de código VBA. Para isso, temos que abrir o VBE e definir a propriedade visible da folha na janela de propriedades como 2 - xlSheetVeryHidden.
Para ocultar uma planilha, para que ninguém possa exibi-la sem saber a senha do Projeto Vb, simplesmente oculte o arquivo usando o código VBA ou altere a propriedade visible da planilha para 2, ou seja, xlsheetveryhidden e bloqueie o Projeto Vb junto com a senha.
Para proteger o Projeto Vb com senha, clique com o botão direito do mouse em Objeto do Microsoft Excel> Selecionar Propriedades do VBAProject…> a caixa de diálogo Propriedades do VBAProject aparecerá.
Na caixa de diálogo Propriedades de VBAProject, vá para a guia Proteção> marque a caixa para bloquear o projeto> atribua a senha para o projeto. A senha que atribuímos para o arquivo anexado é “registrar”. Pode-se atribuir qualquer senha para o projeto.
O botão “Folha de dados” é usado para ocultar e mostrar a folha. O botão “Folha de dados” é atribuído à macro “ToggleHidingDataSheet”. Quando o usuário clica no botão e se o arquivo está oculto, a planilha torna-se visível e, se a planilha estiver visível, a planilha fica oculta.
A folha pode ser tornada visível clicando no botão "Folha de dados" ou alterando a propriedade visible de volta para 0, ou seja, xlSheetNormal usando a senha para o VBProject.
Siga abaixo para o código
Sub SubmittingDetail () Dim LastRow As Long 'Encontrando a última linha na planilha "Dados"' onde os dados precisam ser inseridos LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Row + 1 'Inserindo dados na planilha "Dados" com planilhas ("Dados")' Atribuindo número de série .Range ("A" & LastRow) = LastRow - 1 'Inserindo dados na planilha "Dados" do intervalo F15 a J15 .Range ("B "& LastRow &": F "& LastRow) = Intervalo (" F15: J15 "). Valor End With 'Excluindo o conteúdo da célula no intervalo Range (" F15: J15 "). Selecione Selection.ClearContents Range (" F15 " ) .Select End Sub Sub ToggleHidingDataSheet () 'Verificar se a planilha está oculta no momento If Sheets ("Data"). Visible = xlVeryHidden Then' Código para tornar a planilha visível Planilhas ("Dados"). Visível = True Else 'Código para ocultar as planilhas ("Dados"). Visível = xlVeryHidden End If End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail