vba中如何取消冻结

在VBA（Visual Basic for Applications）中，如果你想要取消Excel工作表的冻结状态，你可以使用`SplitScreen`属性和`FreezePanes`属性。

以下是一个简单的VBA代码示例，用于取消冻结Excel工作表的冻结状态：

```vba

Sub UnFreezePanes()

Dim ws As Worksheet

Set ws = ActiveSheet ' 可以指定具体的工作表，例如：Set ws = ThisWorkbook.Sheets("Sheet1")

' 如果工作表有冻结，则取消冻结

If ws.SplitScreen Then

ws.SplitScreen = False

ws.FreezePanes = False

End If

End Sub

```

在这段代码中，`SplitScreen`属性用于检查是否启用了分屏显示（即冻结）。如果该属性为`True`，表示工作表被冻结。将`SplitScreen`设置为`False`会取消分屏显示，并且`FreezePanes`属性也会被设置为`False`，从而完全取消冻结。

要运行此代码，你可以在Excel VBA编辑器中插入一个新模块，并将上述代码粘贴进去。然后，你可以通过运行`UnFreezePanes`过程来取消任何活动工作表的冻结状态。如果你想要取消特定工作表的冻结，可以通过修改`Set ws = ActiveSheet`这一行来实现。