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

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

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

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

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程序，没有测试过。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/vfvvfs7vmvs7qvsq2p.html