Problem solve Get help with specific problems with your technologies, process and projects.

Prevent Users From Opening A View

We all know we can hide views from users by putting the name in parenthesis.
This isn't foolproof though, as we all know the ctrl + Shift Trick. Put this
code in the Queryopen event of the view to completely lock users out. This is
useful for public dblookups, but you don't want normal users to see the
documents.

One caveat, if the person is a developer, and has debug LotusScript turned on,
they can see the password.
Dim pwd As String
'*******************************
'* Get password from user
'*******************************
pwd = Inputbox("Enter the password required to use this view", "Password")
'*******************************************
'* See if user put in proper password
'*******************************************
If Ucase(pwd) = "FAJITA" Then
'**********************************
'* They got it right, let them in
'**********************************
continue = True
Else
'*************************************************
'* They don't belong here, don't let them in
'*************************************************
Msgbox "Wrong Password. You do not need to use this view.", 0 + 16,
"Unauthorized Access"
continue = False
End If

Dig Deeper on LotusScript

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close