Disable security through NRS scripts....

Hi, I have a script that disables the security level on a document profile:

CONST nrDefaultSecurity=17

Sub EditProfileDlg_OnInitDialog(dlg)
'MsgBox "Edit ProfileDlg Fire OnInitDialog"

'Code to set default security to public and readonly
dlg.SetAttributeValueByID nrDefaultSecurity, imPublic, False
End Sub

is it possible to disable the button to modify who has access to that document as well?

thanks!

Find more posts tagged with

Comments

jny

Hi, I have a script that disables the security level on a document profile:

CONST nrDefaultSecurity=17

Sub EditProfileDlg_OnInitDialog(dlg)
'MsgBox "Edit ProfileDlg Fire OnInitDialog"

'Code to set default security to public and readonly
dlg.SetAttributeValueByID nrDefaultSecurity, imPublic, False
End Sub

is it possible to disable the button to modify who has access to that document as well?

thanks!

There isn't a way to disable that button, but what you can do is set the ACL's dialog to read-only. Like so:

[EditProf.nrs]


Sub EditProfileDlg_OnInitDialog(dlg)
 dim usrGrpSecDlg
 set usrGrpSecDlg = dlg.UsrGrpSecurityDlg
 usrGrpSecDlg.ViewMode = True
End Sub

Jime0726

The code worked great, thanks...now the one issue I have is with my code below, it's not only graying out the security level but it's also defaulting it to private. which string needs to change for it to default to public?

CONST nrDefaultSecurity=17

Sub NewProfileDlg_OnInitDialog(dlg)
'MsgBox "New ProfileDlg Fire OnInitDialog"

'Code to set default security to public and readonly
dlg.SetAttributeValueByID nrDefaultSecurity, imView, False

dim usrGrpSecDlg
set usrGrpSecDlg = dlg.UsrGrpSecurityDlg
usrGrpSecDlg.ViewMode = True
End Sub

jny

The code worked great, thanks...now the one issue I have is with my code below, it's not only graying out the security level but it's also defaulting it to private. which string needs to change for it to default to public?

CONST nrDefaultSecurity=17

Sub NewProfileDlg_OnInitDialog(dlg)
'MsgBox "New ProfileDlg Fire OnInitDialog"

'Code to set default security to public and readonly
dlg.SetAttributeValueByID nrDefaultSecurity, imView, False

dim usrGrpSecDlg
set usrGrpSecDlg = dlg.UsrGrpSecurityDlg
usrGrpSecDlg.ViewMode = True
End Sub

This should work:

Const nrDefaultSecurity=17
Const nrPublic=80

Sub NewProfileDlg_OnInitDialog(dlg)
'Code to set default security to public and readonly
dlg.SetAttributeValueByID nrDefaultSecurity, nrPublic, False

dim usrGrpSecDlg
set usrGrpSecDlg = dlg.UsrGrpSecurityDlg
usrGrpSecDlg.ViewMode = True
End Sub

Jime0726

excellent! works great...thank you for the code!