VBA在限定Excel工作表用户按钮中的应用

            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

TAG标签 : 按钮 应用 用户 工作 限定 代码 过程 执行 If 对象 Str1