Taip,galima su VBA.
Bet turiu nuliūdinti,kad Excel slaptažodžiai ir visokie lapų ar VBA projektų užrakinimai tik eiliniams vartotojams, minimaliai nesusipažinusiems su vidine struktūra.
Pasiūlyčiau kitokį variantą su datomis ir duotasis excel su duomenimis ar programa veiktų iki tam tikros datos.Kaip programos demo versija.
Štai kodas:
Į knygos modulį:
Private Sub Workbook_Open()
Galiojimo_kodas
End Sub
Į lapo modulį:
Sub Galiojimo_kodas()
Dim GaliojimoData As Date
GaliojimoData = DateSerial(2012, 12, 27) 'ta dieną jau neatidaroma
If Now() >= GaliojimoData Then
MsgBox "Pasibaigė leidimas naudotis duomenimis " & CStr(ExpirationDate) & "."
ThisWorkbook.Close savechanges:=False
End If
End Sub
Gruodžio 27 d. su esama duomenų baze knygoje nebus galima dirbti-neatsidarys knygos lapai.
Bet,kaip minėjau anksčiau,slaptažodžiai ir VBA kodo draudimas tik eiliniams vartotojams-slaptažodžiai yra nuimami,o VBA kodai redaguojami,nors VBA projektą ir užrakinsi keliai slaptažodžiais.
Ir apskritai,su galiojimo datomis slidus reikalas-galima PC datą pavaryti atgal,excel nuo to neapsaugotas,kaip kad demo programos.
Pridedu pavyzdį(kodai neužrakinti),kuris po švenčių gruodžio 27 d. nebe atsidarys:
_Date_12.27.xls