Lock project for viewing

[javiernews via AccessMonster.com]

Hi

I try the following code in order to know if my VBA code is lock project for
viewing. But an error 2091occurs,....... (lock project for viewing is an
invalid Name)

Function fTest()
Dim varTest
varTest = Application.GetOption("lock project for viewing")
MsgBox varTest
End Function

QUESTION: How to know if your current DB is locked for viewing pragmatically
(by code) ???

Thank you !