Vremensko limitiranje korišćenja WorkBook-a
Hteo sam postaviti "vremensku zaštitu" korišćenja Excel fajla Kod-om:
Sub Workbook_Open()
Dim pswrd As String, rok As Date
rok = DateSerial(2016, 3, 16)
pswrd = InputBox("Upišite lozinku")
If pswrd = "12345" Then
If Date > rok Then
MsgBox "ISTEKAO JE DATUM ZA UPOTREBU! kontaktirajte autora"
ActiveWorkbook.Close
End If
Else
ThisWorkbook.Close
End If
End Sub
Ali, imam problem.
Kada se fajl otvara - traži lozinku (to je u redu), ali ako se lozinka ne upiše i izabere se: "Sačuvaj" ili "Nemoj sačuvati" - fajl se zatvara (i to je u redu), ali, ako se izabere "Odustani" - dozvoljem je pristup fajlu.
Ako se lozinka ispravno upiše - dolazi se do poruke: "ISTEKAO JE DATUM ZA UPOTREBU! kontaktirajte autora" (i to je u redu) i opet nudi: "Sačuvaj", "Nemoj sačuvati" i "Odustani". Na prve dve komande - zatvara fajl, a na "Odustani" - opet dozvoljava ulaz u fajl.
Radni listovi su zaštićeni (istom lozinkom) i namerno sam stavio datum koji je istekao, radi probe. U jednom momentu mi je Excel čak i prijavio (famoznu) grešku 1004.
 |  |
 |
