|
基本的なことなのですが、よろしくお願いいたします。
ワークシート「受注」にて下記のようなイベントを発生させてます。
しかし、別のマクロ実行時で「受注」シートをアクティブにした時も発生してしまいます。
マクロ実行時はイベント発生を回避したいのですが、何か良い方法はありませんか?
Private Sub Worksheet_Activate()
If Worksheets("受注").AutoFilterMode = True Then
Answer = MsgBox("オートフィルタが設定中です。" & vbLf & vbLf & _
"「受注」シート保護のため、オートフィルタの解除に協力ください。 解除しますか?", _
vbYesNo + vbCritical, "受注管理表")
Select Case Answer
Case vbYes
Application.ScreenUpdating = False
Range("B2:Z2").Select
Selection.AutoFilter
Sheets("受注").Protect
Range("A1").Select
Case vbNo
End Select
Else
End If
End Sub
|
|