Sub デスクトップor禁止場所で実行している場合に警告する()

    実行場所 = ThisWorkbook.Path
    
    If 実行場所 Like "*\Desktop" Then
    
        MsgBox "デスクトップで実行しているため他の場所で実行してください"
        End '実行を終了
    
    End If

End Sub