- 帖子
- 101
- 主題
- 34
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Macau
- 註冊時間
- 2010-7-1
- 最後登錄
- 2014-1-30
|
3#
發表於 2010-7-23 13:47
| 只看該作者
本帖最後由 Hsieh 於 2010-7-23 23:29 編輯
是新開excel file, 不過叧外我有檔案用以下程式,請問是否與此有關
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 |
|