home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SAMPLES / SUITE / DW10_S3.LSS < prev    next >
Text File  |  1996-09-29  |  413b  |  14 lines
  1. Option Public
  2.  
  3. Sub DocAccess
  4.     ' Declare the variable CrntEditor and assign it the value
  5.     ' of the current user's name.
  6.     Dim CrntEditor As String
  7.     CrntEditor = .Preferences.UserName
  8.  
  9.     ' Restrict editing of this document to the current editor.
  10.     CurrentDocument.DocControl.DocControlRestrictedToEditor = CrntEditor
  11.     CurrentDocument.DocControl.FileProtectionType = $LwpFileProtectTypeOrigAuthor
  12. End Sub
  13.  
  14.