Guru do Excel e Power BI

Private Sub Workbook_Open()
Dim Edate As Date
Dim WS As Worksheet
'O código vai exibir a guia desejada antes de fechar o arquivo
'Obs: Caso as macros do usuario, não esteja habilitada, ele não verá o que deseja ver
    Set WS = Worksheets("SuaGuia")
    WS.Visible = True
    Edate = Format("01/12/2015", "DD/MM/YYYY")
    
    If Date > Edate + 30 Then
        MsgBox "O arquivo vai expirar !!!"
        UserForm1.Show
    Else
        Exit Sub
    End If
End Sub

Private Sub btAcesso_Click()
Dim strPass As String
Dim sht As Object
strPass = "alevba"

If Me.TextBox1.Value = strPass Then
    MsgBox "Senha correta" 'Aqui use a senha
    'UnProtected = True 'Desprotege a guia
        For Each sht In Sheets
            If sht.Name <> "Guia_Menu" Then 'Oculta as guias e deixa uma guia falsa chamada(Guia_Menu)
                sht.Visible = True
            End If
        Next sht
    Unload Me 'Fecha o UserForm
Else
    If MsgBox("Senha incorreta, tente novamente", vbYesNo) = vbNo Then
        For Each sht In Sheets
            If sht.Name <> "Guia_Menu" Then 'Oculta as guias e deixa uma guia falsa chamada(Guia_Menu)
                sht.Visible = xlSheetHidden
            End If
        Next sht
        Application.Quit 'Fecha a aplicação
    Else
        TextBox1.Value = ""
    End If
End If
End Sub

Private Sub Workbook_Open()
For Each planilha In Worksheets
If planilha.Name <> "Área de Segurança" Then: planilha.Visible = xlSheetVisible
Next planilha


MsgBox (" *************************** ATENÇÃO LOJISTA! ***************************" & vbNewLine & "" & vbNewLine & " PEDIDO MÍNIMO R$ 1.500,00" & vbNewLine & "" & vbNewLine & " -> NESTA TABELA DE PEDIDOS, OS DESCONTOS SÃO AUTOMÁTICOS" & vbNewLine & " -> FAVOR INSERIR SEU C.N.P.J E SEU NOME APENAS" & vbNewLine & " -> CASO ENTRE COM UM C.N.P.J NÃO CADASTRADO, FAVOR FAZÊ-LO" & vbNewLine & " -> APÓS ISSO ENTRE COM A QNT DESEJADA" & vbNewLine & "" & vbNewLine & " WWW.GAUERDOBRASIL.COM.BR")


Dim exdate As Date
'data de expiração
exdate = "30/11/2015"
If Date > exdate Then
varNum = Application.InputBox("A planilha expirou, informe o codigo", "Revalidação do prazo", "####")
If varNum = 123456 Then
Exit Sub
End If

'Tela Planilha expirada
MsgBox (" *************** CARO LOJISTA ***************" & vbNewLine & "" & vbNewLine & " Favor solicitar uma nova Tabela:" & vbNewLine & "" & vbNewLine & " Repres. Oficial: André Luiz" & vbNewLine & "" & vbNewLine & " Fone: (21) ****-2347" & vbNewLine & " WhatsApp: (21) *****-3381" & vbNewLine & " atendimento-rj@*************.com.br" & vbNewLine & "" & vbNewLine & "" & vbNewLine & " ***********************************************" & vbNewLine & " WWW.*************.COM.BR" & vbNewLine & "" & vbNewLine & " WWW.*******************.COM.BR")

ActiveWorkbook.Close
End If

'Tela faltam tantos dias para expirar
MsgBox (" *************** CARO LOJISTA ***************" & vbNewLine & "" & vbNewLine & " Você tem " & exdate - Date & " dias para usar esta Tabela de Pedidos" & vbNewLine & " Após isso favor solicitar através de:" & vbNewLine & "" & vbNewLine & " Repres. Oficial: André Luiz" & vbNewLine & "" & vbNewLine & " Fone: (21) ****-2347" & vbNewLine & " WhatsApp: (21) *****-3381" & vbNewLine & " atendimento-rj@*************.com.br" & vbNewLine & " ***********************************************" & vbNewLine & " WWW.*************.COM.BR" & vbNewLine & "" & vbNewLine & " WWW.*******************.COM.BR")

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim planilha As Worksheet

For Each planilha In Worksheets
If planilha.Name <> "Área de Segurança" Then: planilha.Visible = xlVeryHidden
Next planilha

End Sub