Protezione sicura e "scadenza" di alcuni fogli di excel: come fare?
-= Luca =-
che contengono formule "segrete" per il calcolo di sconti; la sola
protezione che offre excel ho visto che si oltrepassa facilmente,
come posso fare?
Vorrei inoltre far "scadere", cioè rendere inutilizzabile il file di excel
dopo un determinato tempo, in modo da non "lasciare in giro" versioni
vecchie....
^__^
o.g.a.v.o.s. [Onorevoli Grazie A Voi Ohhh Saggi)
Noblues[ITA]
ha scritto:
> Salve, ho la necessità di proteggere alcuni fogli del file di excel
> che contengono formule "segrete" per il calcolo di sconti; la sola
> protezione che offre excel ho visto che si oltrepassa facilmente,
> come posso fare?
niente..oppure una DLL!:-)
> Vorrei inoltre far "scadere", cioè rendere inutilizzabile il file di
> excel
> dopo un determinato tempo, in modo da non "lasciare in giro" versioni
se non vuoi agire sul registro di sistema questo è il modo + semplice
Private Sub Workbook_Open()
Dim NewY: NewY = DateSerial(2003, 10, 31)
If NewY < Date Then
MsgBox "Il programma ha terminato il suo ciclo" & Chr(13) & _
"E' necessario l'intervento del programmatore", vbCritical,
"ATTENZIONE"
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub
--
Noblues[ITA]
excel
Come si interviene su un file che non si apre, una volta scaduto?
"Noblues[ITA]" <nob...@libero.it> ha scritto nel messaggio
news:oprvlbsx...@news.tin.it...
Noblues[ITA]
scritto:
> Curiosità.
>
> Come si interviene su un file che non si apre, una volta scaduto?
>
>
se non metti un blocco tipo.. If NewY < Date Then
Sheets("Foglio_Nascosto").Range("A1") = "Pippo"
End If
If NewY < Date Or Sheets("Foglio_Nascosto").Range("A1") = "Pippo" Then
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
End If
basta riportare indietro la data..altrimenti non si spre +
Noblues[ITA]
-= Luca =-
> > excel
> > dopo un determinato tempo, in modo da non "lasciare in giro" versioni
>
> se non vuoi agire sul registro di sistema questo è il modo + semplice
>
> Private Sub Workbook_Open()
> Dim NewY: NewY = DateSerial(2003, 10, 31)
> If NewY < Date Then
> MsgBox "Il programma ha terminato il suo ciclo" & Chr(13) & _
> "E' necessario l'intervento del programmatore", vbCritical,
> "ATTENZIONE"
> Application.DisplayAlerts = False
> ActiveWorkbook.Close SaveChanges:=False
> End If
> End Sub
...ok ma se l'utente NON attiva le macro?
mi serve qlc che invalidi i calcoli se la macro NON viene attivata,
[valorecorretto*casuale()] che viene sostituito dalla macro in
[valorecorretto*1]
poi però se la 1a attivo e salvo, successivamente non avrò più bisogno di
attivare la macro e quindi la scadenza non partirà mai.....
non riesco trovare la soluzione....help me
^__^
-= Luca =-
"excel" <ingr...@libero.it> ha scritto nel messaggio
news:OJrv5TFf...@tk2msftngp13.phx.gbl...
> Curiosità.
>
> Come si interviene su un file che non si apre, una volta scaduto?
telefoni e ne chiedi una nuova versione
che verrà fornita gratis (se ancora sei ns cliente)
MsgBox "Il programma ha terminato il suo ciclo" & Chr(13) & _
"richiedere una nuova versione", vbCritical,
-= Luca =-
> >
> >
> se non metti un blocco tipo.. If NewY < Date Then
> Sheets("Foglio_Nascosto").Range("A1") = "Pippo"
> End If
> If NewY < Date Or Sheets("Foglio_Nascosto").Range("A1") = "Pippo" Then
> Application.DisplayAlerts = False
> ActiveWorkbook.Close SaveChanges:=False
> End If
>
> basta riportare indietro la data..altrimenti non si spre +
> Noblues[ITA]
Lo scopo è quello di:
- proteggere i ns parametri (ricavati da prove pratiche abb costose)
- evitare che i ns parametri vadano in mano alla concorrenza (o che almeno
scadano..)
- "costringere" il cliente a mantenersi aggiornato gratuitamente, evitando
errori di "pigrizia"
^__^
Noblues[ITA]
ha scritto:
>> > Come si interviene su un file che non si apre, una volta scaduto?
si può agire sul registro..personalmente mi sono creato un modulo standard
che modifica alcune chiavi di registro
e, in base la tempo o al numero di aperture del programma lo blocca, dando
la possibiltà di mandare in automatico una e-mail con i dati che mi servono
relativi al prg e alla versione..a questo punto posso spedirgli un .exe che
lo registra o prolunga il periodo di test...cmq, ripeto, se non crei una
libreria con i dati che intendi mantenere segreti, qualunque codice in VBA
è attaccabile da chi è ..capace..e non penso siano pochi..si può
"craccare" anche la libreria..ma sono molto meno quelli che possono
farlo...
----
Noblues[ITA]
Maurizio Rota
> Come si interviene su un file che non si apre, una volta scaduto?
Aprendolo con OpenOffice 1.0.x.