Microsoft Office Forums - View Single Post - [Solved] Multi user template continues to be saved over.

Charles Kenyon · 01-24-2019, 11:47 AM

Here is a macro that, if placed in a macro enabled template, will create a new document based on the template and close the template if someone opens the template.

Code:

Sub AutoOpen()
      ' Prevent opening of template with macros active
      ' Creates a new document based on the template instead of opening the template
      ' 24 January 2019
      ' Charles Kenyon
      '
      If ActiveDocument.Name = ThisDocument.Name Then
          Documents.Add (ThisDocument.FullName)
          ThisDocument.Close SaveChanges:=False
      End If
  End Sub

I've attached such a template.
Note, to open such a template for editing, you must hold down the Shift key when opening it.

It would need to be stored in a trusted location such as the Workgroup Templates folder. If you place it somewhere not OK'd for macros, then it will open ordinarily and if macros are enabled, the macro would run.