こんにちは、Office サポート チームです。
今回は、2016 年 7 月のセキュリティ更新プログラム (MS16-088) を適用した後、Worksheet.Select (False) で複数のシート選択ができなくなる、Excel 2013/Excel 2016 の現象について説明します。
弊社では、本件の調査を行っております。
現象
2016 年 7 月のセキュリティ更新プログラム (MS16-088) を適用した後、Excel 2013 および Excel 2016 で Worksheet.Select (False) でシート選択ができません。
この現象は、以下の条件をすべて満たしたときに発生します。
発生条件 :
– MS16-088 のセキュリティ更新プログラムを適用している
Excel 2013 のセキュリティ更新プログラム MS16-088: 説明: 2016 年 7 月 12 日
https://support.microsoft.com/ja-jp/kb/3115262
Excel 2016 のセキュリティ更新プログラム MS16-088: 説明: 2016 年 7 月 12 日
https://support.microsoft.com/ja-jp/kb/3115272
– 複数シートの選択に Worksheet.Select False を使用している
– Worksheet.Select False 実行時、その時点で選択されているシートが 1 シートのみ
実装例：
以下のような実装の場合、MS16-088 適用後の Excel 2013 および Excel 2016 では複数シート (Sheet1/Sheet2/Sheet3) は選択されません。
Sub Test()
Sheets(1).Select True
Sheets(2).Select False
Sheets(3).Select False
End Sub
上記コード実行後の動作 :
・MS16-088 適用前
複数のシートが選択されます。
・MS16-088 適用後
複数シートは選択されません。
現時点での回避方法
Worksheet.Select (False) を使用せず、「Sheets().Select」のようにシートの選択方法を変更します。
実装例：
Sub Test()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
End Sub
本情報の内容 (添付、リンク先などを含む) は、作成日時点でのものであり、予告なく変更される場合があります。