Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Sheet1").Activate
If Not Intersect(Range("A1:L1"), Target) Is Nothing Then
Ex False
Else
Ex True
End If
End Sub
Private Sub Ex(Msg As Boolean)
Dim I%
With CommandBars(1) '工作表功能表
.Controls(2).Controls(11).Enabled = Msg
.Controls(4).Controls(2).Enabled = Msg
.Controls(4).Controls(3).Enabled = Msg
End With
For I = 29 To 34 '快顯功能表的 Index
CommandBars(I).Controls(5).Enabled = Msg '插入指令 Msg=True 時啟用
CommandBars(I).Controls(6).Enabled = Msg '刪除指令 Msg=False 時停用
Next
End Sub作者: HUNGCHILIN 時間: 2010-7-23 23:25