Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
速攻テクニック「別のブックをアクティブにして閉じる」を「四角形角度付き」に登録する
投稿日時: 21/02/23 19:53:57
投稿者: Dmac8085

お世話になります。
 
Excel VBAの速攻テクニックの 「ファイル操作関係のテクニック」にある
「別のブックをアクティブにして閉じる」を図形の「四角形角度付き」にマクロを
登録し、「四角形角度付き」をクリックすると下記Codeを実行させようと
考えています。
(「四角形角度付き」を右クリックし「マクロの登録」にて編集ボタンを押して
下記Codeをコピペしました。
 
Sub Sample()
     
    MsgBox "VBAが実行されているブックをアクティブにします。"
    Windows(ThisWorkbook.Name).Activate
 
    MsgBox "Book2.xlsxをアクティブにします。"
    Workbooks("Book2.xlsx").Activate
    MsgBox "Book2.xlsxを閉じます。"
 
    Workbooks("Book2.xlsx").Close
 
End Sub
 
しかし、クリックすると
「マクロ”Book2.xlsx'四角形角度付き_Click'を実行できません。このブックでマクロが使用できないか、
またはすべてのマクロが無効になって入り可能性があります。」
と出てきます。オプションのトラストセンターで「すべてのマクロを有効にする」にチェックが
入っています。
 
何が問題でしょうか。
ご教示、宜しくお願い申し上げます。
 

投稿日時: 21/02/23 20:15:34
投稿者: Dmac8085

自己レスです。
 
原因が分かりました。
 
1.Book2のマクロの登録にCodeが書かれていませんでした。
(他のブックを開いていたのでそこにCodeを書き込んでいました)
 
2."Book2.xlsx"は"Book2.xlsm"でなくてはならず、改めて
   Book2をxlsmで保存し、走らせたら動きました。
 
お騒がせしました。
今後とも、宜しくお願い申し上げます。