如何用VB打开设有密码的EXCEL文件

很久没弄VB了,给个思路你吧 1.关于密码好像是在打开EXCEL工作簿语句里的 2.打开后首先查找定位,然后取行号,再用INPUT取该行号的数据就行了 3,不知道EXCEL里如何操作的话利用录制宏,然后查看语句来学习!

1.打开需要加密码的文件；2.按F12(也就是另存为)，在另存为对话框在菜单“工具”中点“常规选项”，即可看到两个密码设置，以及备份、建立只读等设置；3.根据需要，设置打开权限密码或修改权限密码(可以打开看，只是修改后保存时要求密码)，即可。还有其他方法，比如打开文件后，直接在菜单“工具”->...

If MsgBox(IIf(isFirstFlag, "该工作簿密码保护，是否输入密码", "密码错误，是否重新输入密码"), vbOKCancel) = vbOK Then szPass = InputBox("请输入密码")isFirstFlag = False GoTo OpenWorkBook Else oExcel.quit Set oExcel = Nothing End If Else MsgBox "打开成功"End If End Sub ---...

1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。2、在弹出的对话框内选择信任中心。3、点击信任中心设置，进入下一个对话框。4、点击宏设置，而后选择启用所有宏。5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。6、就可以重新打开...

Set wkbObj = ex.Workbooks.Open(App.Path & "\1.xls", , , , "123", "") '这里的123为打开密码 Set wksObj = ex.Worksheets(1)参考资料：http://topic.csdn.net/t/20020804/21/923550.html

1、在工程中引用Microsoft Excel类型库：从\"工程\"菜单中选择\"引用\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\"确定\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...

给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)： Shell "NotePad.EXE f:\d.txt ",vbNormalFucus；五、用RichTextBox控件自身的LoadFile属性打开文件： RichTextBox1.LoadFile "f:\d.txt ", rtfText。

1、单击工作簿窗口左上角的“office”按钮，在下拉菜单中单击“另存为”命令，打开“另存为”对话框。2、单击对话框的“工具”下拉按钮，在下拉菜单中单击“常规选项”命令，打开“常规选项”对话框。3、在对话框的“打开权限密码”文本框输入打开文件的密码如“0”，“修改权限密码”文本框输入修改...

可以做一个简单的程序，自动修改密码：下面为VB打开一个有密码的xls文件然后修改密码的函数，贴粘即可使用。Function UnprotectXL(filePath, fileName, pwd, writeresPwd)Set objExcel = CreateObject("Excel.Application")objExcel.Visible = False testData = filePath & "\" & fileName Set o...

Sub 访问共享文件()IPName = "192.168.0.10"UserName = "user"Passwd = "password"Shell "net use * /delete /y", vbHide Shell "net use \\" & IPName & " " & Passwd & " /user:" & UserName, vbHide Shell "C:\WINDOWS\explorer.exe \\" & IPName & "\", vbMaximized...