发布网友 发布时间:2022-04-26 15:15
共3个回答
热心网友 时间:2022-04-09 11:41
用不到exe,小题大做了,使用vba代码编个form就好了
将以下代码写入thisworkbook
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
Application.WindowState = xlMinimized
UserForm1.Show
Application.ScreenUpdating = True
End Sub
按alt+f11打开vbe,插入用户窗体,在用户窗体界面上,拖入textbox1,和command1,在command1的下方,拖入label1,将command1的captain改成“查询”,双击command1,将以下代码复制进去
Private Sub CommandButton1_Click()
with userform1
wb = .textbox1.text
cz = thisworkbok.sheets("sheet1").usedrange.find(what:= wb)‘这里sheet1是你的sheet _名称
if not cz is nothing then
.label1.captain = '你的问题不全,这里就是你需要显示的内容
end if
end with
end sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close
End Sub
总结,在打开excel时,将其最小化,并打开vba窗体,以此显示查询内容,且将窗体关闭前先将excel关闭,以该种方式让用户查看不到excel文件内容。
最后,针对你的excel的sheet可以使用密码保护的,就是在该sheet激活前,弹出inputbox验证密码,这也是一种方式呢
热心网友 时间:2022-04-09 12:59
你的意思是想做一个exe应用程序,使用一个excel当做数据库,对数据进行查询,但又不想让别人看到你的exe文件,是吧?
热心网友 时间:2022-04-09 14:33
1. 太模糊了点吧,什么数据库?做好了数据库吗?
2. 应该没那么简单,用VBA编程吗?还是写一个EXE程序?