【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい

タイトルの件、以下のとおりマクロを作りたいと考えています。
ご存じの方、教授の程、宜しくお願い致します。

【やりたい事】
・エクセルの複数シートに設定されている列の非表示を
マクロで一発で、再表示させたい

・マクロ実行のエクセルブックと、列が非表示にされているエクセルの
　【ブック】は別物。

・２つのファイルを同じエクセルブック内で開けば、マクロは有効ですが
別ファイル【ブックとして】開くので、有効にならない。
⇒パワーポイントとエクセルを開いたら、同じブック内ではなく
⇒別ファイルとして、開きます。これと同じ開き方です。
⇒エクセルの表示⇒整列⇒上下に並べるをやっても、並ばないです



【列が非表示に設定されているエクセルブックの場所】

C:\Users\2020\Desktop\マクロ\オートフィルタークリア_b.xlsx

【全シートの行・列を再表示させるコード】
Sub ブックにあるすべてのシートの行と列を再表示させる()
Dim objWorksheet As Worksheet

'Worksheetsコレクションから1シートづつ取得します。
For Each objWorksheet In Worksheets
'シートの行と列を再表示させます。
objWorksheet.Cells.EntireColumn.Hidden = False
objWorksheet.Cells.EntireRow.Hidden = False
Next

End Sub

No.1 回答者： mygoonickname 回答日時： 2022/12/24 21:04

こんばんは。

直接の回答ではありませんが、
先ほどの、回答の”【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい”のコードを
使って、下記のコードを入れ替えれば良いのでは？と思います。

Dim objWorksheet As Worksheet

'Worksheetsコレクションから1シートづつ取得します。
For Each objWorksheet In Worksheets
'シートの行と列を再表示させます。
objWorksheet.Cells.EntireColumn.Hidden = False
objWorksheet.Cells.EntireRow.Hidden = False
Next