保护数据表格的单元格格式和边框可以使用Excel VBA来实现。下面是一个示例代码，演示如何保护数据表格的单元格格式和边框。

Sub ProtectCellsFormatAndBorders()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要保护的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要保护的区域
    Set rng = ws.Range("A1:D10")
    
    ' 解锁所有单元格
    rng.Locked = False
    
    ' 设置边框样式
    With rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = RGB(0, 0, 0) ' 黑色
    End With
    
    ' 将单元格设置为保护，除非解锁
    With ws.Protect
        .AllowFormattingCells = True ' 允许格式化单元格
        .AllowFormattingColumns = True ' 允许格式化列
        .AllowFormattingRows = True ' 允许格式化行
        .AllowFormattingOtherCells = True ' 允许格式化其他单元格
        .AllowInsertingColumns = True ' 允许插入列
        .AllowInsertingRows = True ' 允许插入行
        .AllowDeletingColumns = True ' 允许删除列
        .AllowDeletingRows = True ' 允许删除行
        .AllowSorting = True ' 允许排序
        .AllowFiltering = True ' 允许筛选
        .AllowUsingPivotTables = True ' 允许使用数据透视表
        .EnableSelection = xlUnlockedCells ' 仅允许选择未锁定的单元格
    End With
    
    ' 重新锁定保护的单元格
    rng.Locked = True
End Sub

上述代码中，我们首先指定要保护的工作表和区域。然后，我们使用Locked属性解锁所有单元格，以便我们可以修改其格式和边框。接着，我们使用Borders属性设置单元格的边框样式。最后，我们使用Protect方法保护工作表，并使用各种允许的选项来控制用户对单元格的操作。最后，我们重新锁定保护的单元格。

请确保将代码中的"Sheet1"更改为您要保护的工作表名称，并将"A1:D10"更改为您要保护的区域。