[[20190801181411]]　『読み取り推奨で保存』（かえで）　ページの最後に飛ぶ

『読み取り推奨で保存』（かえで）

よろしくお願いします。
以前マクロファイルをxlsxで保存する方法を質問した者です。
アドバイスしていただいたおかげで拡張子を変えて保存する事ができました。
質問なのですが、その保存の際、読み取り推奨で保存したいのですがうまくいきません。
ReadOnlyRecommendedをTrueに指定すれば出来ると思ったのですが、
うまくいきません。

構文に不備があるのだと思い色々検索したのですが分かりませんでした。
これがそのコードになります。

Dim fname As String
Application.DisplayAlerts = False
fname = "7月入荷.xlsx"
Sheets.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\\" & fname
ReadOnlyRecommended = True
ActiveWorkbook.Close
Application.DisplayAlerts = True

詳しい方ご指摘お願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

これでできました

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fname, _
        FileFormat:=xlOpenXMLWorkbook, ReadOnlyRecommended:=True

（マナ） 2019/08/01(木) 18:54

マサさんありがとうございます。
早速試してみたのですが読み取り推奨で保存にはならなかったです。
もう少し試してみます。どこか間違ってるのかもです。

（かえで） 2019/08/01(木) 19:10

＞早速試してみたのですが読み取り推奨で保存にはならなかったです。

確認メッセージがでなかったという意味ですか。

（マナ） 2019/08/01(木) 19:33

コードを初めから書き直したら出来ました！
マナさんすごく助かりました。
ありがとうございました。

（かえで） 2019/08/02(金) 08:40

コメント返信：

[ 一覧(最新更新順) ]

[[20190801181411]] 『読み取り推奨で保存』（かえで） ページの最後に飛ぶ

[[20190801181411]]　『読み取り推奨で保存』（かえで）　ページの最後に飛ぶ