
word
2.对selectioin.change事件编程 查看当前是否在规定的表格里 如果不是,则回到表格中
3.用代码给word 文件加密
Dim wordApp As word.Application Dim wordDoc As word.Document
Set wordApp = CreateObject( word.Application ) Set wordDoc = wordApp.***.Open( c:\aa.doc )
wordDoc.Protect wdAllowOnlyComments, , 加密的密码
wordDoc.SaveAs strSavewordPath wordDoc.Close wordApp.Quit Set wordDoc = Nothing Set wordApp = Nothing
这样让用户的光标离不开表格也就无法进行其它操作了
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号