VB 保存EXCEl 如何禁止用户操作!

来源：百度知道 编辑：UC知道 时间：2024/06/24 19:11:45
VB将信息保存到Excel中，若在保存过程，用户对Excel进行修改，会导致VB出现异常，有没有办法禁止用户进行操作，有一个办法，将Excel的visiable不可见，但同时其他操作也进行不了！请问各位过路大侠，有没有更好的办法？
虽然隐藏工作簿是一个办法，但是若信息很多的话，保存需花费一点时间！若用户可能等不及在主界面上再次操作很可能系统会蹦！可不可以禁止用户对界面操作！这样隐藏才有效！希望各位大侠在次帮忙！！谢谢！

为什么不把信息保存到注册表？？？

隐藏工作表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 &