- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
3#
發表於 2012-4-2 09:58
| 只看該作者
回復 1# myleoyes
指定工作表中: 當滑鼠 選擇有欄隱藏的範圍時 按右鍵的 隱藏功能,取消隱藏- Dim A As CommandBarControls, B As CommandBarControls
- Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
- Dim Msg As Boolean, C As Range
- Msg = True
- For Each C In Target.Columns
- If C.EntireColumn.Hidden Then
- Msg = False
- Exit For
- End If
- Next
- 功能表 Msg
- End Sub
- Private Sub Worksheet_Deactivate()
- 功能表 True
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal T As Range)
- 功能表 True
- Select Case T(1).Address(0, 0)
- Case "A1"
- [E1] = "=Sheet2!B1"
- Dim hwd As Long
- lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
- zz = InputBox("請輸入密碼", "非經許可請勿開啟以免干擾程式運作")
- [E2] = zz
- If [E1] = [E2] Then
- 參照欄
- Else: MsgBox "密碼錯誤!": [E1] = 0: [E2] = "": [E:L].EntireColumn.Hidden = True
- End If
- End Select
- End Sub
- Private Sub 功能表(T As Boolean)
- Dim E As CommandBarControl
- Set A = Application.CommandBars.FindControls(ID:=886) '886 隱藏(&H)
- Set B = Application.CommandBars.FindControls(ID:=887) '887 取消隱藏(&U)
- For Each E In A
- E.Enabled = T
- Next
- For Each E In B
- E.Enabled = T
- Next
- End Sub
|
|
發表於 2012-4-1 17:58
| 
