Private Sub 修正終了_Click()
    
    ActiveSheet.OnDoubleClick = ""
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Unload 内容変更確認
    
End Sub
------------------------------------------------------------------
Private Sub 保存不要_Click()
    
    ActiveSheet.OnDoubleClick = ""
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Unload 内容変更確認
    
End Sub
------------------------------------------------------------------
Private Sub userform_queryclose(cancel As Integer, closemode As Integer)
    
    If closemode <> vbFormCode Then
       cancel = True
    End If
    
End Sub