Question

如何用VB6.0实现只读查看word文档

想用vb6.0编写个模块，用于查看WORD、EXCEL文档，要求只能查看，不允许其他操作（如复制文本、另存为等），希望哪位高手能提供些思路或案例，先谢谢了！

Answer 1

On Error Resume Next
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook
Set objExcel = CreateObject("Excel.Application")
'Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

‘只读打开
objWorkBook.OpenLinks "D:\1.xlsx", ReadOnly:=True

Answer 2

使用部件即可，打开后把Enable设为假即可。

追问

你好，能说一下具体是哪个部件吗，不是用WebBrowser吧

追答