|
こんにちは。
>うちの事業所にあるPC約80台の内の半数以上がスペックの低いものを
わたしのPCも433MHzと今では低スペックと呼ばれる域ですけど
>インターネットエクスプローラーで動作するソフトの中で使用しております
IE内でエクセル開いてVisible/Hiddenするマクロを動かしても
一瞬で終わりますね。
>グループウェアーと言う
とかいうのが重いんですかね‥‥‥
>最後だけ一旦全てを表示させて
>シート2だけ残す処理をしておりますので
なんで全てを一端[Visible]にする必要があるのでしょう?
そこが判りません。
Sheet2だけ表示させて、他を隠すなら、↓のようなマクロで良いと
思いますが?
既に[Hidden]状態のものは、そのまま[Hidden]のままにしておけば良いだろうし
[Visible]のものだけ[Hidden]設定すれば良いでしょう。
Dim wksh As Worksheet
With Worksheets("Sheet2")
.Visible = xlSheetVisible
.Activate
End With
For Each wksh In ThisWorkbook.Worksheets
If (wksh.Name <> "Sheet2") And _
(wksh.Visible = xlSheetVisible) Then
wksh.Visible = xlSheetVeryHidden
End If
Next wksh
|
|