1  引言
作為一個優秀的表格處理軟體和系統開發平臺，Excel擁有許多無可替代的優勢。基於Excel環境開發的管理資訊系統，具有操作直觀性強、開發週期短的特點，因此形成了熟悉Excel操作的廣大使用者。為了保證開發系統的正常渠道流通及著作者利益，必須保護系統的使用許可權，本文通過VBA的開發應用，提出了一種Excel工作表使用者按鈕的限定方法，以此來完善其系統測試軟體的功能。
2  限定按鈕執行及其對應過程程式碼
限定工作表使用者按鈕的執行包括兩個方面的含義，即限定其按鈕物件的顯示及其指定巨集過程程式碼的有效性，兩者結合在一起加以實現，才能起到既展現軟體功能，又真正限制其過分執行操作的作用，從而體現對使用者軟體的測試目的。
2.1 查詢按鈕執行過程程式碼
限定按鈕物件及其執行程式碼，首要的問題便是獲得其對應的執行程式碼過程名，並在當前工程的所有程式碼模組中查詢其程式碼位置。
實踐表明，按鈕物件與圖形影象和藝術字體一樣，都屬於Shape形狀物件，它們都有其對應的OnAction屬性，代表其被指定的巨集過程程式碼名稱。需要指出的是窗體型別按鈕對應的巨集過程程式碼一般位於工程的標準模組中，而ActiveX按鈕過程程式碼則位於工作表程式碼模組中，且其對應的正確執行過程名為其按鈕名與相應的事件名的連線串。為了查詢某個按鈕對應的過程程式碼，需要對VBE（Visual Basic 編輯器）的下層物件VBComponents進行搜尋。VBComponents物件代表VBE編輯器下的各個程式碼模組VBComponent。通過對某一VBComponent的下一層物件CodeModule的相關屬性的訪問，可以獲得諸如模組程式碼總行數等資訊，也可以通過其Find方法查詢指定內容的程式碼行。下面即為查詢按鈕過程、處理按鈕過程程式碼的演算法程式碼。
SheetsCount = ActiveWorkbook.Worksheets.Count
'對所有工作表中的所有按鈕物件迴圈
For i = 1 To SheetsCount
 Set MySheet = Worksheets(i)
 MySheet.Activate
 For Each sh In MySheet.Shapes
  sh.Visible = True
  sh.Select
  '取得選定物件所對應的過程名
  MyProname = sh.OnAction
  '對於ActiveX按鈕,則只取得其onClick事件過程名
  If sh.Type = msoOLEControlObject Then
    MyProname = sh.Name & "_Click"
  End If
  ……
  ' StartLine、StartCol為設定查詢按鈕過程名的開始行、列序號，並在程式碼查詢成功時' 返回所在的程式碼行、列序號
  StartLine = 1
  StartCol = 1
  Set MyCoponent = Application.VBE.ActiveVBProject.VBComponents
  '在各程式碼模組中查詢按鈕過程
  For Each ch In MyCoponent
    If sh.Type = msoOLEControlObject And ch.Name <> sh.Parent.CodeName Then
      GoTo Label4
  End If
'本程式碼模組的程式碼總行數
    LinesCount = ch.CodeModule.CountOfLines
    Endline = LinesCount
    '忽略註釋行，查詢正確的過程頭部位置
    Do While ch.CodeModule.Find("Sub " & MyProname & "()", StartLine, StartCol, Endline, 1, False, False) And Left(Trim(ch.CodeModule.Lines(StartLine, 1)), 1) = "'"
        StartLine = StartLine + 1
        StartCol = 1
        Endline = LinesCount
    Loop
    '找到了過程頭部位置
    If ch.CodeModule.Find("Sub " & MyProname & "()", StartLine, StartCol, LinesCount, 1, False, False) And ch.CodeModule.ProcOfLine(StartLine, vbext_pk_Proc) = MyProname Then
    '若還沒有插入規定的程式碼
    If Trim(ch.CodeModule.Lines(StartLine + 1, 1)) <> "'隱藏過程程式碼" Then
    '程式碼1……,在按鈕過程程式碼的首部加入過程呼叫程式碼
    '程式碼2……,調整本程式碼行以後的已經插入的程式碼行呼叫引數
    Endif
   End If
