隱藏按右鍵的-取消隱藏功能

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

功能停止使用

靜思自在 : 自己害自己，莫過於亂發脾氣。