2016-03-25 6 views
0

ワークシートを介してスピンし、クライアントに電子メールで送信されるワークブックを作成するVBAコードがあります。それはかなり簡単です、実際には、出力ファイルをMy Documentsに書き込みます。ここでセーブコードは次のとおりです。Excel 2013 vba作成されたワークブックが「保護されたビュー」のユーザー用に開きます

worksbookが開かれた
With wkbOutputBook 
.CheckCompatibility = False 
.Save 
.Close 
End With 

、Excelは言う:

保護されたビューOfficeがこのファイルに問題が検出されました。編集すると、コンピュータが害を受ける可能性があります。詳細はクリックしてください。

OKこれは、ExcelがこのファイルがOutlookから送信されたか、インターネットからダウンロードされたと考えられるため、わかりません。しかし、そうではありませんでした。明示的に保護モードをオフにし、異なるバージョン/ファイル形式

使用名前を付けて保存の代わりに、保存

割引:私は次のことを試してみました。プロテクトモードはプロテクトビューと同じではありません。

確かに「マイドキュメント」は「安全でない」場所とはみなされません。

ありがとうございました。

+1

作成しているブックにコードがありますか?もしそうなら、[デジタル署名](https://support.office.com/en-us/article/Digitally-sign-your-macro-project-956e9cc8-bbf6-4365-8bfa-98505ecd1c01)を試してみましたか? – Comintern

答えて

0

読み取り専用モードで保存されているファイルを受け入れることができれば、おそらくエラーメッセージが表示されなくなります。

Dim path As String 

path = "full-path-with-filename-and-extension" 

With wkbOutputBook 
    .SaveCopyAs (path) 
    SetAttr (path), vbReadOnly 
    .Close 
End With 

あなたは、読み取り専用の設定含むコード行なし.SaveCopyAs(パス)メソッドを試してみてください、私はそれが助けにはなりませんね。

ファイルをどのような形式で保存しようとしますか?この問題はあなたのPCでのみ表示されるのでしょうか、マクロ/出力ファイルを他のPCでテストしましたか?問題は、システムレジストリの内容を含む可能性があります。

+0

変更はありませんが、お試しいただきありがとうございます。コードで「オンザフライ」でワークブックを作成しているときに、ファイル属性を閉じたり保存したりする必要がありました。保存されていなかったため、SaveAsはできません。私はデフォルトのフォーマットで保存しています、私はさまざまなフォーマット(Excel9、Excel9597など)を試しました。それらはすべて同じ結果を持っていました。それは私が仮定するいくつかの新しい "信頼"機能です... –

+0

私はあきらめてPDF出力に切り替えました... –

関連する問題