impostare un periodo di prova per file .xls
Morpheus
se potete indirizzarmi verso un sito dove posso scaricare
un programma o macro che mi permette di impostare un
periodo di utilizzo per un file *.xls.
Mi spiego meglio. Avendo creato un programma di gestione
contabile interamente realizzato in Excel, vorrei poterlo rendere
funzionante solo per un certo periodo, diciamo 60 giorni, dopo
i quali deve avvisare l'utente con un messaggio e rendere
i fogli inutilizzabili. Esiste qualche applicativo a questo scopo ?
Grazie a tutti.
Tony
fernando cinquegrani
Morpheus
> vedi:
>http://groups.google.it/group/microsoft.public.it.office.excel/browse_frm/t
hread/2e8325dddaf93bb4/6d38cc5c0ed00946
Tony
"fernando cinquegrani"
Ho verificato e provato il codice che mi hai dato
e funziona tutto. Ho impostato la password, stabilito il periodo di prova
ed infatti, mi compare la maschera di introduzione password di convalida.
Se inserisco la psw. corretta, mi abilita i fogli excel. Se introduco uno
sbagliato
non apre nulla e poi passa a chiedermi se voglio salvare il file *.xls in
uso.
Se clicco su annulla, mi by-passa tutto e mi apre regolarmente il foglio che
volevo proteggere. A questo punto come faccio ??..
Funziona tutto benissimo, ma c'è questo bug che consente di aprire tutto
anche con una password errata.
Mi puoi aiutare ??..
Grazie.
fernando cinquegrani
http://www.google.it/groups?threadm=uWO2f.2313$65.4...@twister1.libero.it
aspettando mauro gamberini, che è l'autore della macro,
potresti provare ad aggiungere
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
ActiveWorkbook.Close False
End Sub
Private Sub Workbook_Open()
Dim d As Date
Foglio2.Visible = xlSheetVeryHidden
Foglio3.Visible = xlSheetVeryHidden
if ...
End Sub
e, nel codice della userform1,
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Foglio2.Visible = xlSheetVeryHidden Then ActiveWorkbook.Close
End Sub
.f
Morpheus
> aspettando mauro gamberini, che č l'autore della macro,
> potresti provare ad aggiungere