只读自定义属性

Question

我设法从 VBA 为 MS Word 添加自定义属性（元数据），但如何使其只读以便无法轻松更改？

Answer 1

使用文档变量（http: //msdn.microsoft.com/en-us/library/bb212231.aspx）。 您只能通过代码访问它们。 他们没有用户界面。

以下是我使用的一些旧 VB6/VBA 函数：

Public Sub SetVariable(oDocument As Word.Document, sName As String, sValue As String)

      Dim oVariable As Word.Variable

      Set oVariable = LocateVariable(oDocument, sName)

      If Not oVariable Is Nothing Then

          oVariable.Value = sValue

      Else

          oDocument.Variables.Add sName, sValue

      End If

End Sub

Public Function GetVariable(oDocument As Word.Document, sName As String) As String

      Dim oVariable As Word.Variable

      Set oVariable = LocateVariable(oDocument, sName)

      If Not oVariable Is Nothing Then

          GetVariable = oVariable.Value

      Else

          GetVariable = ""

      End If

End Function

Public Function LocateVariable(oDocument As Word.Document, sName As String) As Word.Variable

      Dim oVariable As Word.Variable

      For Each oVariable In oDocument.Variables

          If StrComp(oVariable.Name, sName, vbTextCompare) = 0 Then

              Set LocateVariable = oVariable

              Exit Function

          End If

      Next

      Set LocateVariable = Nothing

End Function

Answer 2

你不能。

根据您想要避免的情况，您也许可以“混淆” 通过以某种方式加密内容来获取属性。 这将使用户更难弄清楚如何将它们更改为有用的东西 - 但不会阻止用户“破坏”它。