home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 October / tst.iso / programs / lotus / LOTUS / SAMPLES / SUITE / DW10_S1.LSS < prev    next >
Encoding:
Text File  |  1996-09-29  |  1.1 KB  |  31 lines
  1. Option Public
  2. %include "wpbitmsk.lss"
  3.  
  4.  
  5. Sub ReviewRightsExample
  6.     ' Get name of the current editor and set it equal to the
  7.     ' variable CrntEditor then set up a greeting for the' document
  8.     Dim MyGreeting As String
  9.     Dim CrntEditor As String
  10.     CrntEditor = CurrentApplication.Preferences.UserName
  11.     MyGreeting = Inputbox("What greeting do you want to display?","Set Review Option")
  12.     
  13.     ' Set TeamReview Properties to prevent anyone other than
  14.     ' the current editor from editing this document
  15.     With .ActiveDocument
  16.         .DocControl.UseGreeting = True
  17.         .DocControl.Greeting = MyGreeting
  18.         .DocControl.FileProtectionType = $LwpFileProtectTypeEditors
  19.         .EditorManager.Editors("All Others").Abilities = $LwpEditAbilEditingNotAllowed
  20.         .EditorManager.Editors("All Others").Locks = LwpEditLocksNoCopyAndNoSaveas
  21.         .EditorManager.Editors("All Others").Suggestions = LwpEditSuggEditingInNewVersion
  22.         .EditorManager.Editors(CrntEditor).Abilities = $LwpEditAbilEditCurrentOrNewVer
  23.         .EditorManager.Editors(CrntEditor).Locks = LwpEditLocksNoLocks
  24.         .EditorManager.Editors(CrntEditor).Suggestions = LwpEditSuggNoSuggestions
  25.     End With
  26. End Sub
  27.  
  28.  
  29.  
  30.  
  31.