Uzamčeno - nelze přidávat nové příspěvky.
No, nevim, jak by platnost dokumentu (tedy sesitu) by mela souviset s verzi excelu.
Platnost dokumentu nastavis treba takhle
Ten kod musis dat do modulu ThisWorkbook (TenoSesit) jinak to nebude fungovat - bacha na format datumu - ten zavisi na regionalnim nastaveni Windows
Private Sub Workbook_Open()
Dim dtPlatnost As Date
dtPlatnost = CDate("12/31/2012") 'pro anglicke Windows prostredi
dtPlatnost = CDate("31.12.2012") 'pro ceske Windows prostredi
If dtPlatnost < Now() Then
MsgBox "Tento soubor je uz neplatny a bude uzavren."
ThisWorkbook.Close (0)
End If
End Sub
Ale mel bys vedet, ze pokud to bude nekdo otevirat se zmacknutym Shiftem, toto udalostni makro se obejde a tedy ten soubor se nezavre.
Pokud to chces nejak zahadne jeste zkloubit s verzi excelu, tak tu si kodem zjistis dotazem na vlastnost excelu Application.Versioncitovat
Platnost dokumentu nastavis treba takhle
Ten kod musis dat do modulu ThisWorkbook (TenoSesit) jinak to nebude fungovat - bacha na format datumu - ten zavisi na regionalnim nastaveni Windows
Private Sub Workbook_Open()
Dim dtPlatnost As Date
dtPlatnost = CDate("12/31/2012") 'pro anglicke Windows prostredi
dtPlatnost = CDate("31.12.2012") 'pro ceske Windows prostredi
If dtPlatnost < Now() Then
MsgBox "Tento soubor je uz neplatny a bude uzavren."
ThisWorkbook.Close (0)
End If
End Sub
Ale mel bys vedet, ze pokud to bude nekdo otevirat se zmacknutym Shiftem, toto udalostni makro se obejde a tedy ten soubor se nezavre.
Pokud to chces nejak zahadne jeste zkloubit s verzi excelu, tak tu si kodem zjistis dotazem na vlastnost excelu Application.Versioncitovat
RSS nejnovější články