[ pcpopovic @ 18.03.2016. 16:46 ] @
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. |