ellie
Lv 4
ellie asked in 電腦與網際網路軟體 · 8 years ago

如何disable Excel工具列

各位大大 :

請問VBA有無指令, 可以將視窗顯示比例的功能Disable, 因為想由程式鎖定, 不讓使用者更改!

Update:

Kubi 大大:

是2003版, 請指教, 如用vba設定用80%比例開啟後, Disable顯示比例更改! 謝謝

Update 2:

Kubi大大:

非常感謝你的指導, 請移至回答區, 謝謝!

另可否請問Controls("檢視(&V)").Controls("顯示比例(&Z)..."), &V,&Z...是什麼意思?

Update 3:

不好意思, 再問一點:

Controls("檢視(&V)").Controls("顯示比例(&Z)...")

If ct.Caption = "顯示比例(&Z):"

這三個地方, &V)之後沒任何符號

&Z)之後有...及:

又是什麼意思啊

1 Answer

Rating
  • Kubi
    Lv 5
    8 years ago
    Favorite Answer

    不知版大的Excel版本是否是2003?

    2012-11-18 09:57:05 補充:

    請將下兩組巨集貼入 ThisWorkbook 模組內試試看。

    [顯示比例]工具存在於[格式]工具列以及[檢視]功能表內,所以兩者都要Disable。

    另外第2組巨集是用來還原之用,避免下次開啟Excel後[顯示比例]工具會呈現Disable狀態。

    2012-11-18 09:57:21 補充:

    Private Sub Workbook_Activate()

      ActiveWindow.Zoom = 80

      Application.CommandBars("Worksheet Menu Bar").Controls("檢視(&V)").Controls("顯示比例(&Z)...").Enabled = False

    2012-11-18 09:57:34 補充:

      For Each ct In Application.CommandBars("Standard").Controls

        If ct.Caption = "顯示比例(&Z):" Then ct.Enabled = False

      Next ct

    End Sub

    2012-11-18 09:57:49 補充:

    Private Sub Workbook_Deactivate()

      Application.CommandBars("Worksheet Menu Bar").Controls("檢視(&V)").Controls("顯示比例(&Z)...").Enabled = True

    2012-11-18 09:58:00 補充:

      For Each ct In Application.CommandBars("Standard").Controls

        If ct.Caption = "顯示比例(&Z):" Then ct.Enabled = True

      Next ct

    End Sub

    2012-11-18 22:40:21 補充:

    請將下兩組巨集貼入 ThisWorkbook 模組內試試看。

    [顯示比例]工具存在於[格式]工具列以及[檢視]功能表內,所以兩者都要Disable。

    另外第2組巨集是用來還原之用,避免下次開啟Excel後[顯示比例]工具會呈現Disable狀態。

    Private Sub Workbook_Activate()

      ActiveWindow.Zoom = 80

      Application.CommandBars("Worksheet Menu Bar").Controls("檢視(&V)").Controls("顯示比例(&Z)...").Enabled = False

      For Each ct In Application.CommandBars("Standard").Controls

        If ct.Caption = "顯示比例(&Z):" Then ct.Enabled = False

      Next ct

    End Sub

    Private Sub Workbook_Deactivate()

      Application.CommandBars("Worksheet Menu Bar").Controls("檢視(&V)").Controls("顯示比例(&Z)...").Enabled = True

      For Each ct In Application.CommandBars("Standard").Controls

        If ct.Caption = "顯示比例(&Z):" Then ct.Enabled = True

      Next ct

    End Sub

    &V,&Z是指按下快速鍵的代碼,例如按下 Alt+V 與用滑鼠點選功能表的[檢視]相同。

    2012-11-18 22:42:02 補充:

    修訂:

    [顯示比例]工具存在於[格式]工具列...

    改為

    [顯示比例]工具存在於[一般]工具列...

    2012-11-19 08:05:21 補充:

    若後面還有...符號,表示點選該指令後會彈出選項視窗,供您選擇其視窗內的指令。

Still have questions? Get your answers by asking now.