80本目:読み取り専用で保存できないブックにするブックを読み取り専用に設定し、かつ、上書き保存も名前を付けて保存も出来ないように設定する問題です。ツイッター連動企画です。ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。VBAテスト用のサンプルデータはご自身でご用意ください。80本目このブックは変更してほしくないので、以下の動作にしたい。読み取り専用による、以下のメッセージが出てしまうのは構いません。VBA作成タイムこの下に頂いた回答へのリンクと解説を掲載しています。途中まででも良いので、できるだけ自分でVBAを書いてみましょう。他の人の回答および解説を見て、書いたVBAを見直してみましょう。読み取り専用にするには、Workbook_OpenでChangeFileAccessメソッドにxlReadOnlyを指定します。閉じる・保存は、BeforeCloseとBeforeSaveです。引数CancelにTrueを入れると、そのイベントはキャンセルされます。Trueこれは保存後に変更されていない状態にします。Sub最後の部分はVBA作成中の保存に使ったものをそのまま残しました。イベントを入れた後では、保存できなくて何度か書き直した人もいるかも知れません、ゴメンナサイ。一度経験しておけば実際に必要になった時に役立つと思います。