パスワードで保護されたファイルを保存するマクロ

Question

共有ドライブ上のパスワードで保護されたファイルとして特定のシートを保存するためのアクションボタンのExcel2010に次のマクロを書きました。

Private Sub Report_Click() 

Sheets("sheetname").SaveAs Filename:="\\shared_folder_path\master" & Sheets("sheetname").Range("A2"), _ 
          FileFormat:=52, _ 
          Password:="password", _ 
          WriteResPassword:="password", _ 
          ReadOnlyRecommended:=False, _ 
          CreateBackup:=False 

End Sub 

問題

は、私は実行時エラー「1004」

Answer 1

私はそれがあなたのFileNameパスとは何かを持っていると信じてを得ることです。

私はそれをテストし、私のデスクトップにリンクしているパスを使用していて、それは問題なく保存されました。同じテストをパスをデスクトップのパスに置き換えてみてください。

コンピュータが使用する割り当てられたドライブ文字をネットワークフォルダパスに追加する必要があります。

同じコードを提示するクリーンな方法はまた、基本的な例については、このHow to programmatically save a file to a network drive in Excelを見て

Private Sub Report_Click() 
     Sheets("Sheet1").SaveAs _ 
      Filename:="C:\Users\user1\Desktop\" & Sheets("Sheet1").Range("A2"), _ 
      FileFormat:=52, _ 
      Password:="password", _ 
      WriteResPassword:="password", _ 
      ReadOnlyRecommended:=False, _ 
      CreateBackup:=False 
End Sub 

と以下の通りです。