Temat: Blokowanie pliku
Ok wprowadziłem twój kod i musiałem poprawić z Sheet1 na Arkusz1 bo Visual podświetlał na żółto składnie(Debug). Po uruchomieniu faktycznie jest okno do wpisania hasła ale cokolwiek wpisze lub nie po zatwierdzeniu OK arkusz automatycznie wyłącza się . Naprawdę nie mam wiedzy na temat Visuala i ciężko mi cokolwiek wydedukować dlaczego tak się dzieje:(
Oczywiście żadna zmiana daty systemowej nie wpływa na plik!?
Bo to musi być coś w rodzaju bomby, 7 dni a po tym okresie kompletnie nie do otwarcia, jedynie nowa kopia oryginału wydana przez autora może być przedłużeniem takiej licencji.
Private Sub Workbook_Open()
Dim wb As Workbook
Set wb = ThisWorkbook
Dim o_date As Date
Dim c_date As Date
o_date = wb.Worksheets("Arkusz1").Range("b2").Value
c_date = DateValue(Date)
If c_date - o_date > 7 Then
pass = InputBox("podaj haslo", "haslo podaj")
If pass <> wb.Worksheets("Arkusz1").Range("b1").Value Or pass = "" Then
MsgBox ("Haslo jest nieprawidlowe, nastapi zamkniecie programu")
wb.Close savechanges:=False
Else
wb.Worksheets("Arkusz1").Range("b2").Value = DateValue(Date)
'wb.Save
End If
End If
End Sub
Ten post został edytowany przez Autora dnia 19.08.16 o godzinie 21:51