最近需要处理 工作表 为了提高效率 记下vba 隐藏列的方法

在底部sheet tab 右键 选view code 或者 Alt+F11 打开代码界面

Sub filter()

    Dim i

    Dim title As String

    j = UsedRange.Rows.Count

    For i = 1 To UsedRange.Columns.Count '遍历的列数

        title = Cells(1, i)'遍历第一行的每一列

        If ( _

        title <> "Number" And _ '第i列 第一行不是Number 并且

        title <> "Date" And _ '第i列 第一行不是Data

         ) Then

        Columns(i).Hidden = True '隐藏这一列

        End If

    Next

End Sub

2个页面(首页、数据库整理)， 在首页中D列填写1来选择数据库整理页面中要隐藏的列。 首页中C列内容通过超链接连接到数据库整理页面的对应列中。

支持选择性隐藏列；显示隐藏的列；隐藏所有的列

'隐藏列
Sub hidden_Click()
    Debug.Print "===========隐藏列时，在D列中填写1==========="
    Dim rowSize, j
    rowSize = Range("C2").End(xlDown).Row
    Debug.Print "选中数量：", rowSize
    
    For j = 2 To rowSize
        selectOk = LTrim(RTrim(Range("D" & j).Value))
        If selectOk = 1 Then
            '获取内容对应的链接地址
            'addr = Range("C" & j).Hyperlinks(1).SubAddress
            'tmp = Split(addr, "!")
            'linkAddr = tmp(1)
            'Debug.Print "内容：", Range("C" & j).Value, "超链接地址：", addr, linkAddr
            
            '通过内容名称找到超链接对应的列，然后隐藏 （名称必须相同否则无法隐藏）
            colValue = Range("C" & j).Value
            hidden_column (colValue)
        End If
    Next
    
End Sub

'隐藏选中的列
Function hidden_column(colValue)

    Debug.Print "隐藏列：", colValue
    Sheets("数据库整理").Select
    
    Set rng1 = Cells.Find(colValue)
    rng1.Select
    
    Selection.EntireColumn.Hidden = True
    Sheets("首页").Select
End Function


'显示所有隐藏的列
Sub show_Click()
    Debug.Print "==========显示所有的列=========="
    Sheets("数据库整理").Cells.EntireColumn.Hidden = False
    Sheets("首页").Select
End Sub


'隐藏所有的列
Sub hidden_all_Click()

        Debug.Print "==========隐藏所有的列=========="
        
        Debug.Print "总列数：", Sheets("数据库整理").UsedRange.Columns.Count
        
        Sheets("数据库整理").UsedRange.Columns.Hidden = True
        Sheets("首页").Select
End Sub

VBA 列的隐藏和显示,密码验证

Sub button1_Click()
  'default password
  finalPwd = "123456"

  '
  If Sheets("Sheet1").Columns("E:G").Hidden = True Then
     'INPUT PASSWORD
     inputPwd = InputBox("INPUT PASSWORD!", "INFO", Default)
     
     If finalPwd = inputPwd Then
        Sheets("Sheet1").Columns("E:G").Hidden = False
     Else
        MsgBox ("password error！")
     End If
  Else
     Sheets("Sheet1").Columns("E:G").Hidden = True
  End If
End Sub

效果验证：

按下【button】，输入密码

指定列表示

※显示隐藏的时候如果报 Range类无法定义Hidden，是因为sheet被保护了，解除保护即可。