エクセル2003のブックの保存禁止について

質問

お世話になります。
ｗｉｎＸＰでエクセル２００３を利用しています。
ブックに修正等が有って終了しようとすると、ファイルを保存するか聞いてきます。この窓が開かずに、必ず、更新されずに元のままで終了できるようにするにはどうしたら良いでしょうか。

回答No.5

Wendy02

こんばんは。

ご質問は、VBAの世界では、かなり昔からある、よく知られた質問の一つだと思います。

リードオンリーの方法もありますが、マクロが有効であるなら、以下のようなものは、パラドックスなコードの一つです。

しかし、それに対抗して、マクロをすべて不可にするとか、はたまた、クラックとするというご意見は、ここではナシにしてください。そうした揚げ足取りの方もいますが、あくまでも、通常の使用の範囲です。ただ、VBAには、VBAでの対処法はあります。しかし、それを公開したら、そうしたプロテクトはおしまいになってしまいます。これは、あくまでも、ユーザーに保存の選択しても、保存できないことを知らせずに閉じる方法です。名前を付けて保存も利きません。

保存できなくなると、自分で書いたマクロさえ保存できませんから、イースターエッグのように、シートのセルの中に、パスワードを設けます。

以下は、シート1のZ1 になっています。シート名は、オブジェクト名ですから、シートの名前を変えてもよいです。また、Z1 の場所は、日付などで変える方法も可能です。

'---------------------------------------

'ThisWorkbook モジュールへ

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　If Sheet1.Range("Z1").Value <> "psw" Then
　　　　Cancel = True
　　　　ThisWorkbook.Saved = True
　　Else
　　　　Application.EnableEvents = False
　　　　Application.Goto Sheet1.Range("A1")
　　　　ThisWorkbook.Save
　　　　Sheet1.Range("Z1").Clear
　　　　Application.EnableEvents = True
　　End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　 ThisWorkbook.Saved = True
End Sub

なお、
Application.Goto Sheet1.Range("A1")
シート1のA1に飛ぶのは、パスワードの設定場所などの痕跡さえ残さないためです。ここは、Sheet1.Range("A1").Select は使えません。

お礼

ありがとうございました参考になりました。
又よろしくお願いいたします。