Este fórum está sendo desativado

[Adrian]

Boa tarde!

Pessoal existe uma macro que pode expirar o funcionamento da minha planilha.

Grato,

Adriano

[Jonathaluis]

Adrian, boa tarde!

Precisariamos de um pouco mais de detalhes sobre sua planilha, mas seria sim, se for fórmula coloque algo próximo disso "=se(hoje() > "14/04/2016";"";"faz o que tem queser feito"), se for por macro coloque uma data fixa no código e compare com dia, mês e ano atual, só que em inglês
agora "Now()" -> trás dia, mês, ano, hora, minuto e segundo atual
dia = "day"
mês = "month"
ano = "year"

vê se isso aí te ajuda

[Kledison]

Boa tarde,

tem esse também, coloque em ESTA PASTA DE TRABALHO:

Código: Selecionar todos

    Private Sub Workbook_Open()
        Application.EnableCancelKey = xlDisabled
       
        Dim dt As Date
       
        'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
        dt = DateSerial(2012, 6, 29)
        If Date >= dt Then
            MsgBox "Esta Pasta de Trabalho expirou! Entre em contato com o desenvolvedor da Planilha."
            ThisWorkbook.Close SaveChanges:=False
        End If

        'Se data não expirou, código continua normalmente.
       
    End Sub

[Adrian]

Estou precisando de uma que expira o prazo de uso da planilha.


Grato