Preciso de uma macro para fazer uma planilha expirar

[Fabianogt]

Ola.
Preciso de uma macro para fazer uma planilha expirar apos uma determinada da data.
Achei uma para excel. Como faço uma para o librecalc?

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(2015, 6, 29)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  ThisWorkbook.Close SaveChanges:=False
  End If
End Sub

[Conras]

@Fabianogt

Do jeito que está a macro, nunca irá conseguir alterar a data de vencimento. Tem algum outro gatilho para avaliar essa condição? Pois se colocar o gatilho ao abrir a planilha, vai dar problema.

[Conras]

@Fabianogt

Veja se lhe atende.

Senha = validade

Arquivo

A macro está habilitada ao “Abrir Documento” (ferramentas / personalizar / eventos)

Em dtValidade = DateSerial (2020, 5, 1) é o padrão yyyy/mm/dd. Altere essa data para qual desejar.