VBA 斜線削除

'==============================
' 右上斜線：削除（選択範囲）
'==============================
Public Sub DeleteDiagonal()
    Dim rng As Range
    If Not TryGetRangeSelection(rng) Then Exit Sub

    If rng.Worksheet.ProtectContents Then
        MsgBox "このシートは保護されています。斜線を削除できません。", vbExclamation
        Exit Sub
    End If

    On Error GoTo EH
    rng.Borders(xlDiagonalUp).LineStyle = xlNone
    Exit Sub
EH:
    MsgBox "斜線削除でエラー：" & Err.Description & "（" & Err.Number & "）", vbCritical
End Sub

'==============================
' 右上斜線：削除（選択範囲）
'==============================
Public Sub DeleteDiagonal()
    Dim rng As Range
    If Not TryGetRangeSelection(rng) Then Exit Sub

    If rng.Worksheet.ProtectContents Then
        MsgBox "このシートは保護されています。斜線を削除できません。", vbExclamation
        Exit Sub
    End If

    On Error GoTo EH
    rng.Borders(xlDiagonalUp).LineStyle = xlNone
    Exit Sub
EH:
    MsgBox "斜線削除でエラー：" & Err.Description & "（" & Err.Number & "）", vbCritical
End Sub

'==============================
' 斜線２種類：削除（選択範囲）
'==============================
Public Sub DeleteDiagonal_Both()
    Dim rng As Range
    If Not TryGetRangeSelection(rng) Then Exit Sub
    
    If rng.Worksheet.ProtectContents Then
        MsgBox "このシートは保護されています。斜線を削除できません。", vbExclamation
        Exit Sub
    End If
    On Error GoTo EH
    rng.Borders(xlDiagonalUp).LineStyle = xlNone
    rng.Borders(xlDiagonalDown).LineStyle = xlNone
    Exit Sub
EH:
    MsgBox "斜線削除（両方）でエラー：" & Err.Description & "（" & Err.Number & "）", vbCritical
End Sub

'==============================
' 斜線２種類：削除（選択範囲）
'==============================
Public Sub DeleteDiagonal_Both()
    Dim rng As Range
    If Not TryGetRangeSelection(rng) Then Exit Sub
    
    If rng.Worksheet.ProtectContents Then
        MsgBox "このシートは保護されています。斜線を削除できません。", vbExclamation
        Exit Sub
    End If
    On Error GoTo EH
    rng.Borders(xlDiagonalUp).LineStyle = xlNone
    rng.Borders(xlDiagonalDown).LineStyle = xlNone
    Exit Sub
EH:
    MsgBox "斜線削除（両方）でエラー：" & Err.Description & "（" & Err.Number & "）", vbCritical
End Sub