VB操作excel加密的问题
用VB操作Excel加密，部分代码这样写的：
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.SheetsInNewWorkbook = 1
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Item(1)
xlApp.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
不知道为什么，根本都生成不了excel文件，如果把最后一句话去掉，生成文件正常，高手指点一下，到底应该怎么给exce加密呢？
试试Password:="123“
试过了，依然不好用，怎么办呢？
你的“加密”用词不当。
不太明确你的目的。
是想让生成的文档打开时要输密码（打开权限密码、修改权限密码）？
还是“保护工作簿”？
ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True
一支杯子，看楼主的代码是想保护工作簿
谢谢大家，把代码这样改就对了
xlSheet.Application.ActiveWorkbook.PassWord = "123"
嘿嘿，你把脖子伸那么长，好象还是没看出真相来 ..............
学习了
我的代码是能用的。
脖子伸的长是因为闻到酒香，替你喝了，省的你手老是举着�
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
第一次接触CrystalReport
急寻找Vb.net Access 通过查询出的数据输出到CrystalReport的例子.
有的朋友麻烦发来学习.多谢!
跟你的要求差不多，参考一下：
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
我在用VB写一个将视频文件上传到远程数据库的小程序，现在想要用进度条来显示当前上传的进度，请问要怎么做呢？我是个新手，所以麻烦大家把意见写清楚一些，有代码最好啦，谢谢！
要完全正确比较困难。
估计下� ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
