home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW10_S4.LSS < prev    next >
Text File  |  1996-09-29  |  1KB  |  29 lines
  1. Option Public
  2. %include "wpbitmsk.lss"
  3.  
  4.  
  5. Sub EditingRights
  6.     ' Declare the variable CrntEditor and assign it the value' of the current user's name.
  7.     Dim CrntEditor As String
  8.     CrntEditor = CurrentApplication.Preferences.UserName
  9.     
  10.     With .ActiveDocument
  11.         ' Restrict access to the TeamSecurity dialog to the' current editor.
  12.         .DocControl.DocControlRestrictedToEditor = CrntEditor
  13.  
  14.         ' Specify who has access to open the document
  15.         .DocControl.FileProtectionType = $LwpFileProtectTypeNone
  16.  
  17.         ' Restrict all editors other than the current editor to a 
  18.         ' new version, with remarks only and do not allow them to
  19.         ' make any suggestions
  20.         .EditorManager.Editors("All Others").Abilities =  $LwpEditAbilEditNewVersionsOnly
  21.         .EditorManager.Editors("All Others").Locks =  LwpEditLocksRevmarkOnly
  22.         .EditorManager.Editors("All Others").Suggestions = LwpEditSuggNoSuggestions
  23.  
  24.         ' Specify the current editors rights as unlimited
  25.         .EditorManager.Editors(CrntEditor).Abilities = $LwpEditAbilEditCurrentOrNewVer
  26.         .EditorManager.Editors(CrntEditor).Locks = LwpEditLocksNoLocks
  27.         .EditorManager.Editors(CrntEditor).Suggestions = LwpEditSuggNoSuggestions
  28.     End With
  29. End Sub