1

コンテンツの有効化を行ったタイミングでBOOKオープンイベントが実行され、その中でハンドルできないエラーが発生しているのだと想像いたします。

うまく今回のエラーをキャッチできるかは不明ですが、調査のために、BOOKオープンイベントのサブルーチンに例外処理を入れてみるのはどうでしょうか？

BOOKオープンイベントのサブルーチンの先頭に

On Error GoTo OnError

と入れて、サブルーチンを閉じる直前に

OnError:
    Dim error: error= "ソース: " & Err.Source & vbCrLf & _
        "エラー番号: " & Err.Number & vbCrLf & _
        "内容: " & Err.Description
    MsgBox error

とすれば、エラー内容が取得できるかと思います。

ご参考に、サブルーチン全体のサンプルは次のような感じになると思います。（0で割ることでエラーを発生させています。）

Sub DivideByZero()

    On Error GoTo OnError

    Dim num: num = 1 / 0

OnError:
    Dim error: error = "ソース: " & Err.Source & vbCrLf & _
        "エラー番号: " & Err.Number & vbCrLf & _
        "内容: " & Err.Description
    MsgBox error

End Sub