如何防止excel表格的格式覆盖VBA中区域的现有格式？

Sub ProtectFormat()
    Dim rng As Range
    Dim originalFormat As Variant
    
    ' 定义要保护格式的区域
    Set rng = Range("A1:B10")
    
    ' 保存区域的原始格式
    originalFormat = rng.Style
    
    ' 更改区域的格式
    rng.Style = "Normal"
    
    ' 恢复区域的原始格式
    rng.Style = originalFormat
End Sub

Sub ProtectFormat()
    Dim rng As Range
    Dim originalStyle As Style
    
    ' 定义要保护格式的区域
    Set rng = Range("A1:B10")
    
    ' 保存区域的原始样式
    Set originalStyle = rng.Style
    
    ' 更改区域的样式
    rng.Style = "CustomStyle"
    
    ' 恢复区域的原始样式
    rng.Style = originalStyle
End Sub