• 締切済み

他のPCだとマクロが機能しない

自分のPCで作成したExcelマクロをボタンを押下すれば起動するように設定したのですが、他の人のPCからファイルを開いてボタンを押下しても全く動作しません。 自分のPCだと完璧に動作するのですがなぜなのでしょう?その動作しないPCは自分のPCと同じシリーズのノートパソコンです。また、別のデスクトップタイプのPCでも試したのですがやはり動作しませんでした。 ちなみにマクロのセキュリティレベルが高になっているというわけではありません。 マクロの内容は「同じフォルダ内のグラフを開く」というものです。教えてgooで教えていただいたものです。

みんなの回答

  • Yeti21
  • ベストアンサー率47% (396/830)
回答No.2

もしや、他のPCから質問者様PCの共有フォルダのブックを開いていないでしょうか? ネットワークドライブを割り当てていれば問題無いですが、UNCパスなどは「chdir」が 機能しません。 適当にネットワークドライブを割り当てた後、「chdrive」でそのドライブに変更後、 「chdir」してみてはどうでしょうか?

noname#79209
noname#79209
回答No.1

> 他の人のPCからファイルを開いてボタンを押下しても全く動作しません。 これは、実際にはどのような状況なのでしょうか? 「ボタン」をクリックしても、ウンともスンともいわない。 あるいはエラーが出て動かない。

teru5000
質問者

補足

>これは、実際にはどのような状況なのでしょうか? 「ボタン」をクリックしてもウンともスンともいわない状況です。 マクロが動く気配すらありません。 エラーは全く表示されません。 動作するマクロはこんな感じです。 Sub OpenAllBooks() Dim FileName As String Dim OpenedBook As Workbook Dim IsBookOpen As Boolean ChDir (ThisWorkbook.Path) FileName = Dir("*.xls") Do While FileName <> "" IsBookOpen = False For Each OpenedBook In Workbooks If OpenedBook.Name = FileName Then IsBookOpen = True Exit For End If Next If IsBookOpen = False Then Workbooks.Open (FileName) End If FileName = Dir() Loop End Sub