Board logo

標題: 隱藏按右鍵的-取消隱藏功能 [打印本頁]
作者: myleoyes    時間: 2012-4-1 17:58     標題: 隱藏按右鍵的-取消隱藏功能

各位前輩你們好!
         前輩!!問題如附檔說明
               請知道的前輩,不吝賜教謝謝再三!!
作者: oobird    時間: 2012-4-1 22:18

  1. Sub 參照欄()
  2.     [E1] = 0
  3.     [E2] = ""
  4.     Set myrng = [E:L]
  5.     With myrng.EntireColumn
  6.         .Hidden = Not .Hidden
  7.         If .Hidden = True Then
  8.             Application.CommandBars("column").Controls(11).Enabled = False
  9.         Else
  10.             Application.CommandBars("Column").Controls(11).Enabled = True
  11.         End If
  12.     End With
  13.     Set myrng = Nothing
  14. End Sub
複製代碼
作者: GBKEE    時間: 2012-4-2 09:58

回復 1# myleoyes
指定工作表中:  當滑鼠 選擇有欄隱藏的範圍時 按右鍵的 隱藏功能,取消隱藏
  1. Dim A As CommandBarControls, B As CommandBarControls
  2. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  3.     Dim Msg As Boolean, C As Range
  4.     Msg = True
  5.     For Each C In Target.Columns
  6.         If C.EntireColumn.Hidden Then
  7.             Msg = False
  8.             Exit For
  9.         End If
  10.     Next
  11.     功能表 Msg
  12. End Sub
  13. Private Sub Worksheet_Deactivate()
  14. 功能表 True
  15. End Sub
  16. Private Sub Worksheet_SelectionChange(ByVal T As Range)
  17.    功能表 True
  18.    Select Case T(1).Address(0, 0)
  19.      Case "A1"
  20.        [E1] = "=Sheet2!B1"
  21.        Dim hwd As Long
  22.        lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
  23.        zz = InputBox("請輸入密碼", "非經許可請勿開啟以免干擾程式運作")
  24.        [E2] = zz
  25.        If [E1] = [E2] Then
  26.        參照欄
  27.        Else: MsgBox "密碼錯誤!": [E1] = 0: [E2] = "": [E:L].EntireColumn.Hidden = True
  28.        End If
  29.     End Select
  30. End Sub
  31. Private Sub 功能表(T As Boolean)
  32.     Dim E As CommandBarControl
  33.     Set A = Application.CommandBars.FindControls(ID:=886)   '886   隱藏(&H)
  34.     Set B = Application.CommandBars.FindControls(ID:=887)   '887   取消隱藏(&U)
  35.     For Each E In A
  36.         E.Enabled = T
  37.     Next
  38.     For Each E In B
  39.         E.Enabled = T
  40.     Next
  41. End Sub
複製代碼
功能 停止使用
作者: myleoyes    時間: 2012-4-2 22:12

回復 3# GBKEE
oobird 前輩! 非常的謝謝!!
同時也謝謝良師如此詳細指導!

小弟另有一問題請教兩位前輩!
小弟因忙東忙西常常忘記檔案密碼
所以有此想法,如上範例的密碼是可變式
它來自於Sheet2工作表的B2儲存格
因此它也可以來自於其他檔案的儲存格
所以當建立一個新檔存檔案時,
想用範例方式來檔存密碼,而非Excel
原有一般選項來建立密碼,
因為那樣所建立的密碼是固定的
必需死記在心,而範例所建立的密碼是
可變式,無需牢記密碼...不知這樣的概念是否
可行嗎?程式又如何?請不吝賜教謝謝再三!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)