Excel総合相談所 136

[0404 名無しさん＠そうだ選挙にいこう 2019/08/26(月) 19:35:45.82]

>>401です。追記です。
パスワードなしの場合は，以下のように記述しています。


Sub 転記用シート一括非表示()
Dim s As Worksheet
For Each s In Worksheets
If InStr(s.Name, "転記用") > 0 Then
s.Visible = False
End If
Next s
End Sub


Sub 転記用シート一括再表示()
Dim s As Worksheet
For Each s In Worksheets
If InStr(s.Name, "転記用") > 0 Then
s.Visible = True
End If
Next s
End Sub