Sub 加工品ダブルクリック()

    ActiveSheet.Unprotect
    ActiveSheet.OnDoubleClick = "加工データ読出"    
End Sub
-----------------------------------------------------------------
Sub 加工ダブルクリック取り消し()

    Sheets("Sheet1").OnDoubleClick = ""
'    ActiveSheet.OnDoubleClick = ""
    
End Sub
-----------------------------------------------------------------
Private Sub 加工データ読出()
  
  strCyu1 = "数量が変更されました。"
  
  strCyu2 = "手持ち部品があるから少なくした場合は、" & vbCrLf & _
    "保存不要の釦を押して" & vbCrLf & _
    " 自分で手持ち数を在庫帳に入庫して下さい。" _
    & vbCrLf & vbCrLf & "手配数を多くした場合は、" & vbCrLf _
    & "数量変更保存釦を押して下さい。" & vbCrLf _
    & "自動で在庫帳に保存します。"
  
  strCyu3 = "単価が変更されました。"
  
  strCyu4 = "今回だけ単価を変更する場合は、" & vbCrLf & _
    "保存不要を押す。" & vbCrLf & _
    vbCrLf & vbCrLf & "次回からも単価を変更する場合は、" & vbCrLf _
    & "単価変更保存釦を押して下さい。" & vbCrLf _
    & "自動で在庫帳に保存します。"
  
  If ActiveCell.Address() = "$G$12" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu1
    内容変更確認.Label1 = strCyu2
    内容変更確認.単価変更保存.Visible = False  'これはボタンを消している。
    内容変更確認.行番.Text = 12
    内容変更確認.変更値.Text = Range("G12")
  End If
  If ActiveCell.Address() = "$G$13" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu1
    内容変更確認.Label1 = strCyu2
    内容変更確認.単価変更保存.Visible = False
    内容変更確認.行番.Text = 13
    内容変更確認.変更値.Text = Range("G13")
  End If
  If ActiveCell.Address() = "$G$14" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu1
    内容変更確認.Label1 = strCyu2
    内容変更確認.単価変更保存.Visible = False
    内容変更確認.行番.Text = 14
    内容変更確認.変更値.Text = Range("G14")
  End If
  If ActiveCell.Address() = "$G$15" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu1
    内容変更確認.Label1 = strCyu2
    内容変更確認.単価変更保存.Visible = False
    内容変更確認.行番.Text = 15
    内容変更確認.変更値.Text = Range("G15")
  End If
  
  If ActiveCell.Address() = "$M$12" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu3
    内容変更確認.Label1 = strCyu4
    内容変更確認.数量変更保存.Visible = False
    内容変更確認.行番.Text = 12
    内容変更確認.変更値.Text = Range("M12")
  End If
  If ActiveCell.Address() = "$M$13" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu3
    内容変更確認.Label1 = strCyu4
    内容変更確認.数量変更保存.Visible = False
    内容変更確認.行番.Text = 13
    内容変更確認.変更値.Text = Range("M13")
  End If
  If ActiveCell.Address() = "$M$14" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu3
    内容変更確認.Label1 = strCyu4
    内容変更確認.数量変更保存.Visible = False
    内容変更確認.行番.Text = 14
    内容変更確認.変更値.Text = Range("M14")
  End If
  If ActiveCell.Address() = "$M$15" Then
    内容変更確認.Show vbModeless
    内容変更確認.Text1.Text = strCyu3
    内容変更確認.Label1 = strCyu4
    内容変更確認.数量変更保存.Visible = False
    内容変更確認.行番.Text = 15
    内容変更確認.変更値.Text = Range("M15")
  End If
End Sub