在VBA中，取消隐藏工作表的方法如下：
通过代码取消隐藏所有工作表
```vba
Sub UnhideAllWorksheets（）
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
```
通过代码取消隐藏特定工作表
```vba
Sub UnhideWorksheet（sheetName As String）
Sheets（sheetName）.Visible = xlSheetVisible
End Sub
```
通过用户窗体控制隐藏和显示
可以创建一个用户窗体，其中包含复选框，每个复选框对应一个工作表。通过勾选复选框来控制对应工作表的显示和隐藏。
```vba
Private Sub CommandButton1_Click（）
Dim i As Integer
For i = 1 To 10
If Controls（"CheckBox" & i）.Value = True Then
Sheets（i）.Visible = xlSheetVisible
End If
Next i
End Sub
```
这些方法可以帮助你轻松地取消隐藏工作表，无论是全部工作表还是特定工作表。根据你的需求选择合适的方法即可。