途中までのプログラム張り付け Sub 暗号化実行() Dim cellValue, LineData As String, i As Integer, j As Integer Dim columnValue As Integer, FNo As Long, flg As Integer, SaveFileName Dim wScriptHost As Object, strInitDir As String '[名前を付け…