选中EXCEL某单元格,用VBA语言触发事件,直接打开有密码的数据库文件.
发布网友
发布时间：2022-04-29 11:26
我来回答
共2个回答
热心网友
时间：2022-06-26 22:16
如果要详细的代码最好将.MDB文件上传，或者用录制宏功能录制打开数据库的宏，录制后找到 Password="""" 改为 Password=""2345"" 并将宏命名为“打开数据库”
在sheet1页右键点击页标签选查看代码，在VBE编辑器中粘贴以下代码即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$7" Then
Call 打开数据库
End If
End Sub追问你好，我试着录制宏打开数据库，但好像不行；你可以自己建一个数据库（比如DB1.mdb),再设置一个密码（12345），在EXCL文件中用VBA语言直接打开DB1.mdb，如能这样就达到我的目标了，非常感谢你的回答。
热心网友
时间：2022-06-26 22:16
建议使用超链接，选中SHEET1中F7单元格然后按Ctrl+K，打开“编辑超链接”对话框，找到D:\DATA\DB1.mdb文件，然后“确定”即可。这样，以后只要单击F7单元格就会自动打开D:\DATA\DB1.mdb文档了，其实输入密码不是很麻烦的事。用vba编程，可以用getobject语句实现。追问谢谢你，我不想用超链接，我需要用VBA语言来完成这项功能。
选中EXCEL某单元格,用VBA语言触发事件,直接打开有密码的数据库文件.
如果要详细的代码最好将.MDB文件上传，或者用录制宏功能录制打开数据库的宏，录制后找到 Password=""" 改为 Password=""2345"" 并将宏命名为“打开数据库”在sheet1页右键点击页标签选查看代码，在VBE编辑器中粘贴以下代码即可 Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target...
用VBA打开带密码的EXCEL文件代码,以及不显示更新提示和没有找到文件显示...
一、读取密码文件 在代码的循环（FOR）之前，加入一行代码：n = ActiveWorkbook.Name '取得当前工作簿名字 在循环的开始（FOR下面），加入下面三行代码，先把目标工作簿打开 na=pt & Cells(I, 13)Workbooks.Open Filename:=na, password:=123456 '打开密码为123456,如果该工作簿无密码则不影响打开 a...
用VBA代码打开其他excel工作簿(有打开密码的)???
Sub FindFileOpen()On Error Resume NextMsgBox "请选择要打开的文件", vbOKOnly + vbInformation, "打开文件"If Not Application.FindFile ThenMsgBox "文件未找到", vbOKOnly + vbInformation, "打开失败"End IfEnd Sub用最简单，最简短的VB命令打开一个文件，请参照！
Excel VBA 运行一个宏,可以打开对话框选择档案,并将选择的工作簿里的...
wb.saveas replace(filetoopen, ".csv", ".xlsx") , xlOpenXMLWorkbook wb.close 以上三行代码要放到：MsgBox "选中了" & fileToOpen & "文件" 这一句的下面
EXCEL VBA中单元格发生改变触发事件,怎么指定某个单元格
如图，一般加个IF来判断当前单元格量是否是指定的单元格，是就执行代码。Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" Then [a2] = [a2] + 1End IfEnd Sub
如何在excel中用VBA编写代码,打开任一工作簿时,选中的单元格所在的行...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Rows(Target.Row).Interior.Color = vbRedEnd Sub
EXCEL 怎么用VBA代码在某单元格上双击,就可以把单元格的内容复制到剪贴...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Target.Copy Cancel = True End Sub 但单元格的格式等都被复制到了，粘贴是要进行选择性粘贴-数值或公式选项。
excel如何做到鼠标点击某单元格,另一单元格就自动显示鼠标单元格的内...
1.Alt+F11，打开VBA编辑界面，双击左侧Microsoft Excel对象下的“Sheet1”，确保程序是在sheet1中执行 2.点击下图“通用”右侧的下拉箭头，选择worksheet 3.此时，代码编辑区，自动出现两串代码，如下图所示：4.补充写上一句代码“Range("h1")=Target.text"5.关闭VBA界面，返回Sheet1，点击任意单元格...
Excel VBA 单击同一个单元格触发事件怎么做?
没有直接的解决办法.换一种思路吧.在关闭窗体事件加入:Application.ScreenUpdating = False'取消Excel刷新 Sheet1.Range("A65536").Select'关闭窗体后,自动选择另一个固定单元格 Application.ScreenUpdating = True'恢复Excel刷新 然后在Worksheet_SelectionChange事件中,加入 if Target.Address(0, 0)="A...
excel中怎么使用VBA插入一个按钮 使其点击按钮实现在某单元格输入的功能...
步骤如下：1.开发工具，插入，按钮 2.拖动绘制按钮，在弹框中选择，新建 3.在新界面中输入如下代码 4.这样，每次点击按钮，就会在选中单元格中输入内容了
