Public Function fVBE_IsProtected(Book As Workbook, Optional Alert As Boolean = True) As Boolean
    
    If Book Is Nothing Then Exit Function
    
    'VBAプロジェクトの保護パスワードがかかっている場合
    If Book.VBProject.Protection = vbext_pp_locked Then
        
        fVBE_IsProtected = True
        
        If Alert = True Then
            Call Msg_Show(Book.Name & " のプロジェクトのパスワードを解除してください")
        End If
        
    End If
    
End Function