Locking a Word document

[mohansekar]

Hi all,

Can anybody tell how to lock a word document i.e user will not be able to edit the document. Please don't say, set the READONLY prompt. It doesn't prevents the user from editing the document it restrict the user form resaving the same document.

Help me plz.....

m.

 

[RichardF]

try this:

Private oWordApp As Word.Application
Private oDoc as Word.Document

Private Sub Form_Load()
Set oWordApp = CreateObject("Word.Application&quot
If Not oWordApp Is Nothing Then
oWordApp.Documents.Open "filename.doc"
oWordApp.Documents("filename.doc&quot.Protect(wdAllowOnlyComments,,"password&quot
End If
End Sub

use Unprotect to, well i'm sure you can guess. ...

 

[mohansekar]

Hi Richard,


Thanx a lot for the code.

bye