易截截图软件、单文件、免安装、纯绿色、仅160KB

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"

引用
一支杯子，看楼主的代码是想保护工作簿

嘿嘿，你把脖子伸那么长，好象还是没看出真相来 ..............

学习了
引用
引用 5 楼 patrickkong 的回复:
一支杯子，看楼主的代码是想保护工作簿

嘿嘿，你把脖子伸那么长，好象还是没看出真相来 ..............


我的代码是能用的。
脖子伸的长是因为闻到酒香，替你喝了，省的你手老是举着�


相关问答：

vb如何调用Illustrator（此前Illustrator未启动）？

请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VB 的 PictureBOX 控件绘图问题 - VB / 控件

初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
  Picture1.Top = -VScroll1.Value + bcW '垂直移动
  Picture1.Left = -HScroll1.Value + bcW ' ......

怎么用VB做远程上传文件时的进度条？

我在用VB写一个将视频文件上传到远程数据库的小程序，现在想要用进度条来显示当前上传的进度，请问要怎么做呢？我是个新手，所以麻烦大家把意见写清楚一些，有代码最好啦，谢谢！
要完全正确比较困难。
估计下� ......

vb可以这样做不？ - VB / 非技术类

可以吗
好奇怪的题目额！！

可以告诉我们你到底想问什么 ？

2分给我的话就可以。

........................可以吗

可以!


  纠结，

29. vb可以这样做不？ ( H )√
 A. ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号