隠しファイルへのアクセス

質問

シートが増えてきたので、１枚のシートを隠しファイルにしたのですが、そのシートにはマクロの参照場所があり、隠すまでは、マクロが実行できていたのですが、隠してしまうと実行出来なくなりました。
前回の質問で別のシートを参照する場合は Worksheetの前にActive
を使用することで回避できたのですが、隠しファイルを参照する場合別の方法で関連をつけるのでしょうか？

（隠しファイルのデーターを別のシートに貼り付けてあるコマンドボタンで削除するマクロです）

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False

Worksheets("参照モニター").Select
Worksheets("参照モニター").Range("E3:AJ3").Select
Worksheets("参照モニター").Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Worksheets("メイン").Select

Application.ScreenUpdating = True

End Sub

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

> 隠してしまうと実行出来なくなりました。

非表示のシートおよびそのセルに対して Select とか Activate は
できません。

では、どうするかと言えば、

Select や Activate を使わないで書けばよいことになります。

非表示だからといって、コントロールできないわけではありません。

　　Dim n As Long
　　With Worksheets("参照モニター")
　　　　' // 最後のセルは E 列で取れるものとする
　　　　n = .Range("E3").End(xlDown).Row
　　　　.Range("E3:AJ" & CStr(n)).ClearContents
　　End With

お礼

無事解決です。
ありがとうございます。
コードも少なくなってすっきりしてますね（*^_^*）
ありがとうございました。