エクセルを閉じる際に自動保存するには…

複数あるシートにそれぞれ保護をかけてあるエクセルがあります。
毎回それぞれのシートに保護をかけてからブックを閉じるは手間がかかる上、
パソコンが不得意な方も共有で使うため、自動で保護をかけられるようにしたいと思っていますが、
そのようなことは可能なのでしょうか？

保護の内容としては、データ入力を行うセル以外に保護をかけ、
商品名や計算式を替えられないようにしているものです。

ちなみに苦肉の策で、マクロの記録を使い、保存時に自動で保護が掛かるようにしようと試みましたがうまくいきませんでした。

分かりにくい説明で申し訳ありませんが、良い方法があったら教えてください。

No.4 ベストアンサー 回答者： wolis 回答日時： 2008/10/17 15:57

パスワードを使用する場合には

例.パスワードが「111」の場合
Sheets(i).Protect "111"
Worksheets("Sheet2").Protect "111"

のようにProtectの後ろに半角スペース＋""でパスワードを囲みます。

御自身で登録したマクロをこっそりと実行されるのでしたら、
ボタン等を配置せずに直接「Alt」＋「F8」等から実行される方法もございます。

ちなみに保護の解除は
Sheets(i).Unprotect "111"
等で可能です。

この回答へのお礼

お陰様で出来ました！！
本当に助かりました。
自分でやったときは、正しくパスワードが保存されずに困ってしまったのですが、
教えて頂いた通りにやったら出来ました。
本当にありがとうございました。

お礼日時：2008/10/17 16:20

No.3 回答者： wolis 回答日時： 2008/10/17 14:58

ブック内にある全てのシートに保護をかけて良い場合は、

ThisWorkbookに

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect
Next
End Sub

ではいかがでしょうか。

この回答へのお礼

ありがとうございます。
保護をかけられました。
ただ、この場合パスワードが掛からなくなるのですが、
その点もカバーできたりしますでしょうか？

お礼日時：2008/10/17 16:14

No.2 回答者： pascal3141 回答日時： 2008/10/17 13:56

次の様にＶＢＡで作ったらどうでしょうか？

メインのシートにボタンを貼り付け（CommandButton1の名前）
クリックすると各シート（Sheet1,Sheet2）にプロテクトがかかり
自動的に保存・終了します。CommandButton1・Sheet1,Sheet2の名前は自由に変更します。

Private Sub CommandButton1_Click()
'シート保護
Worksheets("Sheet2").Protect
Worksheets("Sheet3").Protect
'保存終了
ActiveWorkbook.Save
ActiveWorkbook.Close False
End Sub

この回答へのお礼

早速にありがとうございます。
私の説明不足なのですが、このブックを使う中で管理者の数人だけがシートの保護を外し編集するので、
出来るだけボタンとかつけずに、こっそりと保護のの付け外しをしたいのです。
また保護する時にはパスワードを使用したいのです…
そんなことは可能なのでしょうか？

お礼日時：2008/10/17 15:10

No.1 回答者： marbin 回答日時： 2008/10/17 10:49

>マクロの記録を使い、保存時に自動で保護が掛かるようにしようと試

>みましたがうまくいきませんでした。

コードをアップしてみてください。

この回答への補足

早速にありがとうございます。
試してみます。

補足日時：2008/10/17 15:13