マクロExcelで開いているExcelファイルを検出する方法は？

Question

開いているExcelファイルをすべて検出して、シートをロックするにはどうしたらいいですか？

マクロを含むExcelファイルがあります。起動したら、開いているすべてのExcelファイルを調べ、パスワードを設定してシートをロックします。

VBAから開いているExcelファイルを検出する方法を知りません。

Answer 1

あなただけApplicationでワークブックにループする必要があります。

Dim wB as WorkBook 
Dim wS as WorkSheet 

For Each wB in Application.WorkBooks 
    For Each wS in wB.Sheets 
     wS.Protect "password" 
    Next wS 
Next wB