EXCEL マクロのパスワード設定時の機能制限について

質問

EXCELのマクロを参照・編集できないようパスワードをかけると、パスワード無しで使えていた機能が使えなくなってしまうようです。

具体的には「ブックを形式や名前を指定して保存」「ブックを閉じる」という機能です。

パスワードによる編集制限をかけつつ、これらの機能を有効にする方法について、教えていただけませんでしょうか？

よろしくお願いいたします。

回答No.3

Wendy02 · ベストアンサー

こんにちは。#1のWendy02です。

コードを見させていただきました。細かいところは、別として、おおよそのことは分りました。

最初に、

　MsgBox myWb.ProtectStructure
　MsgBox myWb.ProtectWindows
　MsgBox myWb.Password

おそらく、確認のためだけに使っているものだと思います。実際には、これはお使いにはならないはずですね。それで、これは、Excel 2002 以上でご使用になられるものですか？

最初のところで、気になるのは、Workbooks(1)　というのは、ちょっと無謀だなって思います。Workbooks(1)というのは、最初に立ち上がったブックのことですから、明示的ではありません。ActiveWorkbook にして、MsgBox で確認を取ってコードは進むようにしたほうがよいと思います。

例:
Set myWb = ActiveWorkbook
If MsgBox(myWb.Name & "でよろしいですか？", vbOKCancel) = vbCancel Then Exit Sub

次は、
いきなり、シート名なしの　Cells(i, 2)　ですと、開いている場所ということになるのですが、こちらでは、コードだけでは読めません。flag = 1　を使っている様子もありません。これについては、うまくいっているのでしたら、関知いたしません。

肝心の部分ですが、最後の保存の部分は、単に、Application.DisplayAlerts を入れるだけでよいかは思います。
　Application.DisplayAlerts = False
　 myWb.SaveAs Filename:= _
　 myWb.Path & "\" & Format$(Date, "yyyymmdd") & ".prn", FileFormat:= _
　 xlTextPrinter, CreateBackup:=False

　 MsgBox "ファイル名：" & Format$(Date, "yyyymmdd") & ".prnとして保存されました。"
　 ActiveWorkbook.Close SaveChanges:=False　'←Falseにします。
　 Application.DisplayAlerts = True

たぶん、ここを、True にすると、エラーではなく、アラートが出るのではないか、と思います。

#1で書いた
ActiveWorkbook.Close SaveChanges:=False

他のフォーマットで保存し、出力した後のメモリ上だけに残った、拡張子「.prn」の「.xls」形式のブックは、保存は出来ませんので、捨てるしかありません。ですから、Falseにします。ウィンドウズ保護をしているので、余計にややこしくしているようです。

ただ、この手のマクロでは、一般的には、新規に、Workbooks.Add として、シート全体をコピーして、それを使うという方式が取られることが多いようです。その理由は、開いていたブックが、SaveAs の別名で保存した際に、元のブックが閉じられてしまったり、上で述べたような二重の手間が必要になるからなのです。

一応、私のほうからは、こんなところかと思います。

お礼

回答ありがとうございます。

>この手のマクロでは、一般的には、新規に、Workbooks.Add として、
>シート全体をコピーして、それを使うという方式が取られることが多いようです。
この方法を用いて解決いたしました。
大変助かりました。ありがとうございました。

ご質問事項に対してお答えしておきます。

＞確認のためだけに使っている
その通りです。

＞いきなり、シート名なしの・・・
本マクロはボタン押下により処理が開始となりますので問題は無いのですが、アドバイスとして受け止めておきたいと思います。