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