プロが教える店舗＆オフィスのセキュリティ対策術

いつもお世話になっています 教えていただきたいです このコードをユーザーフォームにある コマンドボタ

解決済

  • 質問者：東西線
  • 質問日時：
  • 回答数：2件

いつもお世話になっています
教えていただきたいです
このコードをユーザーフォームにある
コマンドボタンから
実行するとthisWorkbookが
閉じられ他の開いてある
ブックはそのままのこります


Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> thisWorkbook.Name Then
wb.Close
End If
Next

質問者からの補足コメント

  • 標準モジュールから
    実行すると問題なくうまくいくのですが

      補足日時：2021/12/01 09:38
    通報する
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.1

  • 回答者： ShowMeHow
  • 回答日時：

For Each wb In Workbooks


debug.print wb.name
debug.print thisworkbook.name
debug.print wb.Name <> thisWorkbook.Name
next
などやって原因をさぐってみたら？
    • good
    • 1
    • 件
通報する

No.2ベストアンサー

理由はわかりませんが、



＞標準モジュールから実行すると問題なくうまくいくのですが

コードを標準モジュールに記載してCallで呼んでみてもダメなのかな？
    • good
    • 0
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報