Private Sub 数量変更保存_Click()
    
    Sh = ActiveSheet.Name
    
    If Sh = "Sheet1" Then
       
       If ActiveCell.Address() = "$G$12" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("G12")
          Hinb = Range("D12")
          intG = Val(Hinb + 7)
          内容変更確認.行番.Text = intG
       End If
       If ActiveCell.Address() = "$G$13" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("G13")
          内容変更確認.行番.Text = 13
          Hinb = Range("D13") + 7
       End If
       If ActiveCell.Address() = "$G$14" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("G14")
          内容変更確認.行番.Text = 14
          Hinb = Range("D14") + 7
       End If
       If ActiveCell.Address() = "$G$15" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("G15")
          内容変更確認.行番.Text = 15
          Hinb = Range("D15") + 7
       End If
    End If
    
    intGb = 内容変更確認.行番.Text
    intHd = 内容変更確認.変更値.Text
    intLb = 11
    
    Sheets("Sheet2").Activate
    ActiveSheet.Unprotect

    Cells(intGb, intLb).Value = intHd
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    ActiveWorkbook.Save
    Unload 内容変更確認
    
    Call 加工ダブルクリック取り消し
    
End Sub
---------------------------------------------------------------------------

Private Sub 単価変更保存_Click()
    
    Sh = ActiveSheet.Name
    
    If Sh = "Sheet1" Then

       If ActiveCell.Address() = "$M$12" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("M12")
          Hinb = Range("D12") + 7
       End If
       If ActiveCell.Address() = "$M$13" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("M13")
          Hinb = Range("D13") + 7
       End If
       If ActiveCell.Address() = "$M$14" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("M14")
          Hinb = Range("D14") + 7
       End If
       If ActiveCell.Address() = "$M$15" Then
          内容変更確認.変更値.Text = Sheets("Sheet1").Range("M15")
          Hinb = Range("D15") + 7
       End If
    End If

    intGb = Hinb
    intHd = 内容変更確認.変更値.Text
    内容変更確認.行番.Text = Hinb
    
    Sheets("Sheet2").Activate
    ActiveSheet.Unprotect

    Cells(Hinb, 5).Value = intHd
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    ActiveWorkbook.Save
    Unload 内容変更確認
    Call 加工ダブルクリック取り消し
    
End Sub