ライブラリ

fVBE_IsProtected

VBProjectにパスワードの保護がかかっているか判定

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

VBE   2017/07/11   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください