Planilha com data de validade no Excel VBA

[@explorarexcel]

SEGUEM ABAIXO OS CÓDIGOS DESTE VÍDEO: Private Sub Workbook_Open() Dim BV As Worksheet Dim Entrada As Variant Set BV = Worksheets("Bem Vindo") BV.Range("B1") = Now If BV.Range("C2") < 0 Then Entrada = InputBox("Insira senha para escolher nova validade:", _ "Acesso encerrado!", "Digite sua senha aqui", 11000, 5900) If Entrada = "" Then MsgBox "A entrada foi cancelada!" ActiveWorkbook.Close savechanges:=False ElseIf Entrada = "1234" Then FormData.Show Else MsgBox "Desculpe, senha errada!" ActiveWorkbook.Close savechanges:=False End If Else Worksheets("Aba 01").Visible = True Worksheets("Aba 02").Visible = True Worksheets("Aba 03").Visible = True Worksheets("Aba 04").Visible = True Worksheets("Aba 05").Visible = True Worksheets("Aba 06").Visible = True End If End Sub '---------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) Worksheets("Aba 01").Visible = xlVeryHidden Worksheets("Aba 02").Visible = xlVeryHidden Worksheets("Aba 03").Visible = xlVeryHidden Worksheets("Aba 04").Visible = xlVeryHidden Worksheets("Aba 05").Visible = xlVeryHidden Worksheets("Aba 06").Visible = xlVeryHidden Range("C1").Select ActiveWorkbook.Save End Sub '---------------------------------------------------- Private Sub Botao_Enviar_Click() Dim BV As Worksheet Set BV = Worksheets("Bem Vindo") If IsDate(Me.NovaData.Value) = True Then BV.Range("A1").Value = CDate(Me.NovaData.Value) Worksheets("Aba 01").Visible = True Worksheets("Aba 02").Visible = True Worksheets("Aba 03").Visible = True Worksheets("Aba 04").Visible = True Worksheets("Aba 05").Visible = True Worksheets("Aba 06").Visible = True ActiveWorkbook.Save Else MsgBox "Data no formato incorreto!" Unload FormData FormData.Show End If Range("C1").Select Unload FormData End Sub '---------------------------------------------------- Private Sub Botao_Cancelar_Click() ActiveWorkbook.Close savechanges:=False End Sub '---------------------------------------------------- Private Sub NovaData_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii 47 Then KeyAscii = 0 End If End Sub '---------------------------------------------------- Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End Sub

[@FayneNTSilva]

Top

[@explorarexcel]

Obrigado pelo elogio. Nilton Castro.

[@SuperDavidFz]

Show de boloa

[@explorarexcel]

David, obrigado 🤙

[@viniciusaquino4184]

MUITO TOP, PARABÉNS, ISSO É SENSACIONAL PARA QUEM VENDE PLANILHA E NÃO QUER TOMAR ALGUM TIPO DE GOLPE.

[@explorarexcel]

Que bom que gostou.

[@AndreBMOficial]

Se voltar a data do computador tem como abrir a planilha, existe alguma solução para isso?

[@aneassuncaooficial]

Também gostaria de saber a respeito rs. Pq os outros bloqueios ficaram tops, mas tem esse macete mesmo de mudar a data do PC. 🤦🏻‍♀️

[@explorarexcel]

Realmente, se a pessoa mudar a data do PC, aí ele terá acesso a planilha. Para isso eu não tenho saída. Vou pesquisar. Nilton Castro.

[@duettoambientes9919]

Se colocar como data de referencia a data do dia buscada na internet

[@filipengalo8061]

Olá, Explorar Excel! Faço votos de uma boa estadia. Olha, pus o código a rodar, mas está a dar erro, como: "Run-time error '9': Subscript out of range". O que preciso fazer? Ajude-me, por favor.

[@aneassuncaooficial]

Olá No meu caso, quero que a planilha fique com as abas ocultas (modo tela cheia) A pessoa irá navegar pelos menus que criei (com hiper links) Como faria se neste código pede para reexibir as abas? Obrigada

[@aneassuncaooficial]

Estou digitado uma data vencida e ainda assim permite abrir a planilha novamente e salvar as alterações. O que pode ser? O código está igual o seu.

[@Dieg01544]

Olá tudo bem ? Muito massa seu vídeo queria saber se existe uma forma de programar o Excel para ele. Limpar um historio da planilha a cada 3 dias a cada 1 mês ter essa rotina de limpeza para não ficar pesado com o vba

[@explorarexcel]

Determinação, é possível fazer sim, mas só preciso de tempo para criar a planilha. Assim que o fizer, te comunico aqui. Nilton Castro.

[@alex25042007]

Você pode enviar seu e-mail para que eu possa te enviar uma dúvida?

[@explorarexcel]

Alex, meu e-mail é: [e-mail] Abraços; Nilton

[@rafaelfabiana3522]

Boa noite professor Exemplo: enviei a planilha pra um pessoa, aí passou da validade e a pessoa vai me pedir a senha pra reativar a planilha e colocar uma nova data isso não vai fazer com que ele coloque qualquer data do próximo vencimento?

[@explorarexcel]

Rafael, esse código foi criado com a seguinte intenção: Um internauta pediu uma planilha com validade definida. O desejo dele era vender essa planilha com validade de 1 ano. Quando esse prazo terminasse, o usuário teria de comprar outra. No seu caso, você terá que pedir ao usuário que lhe envie a planilha vencida para que você mesmo faça a alteração do prazo. Feito isso, você poderá devolvê-la com a nova data. Nilton Castro.

[@rafaelfabiana3522]

@@explorarexcel muito obg professor

[@hiagosanches2350]

não explicou como fazer direito, não consegui

[@marcusrodrigues20]

se a pessoa que esta usando a planilha mudar o horário do computador ela volta a abrir como se estivesse no prazo ?