Label4:
Next
Next
Next i
ActiveWorkbook.Save
2.2 插入過程呼叫程式碼
經過查詢按鈕的執行過程程式碼的正確位置，就能夠限定其執行的有效性。本文的處理方法是，在按鈕的對應過程程式碼的首部加入兩行程式碼，如：
'隱藏過程程式碼
Call 模組5.隱藏過程程式碼(256,73,”Sheet2”,2,3)
可以看出第一行程式碼是一註釋行，第二行程式碼是一過程呼叫。正是這一過程呼叫，在按鈕點選時首先被執行，從而實現了對按鈕執行的準確計數，並在按鈕執行到達規定次數時，阻止其執行。
下面的程式碼通過對找到的按鈕過程所在程式碼模組VBComponent的下層物件CodeModule採用InsertLines方法，首先在按鈕對應過程的首部插入兩行臨時程式碼，然後通過該物件的ReplaceLine方法，將它們分別替換為正確的上述兩行程式碼。這樣先插入程式碼行、後替換程式碼行的目的是，在插入程式碼行後便於獲得準確的過程起始程式碼行號，從而為下面的替換程式碼行語句準備正確的引數。下面即是上述查詢按鈕過程程式碼中“程式碼1”位置處的演算法程式碼，其功能是在查詢到的按鈕過程程式碼的首部加入上述的兩行程式碼：
ModuleName = Application.VBE.SelectedVBComponent.Nam' 獲得過程所處的程式碼模組名
  CodeName = ch.Name
  ' 插入兩行臨時程式碼行
  ch.CodeModule.InsertLines StartLine + 1, "'插入程式碼行1"
  ch.CodeModule.InsertLines StartLine + 2, "'插入程式碼行2"
  ' 獲得模組程式碼總行數、過程起始行號、過程程式碼總行數
  LinesCount = ch.CodeModule.CountOfLines
' 過程程式碼起始行號
  ProcStartline = ch.CodeModule.ProcStartline(MyProname, vbext_pk_Proc)
' 過程程式碼總行數
  ProcCountLines = ch.CodeModule.ProcCountLines(MyProname, vbext_pk_Proc)
' 替換為兩行正確的程式碼行
  ch.CodeModule.ReplaceLine StartLine + 1, "'隱藏過程程式碼"
  ch.CodeModule.ReplaceLine StartLine + 2, "Call " & ModuleName & ".隱藏過程程式碼(" & ProcStartline & "," & ProcCountLines & "," & """" & CodeName & """" & "," & i & "," & sh.ZOrderPosition & ")"
此外，當按鈕被點選執行並進入到插入的呼叫過程內部時，還需要確定哪個按鈕被執行、執行的次數情況、以及執行按鈕的對應過程程式碼的行範圍等情況，以便準確地實施對執行按鈕及其過程程式碼的控制，所以在上述為按鈕過程替換為正確的過程呼叫程式碼的同時，需要添入正確的下列五個過程呼叫引數：
（1）按鈕的對應過程頭部所在程式碼模組中的程式碼起始行號；
（2）按鈕過程的對應程式碼行數；
（3）按鈕過程所處的程式碼模組名；
（4）按鈕所在的工作表序號；
（5）按鈕在所在工作表上的Shape形狀物件集合的序號。
從上面的插入程式碼中可以看出獲得這些引數的方法。針對上例的過程呼叫語句：Call 模組5.隱藏過程程式碼(256,73,”Sheet2”,2,3)，其引數含義是：當第2個工作表中的第3個Shape物件（按鈕）執行次數到達規定次數時，則將名稱為“Sheet2”的程式碼模組中從256行起的73行程式碼設為無效，並將該按鈕進行隱藏。
值得注意的是，由於某些按鈕的對應過程程式碼加入了上述的過程呼叫程式碼，必然導致與之處於同一程式碼模組的其他按鈕過程、並已經添入的上述過程呼叫程式碼中的引數值出現偏差，因此需要對其中的過程程式碼起始行引數值作修改。下面的程式碼就是起這個作用，此程式碼須插入於前述查詢按鈕過程程式碼的“程式碼2”位置。
' 調整程式碼查詢起始位置
 Line1 = StartLine + 3
 Col1 = 1
 Endline = LinesCount
 Do
  If Not ch.CodeModule.Find("'隱藏過程程式碼", Line1, Col1, Endline, 1, False, False) Then
       Exit Do
  End If
' 如果查詢的程式碼不符合插入的程式碼格式，則繼續查詢
  If Col1 > 1 Then
     GoTo Label3
  End If
' 調整程式碼呼叫引數
  Str1 = ch.CodeModule.Lines(Line1 + 1, 1)
  If InStr(Str1, "Call") Then
   Str2 = Mid(Str1, InStr(Str1, "(") + 1, InStr(Str1, ",") - InStr(Str1, "(") + 1)
   Str2 = Trim(Str(Val(Trim(Str2)) + 2))
   Str1 = Left(Str1, InStr(Str1, "(")) & Str2 & Mid(Str1, InStr(Str1, ","))
   ch.CodeModule.ReplaceLine Line1 + 1, Str1
  End If
Label3:
  Line1 = Line1 + 1
  Col1 = 1
  Endline = LinesCount
 Loop
