[转帖] To kfyygtwg : 改變巨集安全層級

lotustower

http://blog.xuite.net/crdotlin/excel/9016472

所謂Sendkeys萬能只是因為它能模仿按鍵動作，因此凡是可以按鍵操作完成的設定或去執行某項功能都可用Sendkeys方法來達成。
網友常常要求使用VBA來改變巨集的安全性設定或信任存取VBA專案，而這真正代碼一般人都不會，因此就求諸Sendkeys的神功了。

'1. 設定巨集安全層級為高
   Sub setHigh()
      Application.SendKeys "%q%tmss{tab}h~"
   End Sub

---

'2. 設定巨集安全層級為中
   Sub setMid()
      Application.SendKeys "%q%tmss{tab}m~"
   End Sub

---

'3. 設定巨集安全層級為低
   Sub setLow()
      Application.SendKeys "%q%tmss{tab}l~"
   End Sub

---

'4. 設定信任存取VBA專案
   Sub setConf()
    If Not isConf Then toggleConfidence
   End Sub

---

  
'5. 取消信任存取VBA專案
   Sub offConf()
    If isConf Then toggleConfidence
   End Sub

---

' 測試是否信任存取VBA專案
Function isConf() As Boolean
Dim myProject As Object
    On Error Resume Next
    Set myProject = Application.VBE.ActiveVBProject
    On Error GoTo 0
    isConf = True
    If myProject Is Nothing Then
        isConf = False
    End If
End Function

---

' 切換信任存取VBA專案
   Sub toggleConfidence()
      Application.SendKeys "%q%tmst{tab}{tab}v~"
   End Sub

其中字串最前面都帶有%q，只是為了在VBE視窗測試時切換到Excel視窗而已，真正在Excel工作表視窗上執行代碼時是不需要的。

kfyygtwg

我发现自己不会用呀,我把工作表的宏安全性设为高,然后再用

Sub setLow()
      Application.SendKeys "%q%tmss{tab}l~"
   End Sub

粘贴在workbook里发现无效哩.应该怎样操作?有会的老师说明一下好吗?

lotustower

QUOTE:

以下是引用kfyygtwg在2007-8-20 20:33:58的发言：

我发现自己不会用呀,我把工作表的宏安全性设为高,然后再用

Sub setLow()
      Application.SendKeys "%q%tmss{tab}l~"
   End
  Sub

粘贴在workbook里发现无效哩.应该怎样操作?有会的老师说明一下好吗?

Module !!!

 

[em10]

wsri

繁体字的意思有待理解：

文中“設定信任存取VBA專案”是什么意思！

是指可以读取VBA代码？还是运行VBA代码？在帮助中都查不到！能否结合实际情况给点小例子！

[此贴子已经被作者于2007-8-21 2:53:47编辑过]

kfyygtwg

QUOTE:

以下是引用lotustower在2007-8-20 22:43:24的发言：

Module !!!

[em10]

这个模块要如何才能运行？我弄了一天了，还是没有看到效果，把我弄的附件传上来，请老师们帮我看看是不是这样弄的？

lohytZMb.rar (9.78 KB, 下载次数: 5)

2007-8-21 17:08 上传

点击文件名下载附件
[转帖] To kfyygtwg : 改變巨集安全層級

lotustower

QUOTE:

以下是引用kfyygtwg在2007-8-21 17:08:56的发言：

这个模块要如何才能运行？我弄了一天了，还是没有看到效果，把我弄的附件传上来，请老师们帮我看看是不是这样弄的？

試驗 ok 啊 , Xp + Office 2003

lotustower

QUOTE:

以下是引用wsri在2007-8-21 2:43:32的发言：

繁体字的意思有待理解：

文中“設定信任存取VBA專案”是什么意思！

是指可以读取VBA代码？还是运行VBA代码？在帮助中都查不到！能否结合实际情况给点小例子！

 

.....

 

kfyygtwg

QUOTE:

以下是引用lotustower在2007-8-21 19:19:52的发言：

試驗 ok 啊 , Xp + Office 2003

我的操作方法是,发附件的电脑是办公室的电脑,我现在是在家里的电脑来打开附件,先把EXCEl的宏设置成非常高,然后再打开老师再次传上来的附件,结果是EXCEl的宏设置成非常高,将关闭宏的使用,要是要在事前在别的电脑上先把宏设置安全性为低的话,那这条代码就会失去价值,那不等于告诉他们这个要是宏设置安全性为高的话,你所做的一切那不就成摆设.我的电脑使用也是Xp + Office 2003.我不知道老师是怎样操作的?

[此贴子已经被作者于2007-8-21 19:51:48编辑过]

lotustower

To crdotlin

我现在的试验仍然不成功,我的操作方法是,发附件的电脑是办公室的电脑,我现在是在家里的电脑来打开附件,先把EXCEl的宏设置成非常高,然后再打开老师再次传上来的附件,结果是EXCEl的宏设置成非常高,将关闭宏的使用,要是要在事前在别的电脑上先把宏设置安全性为低的话,那这条代码就会失去价值,那不等于告诉他们这个要是宏设置安全性为高的话,你所做的一切那不就成摆设.我的电脑使用也是Xp + Office 2003.我不知道老师是怎样操作的?

菱角

當你將安全性設置成 [最高] 或 [高]  層級時, 已經無法執行檔案中之巨集. 故無法設置成功.

請將先手動將安全層級設為 [中] 或 [低] 後, 再讀進檔案並且選擇 [啟用巨集] , 之後才能正常執行.