VB 保存EXCEl 如何禁止用户操作!
来源:百度知道 编辑:UC知道 时间:2024/09/20 03:42:33
虽然隐藏工作簿是一个办法,但是若信息很多的话,保存需花费一点时间!若用户可能等不及在主界面上再次操作很可能系统会蹦!可不可以禁止用户对界面操作!这样隐藏才有效!希望各位大侠在次帮忙!!谢谢!
为什么不把信息保存到注册表???
隐藏工作表1(Sheet1)
Sheet1.Visible = False
如果只是为了防止用户在处理EXCEL过程中做修改,你可以将Excel.Application的Visiable设置成False这并不影响数据读写,处理完后设成True,Save(这个时候用户操作不了Excel)后再Quit就可以了。
处理这类问题一般都选用一种办法 就是 吧Vb先保存 一个暂时的 Excel 文件,等保存结束后就替换掉以前的文件,然后吧临时文件删掉
我给你源码好了,
Private Sub TOexcel()
Dim Xapp As Excel.Application
Dim Xwk As Workbook
Dim Xsh As Worksheet
Set Xapp = New Application
Set Xwk = Xapp.Workbooks().add
Set Xsh = Xwk.Worksheets(1)
On Error GoTo HandErr:
Xapp.Visible = FALSE ‘这地方=FALSE 就不显示了,
'这是你的导出过程
' ...
Xapp.Visible = TRUE '这个地方=true 就显示了,
HandErr:
If Err.Number = 0 Then
Exit Sub
ElseIf Err.Number = 424 Then
MsgBox "可能您正在导出EXCEL被关闭了,请重新操作", vbExclamation, OP1
Err.Clear
Exit Sub
Else
MsgBox Err.Number &