2.3 限定按鈕物件及其執行過程程式碼
限定按鈕物件本身，之前我們可以為之新增一個名為“按鈕執行次數記錄表”的工作表，以便使用其第i行j列的單元格來記錄當前工程第i個工作表上第j個形狀物件的執行次數。此外，為了實現對按鈕執行的準確計數，也需要在工程開啟時清除其內容，為了防止工作表資料意外修改，最好將其隱藏。這些均可以通過建立自動巨集來加以實現。
下面的程式碼即是按鈕執行時首先被呼叫的過程，其作用為對按鈕執行進行計數，在按鈕執行到達規定次數（這裡暫定為5次）時，隱藏該按鈕，並將其執行過程程式碼設為無效。這裡將程式碼行設為無效的方式是將其改成註釋，方法仍然是通過訪問指定的VBComponent下CodeModule物件的Lines屬性，並採用ReplaceLine方法來實現。改成的註釋行的格式為：'隱藏行*:原始碼行，其中*號代表其在本程式碼模組中的行號。下面的程式碼需要與前述的查詢按鈕過程程式碼位於同一程式碼模組。
Public Sub 隱藏過程程式碼(ByVal Beginline As Integer, ByVal LinesCount As Integer, ByVal CodeName As String, ByVal SheetIndex As Integer, ByVal ButtonIndex As Long)
……
      Sheets("按鈕執行次數記錄表").Cells(SheetIndex, ButtonIndex).Value = Sheets("按鈕執行次數記錄表").Cells(SheetIndex, ButtonIndex).Value + 1
      If Sheets("按鈕執行次數記錄表").Cells(SheetIndex, ButtonIndex).Value >= 5 Then
        Set MyCoponent = Application.VBE.ActiveVBProject.VBComponents
        For Each ch In MyCoponent
          If ch.Name <> CodeName Then
            GoTo Label5
          End If
          '將引數規定範圍的程式碼改為註釋
For k = Beginline To Beginline + LinesCount - 1
            Str1 = ch.CodeModule.Lines(k, 1)
            Str1 = "'隱藏行" & k - Beginline + 1 & ":" & Str1
            ch.CodeModule.ReplaceLine k, Str1
          Next k
          '隱藏執行的按鈕
          ActiveWorkbook.Sheets(SheetIndex).Shapes(ButtonIndex).Visible = False
Label5:
        Next
……
      End If
End Sub

3  支撐物件與軟體恢復
提供對VBE及其下層物件的訪問，需要建立對其支撐物件的引用，方法是進入VBE編輯環境，單擊“工具”選單的“引用”命令，然後加入對“Microsoft Visual Basic for Application Extensibility 5.3”的引用。
此外，軟體執行不應該影響其本來面目，所以在其被開啟時需要將其本身提供的介面恢復初態，在工程儲存時將已經變為註釋行的程式碼恢復原狀，下面通過編寫當前工程的自動巨集AUTO_OPEN和“ThisWorkbook”模組的Workbook_BeforeSave事件過程去分別實現這兩個軟體恢復功能：
Public Sub AUTO_OPEN()
'查詢輔助工作表
 SheetsCount = Application.ActiveWorkbook.Worksheets.Count
 For i = 1 To SheetsCount
   If ActiveWorkbook.Sheets(i).Name = "按鈕執行次數記錄表" Then
      FoundSheet = True
   End If
 Next i
 '新增或清除輔助工作表內容
 If Not FoundSheet Then
   ActiveWorkbook.Unprotect
   Worksheets.add.Move After:=Worksheets(SheetsCount)
   ActiveSheet.Name = "按鈕執行次數記錄表"
   ActiveSheet.Visible = False
 Else
   Sheets("按鈕執行次數記錄表").Cells.Clear
   Sheets("按鈕執行次數記錄表").Visible = False
 End If
 '將工作表中按鈕恢復為顯示狀態
 SheetsCount = ActiveWorkbook.Worksheets.Count
 For i = 1 To SheetsCount
   Set MySheet = Worksheets(i)
   For Each sh In MySheet.Shapes
    If sh.Visible = False Then sh.Visible = True
   Next
 Next i
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'恢復註釋行為原來的正式程式碼行
 Set MyCoponent = Application.VBE.ActiveVBProject.VBComponents
  For Each ch In MyCoponent
    StartLine = 1
    StartCol = 1
    LinesCount = ch.CodeModule.CountOfLines
    Endline = LinesCount
    Do While ch.CodeModule.Find("'隱藏行", StartLine, StartCol, Endline, 1, False, False)
      If StartCol <> 1 Then GoTo Label7
      Str1 = ch.CodeModule.Lines(StartLine, 1)
      Str1 = Mid(Str1, InStr(Str1, ":") + 1)
      ch.CodeModule.ReplaceLine StartLine, Str1
Label7:
      StartLine = StartLine + 1
      StartCol = 1
      Endline = LinesCount
    Loop
  Next
End Sub

4  結束語
綜上所述，針對基於Excel VBA測試軟體的使用許可權設定，本文提出的通過執行過程程式碼的控制方法實現工作表使用者按鈕的限定技術，操作起來儘管存在一定的麻煩，但仍然具有相當的實用性。