Use vba code to add code to a word doc to prevent user from using SaveAs in Word doc

[Martin Vanquish]

Hi,



I have an Access 2010 db which allows the user to browse and select an existing Word document created elsewhere. The form then copies the file to a location not known to the user and adds the new path and filename to a text field within current record.

I would like to embed vb code to the Word doc so that it prevents the user from accessing Word's SaveAs option so that the user cannot save the file to a different location or change the filename.

The application allows the user to open the doc from the new (unknown) location and "Save" any changes back to this location. I just want to prevent the user from saving any changes (disable SaveAs) to a location which is different to the full path/filename of that of the text field for the current record, when the file was originally attached.

Is this feasible?

Hope the above makes sense!

Many thanks.

[ranman256]

That's a tall order. The code wont work unless it's in every document (template).
Even if you prevent the Save As, what about copy text from the doc then pasting into another editor?

There may be a better expert out there that can answer this, but I dont see how.

[ItsMe]

I have never tried it for Word, but perhaps you can create a Custom Ribbon. I am not sure if a Custom Ribbon for Word is an add-in at the application level or the document level.

[Martin Vanquish]

any thanks for your reply.

Re "what about copy text from the doc then pasting into another editor" - They'd soon realise that re-opening the file from the app would still open the original file.

Is it possible to insert vba code from within MS Access into an existing Word doc?

Many Thanks.

[Martin Vanquish]

I created a plain text file DisableWord_SaveAs.bas containing the following text:

Sub FileSaveAs()
End Sub

Then ran the following code:-

Sub temp()
  Dim wordApp As Object
  Dim wordDoc As Object
  Dim vbProj As VBProject
  Dim vbComp As VBComponent
  Dim vbMod As CodeModule
  
  Set wordApp = CreateObject("Word.Application")

  If wordApp Is Nothing Then
     MsgBox "Could not start Microsioft Word.", vbCritical, "Error..."
  End If

  Set wordDoc = wordApp.Documents.Open("<Full Path To File>)
  For Each vbProj In wordApp.Application.VBE.VBProjects
     For Each vbComp In vbProj.VBComponents
        If vbProj.Name = "Project" And vbComp.Name = "ThisDocument" Then
           vbComp.CodeModule.AddFromFile ("DisableWord_SaveAs.bas")
           Exit For
        End If
     Next vbComp
  Next vbProj
  wordDoc.Save
  wordDoc.close
  wordApp.Quit
   
  Set wordDoc = Nothing
  Set vbMod = Nothing
  Set vbProj = Nothing
  Set wordApp = Nothing
End Sub

The code above adds the text contained in the DisableWord_SaveAs.bas text file, to the "ThisDocument" code module under the "Project" node in the VBE - thus disabling the FileSaveAs command.

**** Note: For the above to work, the user must have granted access to the VBA Object under:
File | Options | Trust Centre | Trust Centre Settings... (button) | Macro Settings and tick "Trust access to the VBA object model".

[ItsMe]

That's pretty slick.