対象ファイルを読取専用にする   Sub test()'  対象ファイルを読取専用にする    Dim myPath As String ···