如何将word文档中的内容更改为不可编辑状态
3个回答
展开全部
有几种方法、
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
这样让用户的光标离不开表格也就无法进行其它操作了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询