Hi,

this one might help, but only to a very limited extend:

Dim oCmm As CommandBar
For Each oCmm In ActiveDocument.CommandBars
  If oCmm.Visible = True Then
  oCmm.Protection = msoBarNoChangeDock
  oCmm.Protection = msoBarNoChangeVisible
  oCmm.Protection = msoBarNoCustomize
  oCmm.Protection = msoBarNoMove
  ' some more
  End If
Next

Though it seems, most of them, like
msoBarNoChangeVisible and msoBarNoCustomize are of no use.

I made a script, which copies untouched templates
from a write protected server volume
to the workstations on every login.

In addition, there is a "rescue me" command
in the windows start menu.

But there is no perfect solution, IMHO.