用不到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验证密码,这也是一种方式呢
温馨提示:答案为网友推荐,仅供参考