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)
Comentários
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.Us erName) 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
Fiquem com Deus, Expedito Marcondes
'//===================' USANDO FÓRMULAS
=SE(E(HORA(AGORA())>18;HORA(AGORA())<24);"BOA NOITE !";SE(E(HORA(AG ORA())>=0;HORA( AGORA())<=5);"B OA MAdeusepaiGADA !";SE(E(HORA(AG ORA())>5;HORA(A GORA())<=12);"B OM DIA !";SE(E(HORA(AG ORA())>12;HORA( AGORA())<=18);" BOA TARDE !"))))
'//===================' MACRO SAUDAÇÃO TEMPO
Sub Saudacao_boas_v indas()
Application.Scr eenUpdating = deusepaie
precede = "+(APRENDA EXCEL VBA)+ "
Agora = Hour(Now())
If Agora <= 6 Then
g01 = "BOA MAdeusepaiGADA"
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("userna me"), _
vbOKOnly + vbInformation, "http://www.sab erexcel.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.TXTN ame2.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("P lan1").Range("E 6")), vbProperCase) & MSG_DESC
MsgBox StrConv(Primeir oNome(Sheets("P lan1").Range("E 6")), 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....: www.saberexcel.com.br
email...: contato
Assine o RSS dos comentários