Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Lotus version 6.  What do I need to do to make a form to only be able to open for certain people?

Posted on 2004-09-08
14
Medium Priority
?
276 Views
Last Modified: 2013-12-18
I have a view that displays documents that are created by an agent but I only want certain people to be able to open these documents.  I have tried creating a role and changing the key tab on the form but it is still available to all users.

0
Comment
Question by:sjmmajor
  • 7
  • 5
  • 2
14 Comments
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 12006866
Are all those people allowed to open all those documents? Are these generated documents in a view together with other documents?
0
 
LVL 24

Expert Comment

by:HemanthaKumar
ID: 12006893
Create Readers type field and populate the role or group in this field.. So only those who are listed in this field can see the doc and open it.

~Hemanth
0
 

Author Comment

by:sjmmajor
ID: 12006923
They are allowed to view other documents in other views and they can view the documents in this view.  I just want only certain people to actually be able to open these particular documents.  Only the generated documents are in this view.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 12006942
Changing the form won't be enough. The document contains the necessary settings, not the form, it merely displays a document. I suppose you need the following:
- an agent in LotusScript
- create a Readers-field with multiple values
- values "[YourRole]" and "[Manager]" to make sure a Manager can read all documents

Someone without YourRole will not even see the document appear in ANY view.
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 12006982
So they should be allowed to SEE the document in the view, but they are not allowed to OPEN the document in a form? Then you need to do some checking in the QueryOpen-event in the form. If someone lacks YourRole, Continue must be set to False.
0
 

Author Comment

by:sjmmajor
ID: 12007034
sjef - Yes, do you know the script off hand?
0
 
LVL 24

Expert Comment

by:HemanthaKumar
ID: 12007062
sjmmajor,

Then add this script to the queryopen of the doc

Dim session As New NotesSession
Dim acl As NotesACL    
Dim entry As NotesACLEntry

Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( session.CommonUserName )

If entry Is Nothing Then
  Set entry = acl.GetEntry( session.UserName )
End If

If entry Is Nothing Then
   Msgbox "You are not authorized to open this doc"
   Continue = False
End If

If entry.IsRoleEnabled( "[UserRole]" ) Then
   Msgbox "You are not authorized to open this doc"
   Continue = False
End If
0
 

Author Comment

by:sjmmajor
ID: 12007205
Well I got it to show not authorized but I am in that group.  So I guess is there an If entry.is not role enabled?
0
 
LVL 46

Accepted Solution

by:
Sjef Bosman earned 1000 total points
ID: 12007238
Version 6 eh?

Dim session As New NotesSession
Dim v As Variant

Set db = session.CurrentDatabase
v= Evaluate("@UserRoles")
If IsNull(ArrayGetIndex(v, "[UserRole]")) Then
   Msgbox "You are not authorized to open this doc"
   Continue = False
End If

I don't like Evaluate, but it sure comes in handy sometimes...
0
 

Author Comment

by:sjmmajor
ID: 12007459
I changed in your first code to "IF not entry.isroleenabled" and I do get the message on only people not in the role but it also gives and error message "Object Not Set" after it gives the not authorized message.  Your last code I get the Not authroized message myself.  Should I have replaced all of the previous code?  I did but maybe I shouldn't.

0
 

Author Comment

by:sjmmajor
ID: 12007515
Never mind.  In the last code I forgot to change Userrole to the correct name.  The last one worked!!! No errors.  I am going to go around and try the function on some other emails.  

Thanks so much!!
0
 

Author Comment

by:sjmmajor
ID: 12007596
Perfect.  Thanks for your quick responses!  Everything seems to be working.

0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 12008799
Hemantha's code is functionally equivalent to mine, you could have given him a piece of the cake.

Thanks!
0
 

Author Comment

by:sjmmajor
ID: 12009230
Your right.  My apologizes.  I get so caught up with what I am doing that I need to remember to revisit all responses.  
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You’ve got a lotus Domino web server, and you have been told that “leverage browser caching” is a must do. This means that we have to tell the browser everywhere in the web to use cache. In other words, we set (and send) an expiration date in the HT…
  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
In a question here at Experts Exchange (https://www.experts-exchange.com/questions/29062564/Adobe-acrobat-reader-DC.html), a member asked how to create a signature in Adobe Acrobat Reader DC (the free Reader product, not the paid, full Acrobat produ…
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…
Suggested Courses

581 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question