Useremo un foglio in cui scriverai in B1 la "durata" mentre B2 verra' usato tramite macro per inserirci la data di prima apertura e quindi calcolare il residuo.
Crea questo foglio e inserisci la Durata (B1), lasciando vuota B2; poi vai nel vba e visualizza le Proprieta' del foglio, e imposta Visible=2 - xlSheetVeryHidden per nasconderlo.
Poi inserisci in ThisWorkbook la seguente macro:
- Codice: Seleziona tutto
Private Sub Workbook_Open()
If Foglio4.Range("B2").Value = "" Then Foglio4.Range("B2").Value = Int(Now())
myres = (Foglio4.Range("B2").Value + Foglio4.Range("B1").Value) - Int(Now)
If myres > 0 Then
MsgBox ("Il file potra' essere usato ancora per " & myres & " giorni")
Else
MsgBox ("Il file e' scaduto...")
ThisWorkbook.Close savechanges:=False '<<< Opzionale
End If
End Sub
Nella macro ho usato il "Codename" per indirizzare il foglio di servizio; e' quello che viene visualizzato nel vbaProject non tra parentesi, quindi sostituisci quei "Foglio4" col Codename del tuo foglio.
Salva il file e distribuiscilo in questa versione, con B2 vuoto.
Il tutto funzionera' solo se l' utente del file collabora.
Collauda e tra un anno fai sapere se e' ok.
Ciao