Disable "Save As" in word document 1

[Bitaoo]

Hello,

I appreciate your help in advance. I open a word
document in my VB6 program in this way:

Dim WD As Object
Set WD = CreateObject("Word.Application.8&quot
With WD
.documents.open FileName:="C:\Bita.doc"
.Visible = True
.displayalerts = False
End With

I don't know how can I disable "Save As..." in File menu
so the user cannot save this file in the other files?

Regards,
--Bita

 

[hookbob]

Hi Bita

This code should sort you out.

Dim olapp As Word.Application
Dim MnuItem As CommandBarControl
Dim MnuCmd As CommandBarPopup
Set olapp = CreateObject("Word.Application&quot
olapp.Documents.Add
Set MnuCmd = olapp.CommandBars.ActiveMenuBar.Controls("File&quot
Set MnuItem = MnuCmd.Controls("Save &As...&quot
MnuItem.Enabled = False
olapp.Visible = True

You must include the Microsoft Office 10.0 Object Library and the Microsoft Word 9.0 Object Library in your project references also.

Hope it works !!!

Bobby.

 

[Bitaoo]

Thanks a lot Bobby.

--Bita