[[20150125002615]]　『シート保護した行の非表示（VBA）』（take）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『シート保護した行の非表示（VBA）』（take）

5行〜35行のJ列〜L列に数字が無い行は非表示する。

 Sub 非表示()
    Dim c As Range

    For Each c In Range("A5:A35")
        If WorksheetFunction.CountA(c.EntireRow.Range("J1:L1")) = 0 Then c.EntireRow.Hidden = True
    Next

 End Sub

 Sub 全表示()
    Range("A5:A35").EntireRow.Hidden = False
 End Sub

を聞きました。
シート保護解除が必要ですが、シート保護まま実行するVBAが知りたいのですが･･･

＜ 使用 Excel：Excel2007、使用 OS：Windows7 ＞

---

自分でなんとか出来ました！
どうもおさがわせしました。
（take） 2015/01/25(日) 01:26

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.