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

質問

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

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

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

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

回答No.1

Wendy02

こんにちは。

＞具体的には「ブックを形式や名前を指定して保存」「ブックを閉じる」という機能です。
今、試してみましたが、そのような現象は現れませんね。

おっしゃることが、妥当性があるのかは、"コード"を見なければ分りませんが、

「ブックを形式や名前を指定して保存」

　Application.Dialogs(xlDialogSaveAs).Show

を使っているのはないでしょうか？

それに、
「ブックを閉じる」
　ThisWorkbook.Close False

とかしていないのでしょうか？

補足

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

＞今、試してみましたが、そのような現象は現れませんね。
そうですか～、ではコードを見ていただけますでしょうか？　当方このようなコードを用いております。
Sub conv()
Dim myWb As Workbook
Set myWb = Workbooks(1)
MsgBox myWb.ProtectStructure
MsgBox myWb.ProtectWindows
MsgBox myWb.Password

For i = 2 To 2000
RetInt = Cells(i, 2)
'ブランクチェック
If RetInt = "" Then
last = i - 1
For j = i + 1 To 1002
If Sheets("X").Cells(j, 2) <> "" Then
flag = 1
Exit For
End If
Next
Exit For
End If
Next
j = 1
For i = 2 To last
Sheets("B").Cells(j, 1) = "1" & Sheets("X").Cells(i, 2)
j = j + 1
Next
'出力データ左寄せ
Sheets("B").Select
Columns("A:A").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells(1, 1).Select
ActiveWorkbook.Save

'On Error GoTo ErrorTrap
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & Format(Date, "yyyymmdd") & ".prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False

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

ErrorTrap:
Exit Sub

End Sub

再度のお願いで恐縮ですが、よろしくお願いいたします。