[已解决]可不可以实现“编辑查询”失效来保护源查询代码

winter_ice

在excel表中建立了Oracle数据库的一个odbc查询，并有两个参数

做好之后可以实现正常查询，因为现在想交给其他人使用

现在的问题是：在excel表中点右键，底下出现“编辑查询”、“数据区域属性”“参数”还有“刷新”四项

如果点“编辑查询”，就能登录数据库，看到源代码

牵扯到oracle数据库结构和其它一下因素 不想源查询代码被看到

也就是“编辑查询”、“数据区域属性”“参数”三项尤其是“编辑查询”能不能失效或者不显示或者其他的措施

“刷新”是需要的，因为需要其他人换参数后 查询出另一数据 

表中也不能用锁定工作表的方式 这样无法查询 并且数据也无法复制到别的地方！

vO2z9JrE.rar (2.44 KB, 下载次数: 1)

2009-11-21 22:28 上传

点击文件名下载附件
可不可以实现“编辑查询”失效来保护源查询代码

[此贴子已经被作者于2009-11-21 22:32:30编辑过]

最佳答案

月排行榜 / 总排行榜

FookYou

2009-11-23 14:07

Private Sub Workbook_Open()
  Dim Sy, i%
  Sy = Array(1950, 1951, 537, 459)
  For i = 0 To 3
    Application.CommandBars("Query").FindControl(ID:=Sy(i)).Enabled = False
  Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Sy, i%
  Sy = Array(1950, 1951, 537, 459)
  For i = 0 To 3
    Application.CommandBars("Query").FindControl(ID:=Sy(i)).Enabled = True
  Next i
End Sub

跳转到最佳答案楼层

吕?布

 文件打开时把这三个按钮屏蔽

winter_ice

请教楼上怎么把这三个按钮屏蔽啊

BJ

我也想知道如何屏蔽这3个键

FookYou

Private Sub Workbook_Open()
  Dim Sy, i%
  Sy = Array(1950, 1951, 537, 459)
  For i = 0 To 3
    Application.CommandBars("Query").FindControl(ID:=Sy(i)).Enabled = False
  Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Sy, i%
  Sy = Array(1950, 1951, 537, 459)
  For i = 0 To 3
    Application.CommandBars("Query").FindControl(ID:=Sy(i)).Enabled = True
  Next i
End Sub

winter_ice

请教 代码放到什么地方啊 能不能把代码放到我的excel表里面修改一下啊 多谢了

我对vba是个新手

winter_ice

QUOTE:

以下是引用FookYou的发言：

Private Sub Workbook_Open()
  Dim Sy, i%

请教 通过工具栏上外部数据工具栏也可以访问查询 这几个键如何屏蔽呢

[此贴子已经被作者于2009-11-23 21:30:52编辑过]

FookYou

Private Sub Workbook_Open()
  Dim Sy, i%
  Sy = Array(1950, 1951, 537, 459)
  For i = 0 To 3
    Application.CommandBars("Query").FindControl(ID:=Sy(i)).Enabled = False
    Application.CommandBars("External Data").FindControl(ID:=Sy(i)).Enabled = False
  Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Sy, i%
  Sy = Array(1950, 1951, 537, 459)
  For i = 0 To 3
    Application.CommandBars("Query").FindControl(ID:=Sy(i)).Enabled = True
    Application.CommandBars("External Data").FindControl(ID:=Sy(i)).Enabled = True
  Next i
End Sub

winter_ice

啊呀 楼上的你太厉害了 我佩服的五体投地啊

多谢