[求助]隐藏行及显示行

lvzhiyong

如题 请高手给写代码

3pCWlEnx.rar (12.66 KB, 下载次数: 13)

2006-11-13 09:42 上传

点击文件名下载附件
[求助]隐藏行及显示行

[此贴子已经被作者于2006-11-13 9:42:09编辑过]

qee用

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets
    sh.Range("B8:B200").EntireRow.Hidden = False
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets
    For Each rw In sh.Range("B8:B200")
      If rw = 0 Then rw.EntireRow.Hidden = True
    Next rw
  Next sh
  Application.ScreenUpdating = True
End Sub

chenhuafu

隐者-vba类什么时候完工？很想看看阿。

lvzhiyong

谢谢版主

qee用

QUOTE:

以下是引用chenhuafu在2006-11-13 10:02:04的发言：
隐者-vba类什么时候完工？很想看看阿。

谢谢兄的关注,基本完工了.

PS:你的问题一直没抽出时间来看,抱歉.不知解决了没

lvzhiyong

还有个问题

就是保护工作表

比如密码123

怎么解决

再次感谢

lvzhiyong

还有个问题

就是保护工作表

比如密码123

怎么解决

再次感谢

qee用

不明白你的意思

如果保护,可以录制宏看看代码

Sheet1.Protect Password:="123"

如果保护了的话,上面的代码对保护的工作表应先解除保护,操作后再保护

星语心愿

QUOTE:

以下是引用qee用在2006-11-13 9:53:18的发言：

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets
    sh.Range("B8:B200").EntireRow.Hidden = False
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets
    For Each rw In sh.Range("B8:B200")
      If rw = 0 Then rw.EntireRow.Hidden = True
    Next rw
  Next sh
  Application.ScreenUpdating = True
End Sub

版主的这段代码很简洁，可是详细的加些注释吗？我是新手，想学习一下。好吗？

lvzhiyong

我的意思是,工作表有密码保护的

ActiveSheet.Unprotect "123"

ActiveSheet.Protect "123"

加上上面代码运行不了。

Sub 显示()
  Dim sh As Worksheet
  For Each sh In Worksheets
    sh.Range("B8:B200").EntireRow.Hidden = False
  Next sh
End Sub
Sub 隐藏()
  Dim sh As Worksheet, rw As Range
  Application.ScreenUpdating = False
  For Each sh In Worksheets
    For Each rw In sh.Range("B8:B200")
      If rw = 0 Then rw.EntireRow.Hidden = True
    Next rw
  Next sh
  Application.ScreenUpdating = True
End Sub