エクセルのシート保護をマクロで自動化したい！

質問

EXCEL2000で仕事をしていますが、シート保護をマクロで自動化したいんです。それもパスワード入力を求めるメッセージボックスが表示されるような形で・・・
ツール→保護→シートの保護
ということでシート保護が出来るのは当然知っていますが、複数の人間が共有して使うファイルということのあり、作業後閉じるときに忘れる可能性大なので、コマンドボタンで簡単にしたい。パスワード付というのは無理なんでしょうか？

回答No.2

ki-aaa · ベストアンサー

ThisWorkbookに次のコードをコピー貼り付けしてください。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Dim j As String
j = Application.InputBox( _
prompt:="パスワードを入力してください", Type:=2)
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect Password:=j
Next i
ActiveWorkbook.SaveAs _
Filename:=ActiveWorkbook.Name, _
FileFormat:=xlWorkbookNormal
End Sub

ブックを閉じる前に、シートを保護し、セーブしています。

お礼

ありがとうございます。
思っていたより簡単なんですね。
助かりました。

回答No.1

p-21

可能ですけど　エクセルの機能としては無理だと思います　（マクロ機能も含めて）

VBAでの対応になります
VBAについてはこの限られたスペースで説明するのは
不可能ですので
書籍を購入して勉強するしかないと思います