Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet oculta planilha ativa

Excel vba worksheet oculta planilha ativa

E-mail Imprimir PDF

Saberexcel - site das macros

Macro do Aplicativo Microsoft Excel VBA, oculta a folha de planilha ativa no modo xlSheetVeyHidden e ou xlSheetHidden, de acordo com a opção de escolha do usuário, veja que foi usado a estrutura Select Case.

Sub Ocultar_planilha_ativa()
On Error Resume Next
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar a planilha ativa Very Hidden? ", vbQuestion + vbYesNoCancel, "Saberexel - site das macros")

Select Case vPergunta
Case vbYes
ActiveSheet.Visible = xlSheetVeryHidden
Case vbNo
ActiveSheet.Visible = xlSheetHidden
Case vbCancel
Exit Sub
End Select

End Sub

Macro auxliar que usamos para fazermos o teste.
Sub mostrando_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Visible = True
End Sub



Aprenda Microsoft Excel VBA com qualidade Saberexcel


   Baixe o exemplo de planilha das macros acima
vba worksheet oculta planilha ativa (24.26 kB)

Última atualização em Sex, 26 de Agosto de 2011 09:12  

Comentários  

 
# CJGestor 09/01/2014 00:32
Bom dia Saber Excel,
Preciso de sua ajuda para Criar planilha de Controle de Acesso.
Criar um arquivo que deseja Bom dia ao usuário com o nome dele de usuário no Excel (Application.UserName) e gravar em planilha Very Hidden, um registro com Nome, Hora de abertura, hora de fechamento para controle de uso do arquivo.

Favor me enviar o caminho.
Obrigado
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes. 09/01/2014 08:10
'Esse macro ou Fórmula abaixo, retorna uma mensagem de boas vindas para o usuario, note que inseri abaixo uma função para capturar o primeiro nome, caso precise dessa função.
Fiquem com Deus, Expedito Marcondes

'//===================' USANDO FÓRMULAS
=SE(E(HORA(AGORA ())>18;HORA(AGORA()) <24);"BOA NOITE !";SE(E(HORA(AGOR A ())>=0;HORA(AGORA()) <=5);"BOA MADRUGADA !";SE(E(HORA(AGOR A ())>5;HORA(AGORA()) <=12);"BOM DIA !";SE(E(HORA(AGOR A ())>12;HORA(AGORA()) <=18);"BOA TARDE !"))))

'//===================' MACRO SAUDAÇÃO TEMPO

Sub Saudacao_boas_v indas()
Application.ScreenUpdating = True
precede = "+(APRENDA EXCEL VBA)+ "
Agora = Hour(Now())
If Agora <= 6 Then
g01 = "BOA MADRUGADA"
ElseIf Agora < 12 Then
g01 = "BOM DIA"
ElseIf Agora < 19 Then
g01 = "BOA TARDE"
ElseIf Agora < 24 Then
g01 = "BOA NOITE"
End If
Beep
MsgBox "SEJA BEM-VINDO: " & g01 & "" & Chr$(10) & Chr$(10) & precede & Chr$(10) & Environ("username"), _
vbOKOnly + vbInformation, "http://www.saberexcel.com.br - assinantes"
End Sub

'//=====================' OUTRO MACRO SAUDAÇÃO
Sub Saudacao_II()
If Hour(Now()) < 12 Then MSG_DESC = ", Bom dia! Bem vindo ao Sistema Saberexcel VBA Estudos®" 'Principal.TXTName2.Caption = "Bom dia!"
If Hour(Now()) >= 12 And Hour(Now()) < 18 Then MSG_DESC = ", Boa Tarde! Bem vindo ao Sistema Saberexcel VBA Estudos®"
If Hour(Now()) >= 18 Then MSG_DESC = ", Boa Noite! Bem vindo ao Sistema Saberexcel VBA Estudos®"

Sheets("Plan1").Range("F6") = "Olá " & StrConv(Primeir oNome(Sheets("Plan1").Range("E6")), vbProperCase) & MSG_DESC
MsgBox StrConv(Primeir oNome(Sheets("Plan1").Range("E6")), vbProperCase) & MSG_DESC
End Sub
'//============' FUNÇÃO PRIMEIRO NOME CAPTURA EXCEL VBA
'Caso precise capturar o primeiro nome do usuario

Function PrimeiroNome(No me As String) As String
Dim i As Integer
i = 1
If i > Len(Nome) Then GoTo Fim
While Right(Left(Nome , i), 1) <> " "
i = i + 1
If i > Len(Nome) Then GoTo Fim
Wend
PrimeiroNome = Left(Nome, i - 1)
Exit Function
Fim:
PrimeiroNome = ""
End Function

'//================' SEJA UM ASSINANTE SABEREXCEL
SITE....: http://www.saberexcel.com.br
email...: contato@saberex cel.com.br
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4389
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana29049
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês42778
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465607
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA