有幾種方法、1.用插入窗體的辦法：先在 檢視-〉工具欄-〉窗體，顯示窗體工具欄，然後在文件中不用保護的地方插入“文字型窗體域”，然後在 工具-〉保護文件 。這就可以防止窗體域以外的文字被複制，編輯。2.對selectioin.change事件程式設計 檢視當前是否在規定的表格裡 如果不是，則回到表格中 3.用程式碼給word 檔案加密 Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject( "Word.Application ") Set WordDoc = WordApp.Documents.Open( "c:\aa.doc ") WordDoc.Protect wdAllowOnlyComments, , "加密的密碼 " WordDoc.SaveAs strSaveWordPath WordDoc.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing 這樣讓使用者的游標離不開表格也就無法進行其它操作了
有幾種方法、1.用插入窗體的辦法：先在 檢視-〉工具欄-〉窗體，顯示窗體工具欄，然後在文件中不用保護的地方插入“文字型窗體域”，然後在 工具-〉保護文件 。這就可以防止窗體域以外的文字被複制，編輯。2.對selectioin.change事件程式設計 檢視當前是否在規定的表格裡 如果不是，則回到表格中 3.用程式碼給word 檔案加密 Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject( "Word.Application ") Set WordDoc = WordApp.Documents.Open( "c:\aa.doc ") WordDoc.Protect wdAllowOnlyComments, , "加密的密碼 " WordDoc.SaveAs strSaveWordPath WordDoc.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing 這樣讓使用者的游標離不開表格也就無法進行其它操作了