Question

vb 利用Excel.Application对象,怎么给表格设置密码

vb 利用Excel.Application对象,怎么给表格设置密码

注意,重点是设置密码,是设置新的密码,最好还能修改密码,

有这两种的,加分,麻烦帮忙

Answer 1

Sub test()
ThisWorkbook.Protect "123"
ThisWorkbook.Unprotect "123"
Sheet1.Protect "123"
Sheet1.Unprotect "123"
End Sub

追问

vb里怎么写..不是要宏代码...

追答

你要通过vb来控制excel？不是用excel中的vba？
你试一下按以下途径：
先在工程中引用(电脑里必须安装office的excel)
引用 miscrosoft excel 11.0 object library
然后可以写代码：
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
Set xlBook = xlApp.Workbooks.Add '添加一个新的BOOK
Set xlSheet = xlBook.Worksheets(1) '操作一个SHEET
xlSheet.Protect "123" '设置密码
xlSheet.Unprotect "123" ‘解除密码
’…………要什么操作类似添加
xlBook.SaveAs ("c:\1.xls") '保存文件
Set xlSheet = Nothing '释放对象
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

试试吧，我这里没有vb6.0程序，没有测试过。