Excel VBA将BuiltinDocumentProperties设置为“文件说明”>“注释” - 设置为只读

Question

如何在更新VBA代码中的注释之后将Excel文件的BuiltinDocumentProperties注释设置为只读。用户不需要编辑excel文件的文件描述>注释。注意：我的问题是关于ntfs文件属性>详细信息选项卡>评论（BuiltinDocumentProperties），而不是Excel单元格注释。任何帮助表示赞赏。 。

我一直在研究长期:(没有运气，我发现这个链接 http://www.aspose.com/community/forums/thread/202068/question-about-document.builtindocumentproperties.security.aspx

，这样的事情，但没有阅读Aspose

Answer 1

试试这个：

Sub ChangePropertyComment() 
Dim NewComments As String 

NewComments = InputBox("Enter Comments", "Change Comments Property") 'use for dynamic comment 
'NewComments = "Read Only"           'use for predefined comment 

ThisWorkbook.Comments = NewComments 
ThisWorkbook.Save 
End Sub 

附加：

弱解决方法：

Private Sub Workbook_Open()  
ThisWorkbook.Comments = "locked" 
ThisWorkbook.Final = True 
End Sub 

好的解决方法：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
ThisWorkbook.Comments = "locked" 
End Sub