Cccm update lại code VBA
1. Unhide tất cả sheet
Sub UnhideSheet()
On Error Resume Next
Application.ScreenUpdating = False
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
If Not Sh.Visible = xlSheetVisible Then Sh.Visible = xlSheetVisible
Next
Application.ScreenUpdating = True
End Sub
2. Unhide sheet mình chọn
Sub UnhideSomeSheets()
Dim sSheetName As String
Dim sMessage As String
Dim Msgres As VbMsgBoxResult
For Each wsSheet In ActiveWorkbook.Worksheets
If wsSheet.Visible = xlSheetHidden Then
sSheetName = wsSheet.Name
sMessage = "Ban co muon Unhide sheet nay khong?" & vbNewLine & sSheetName
Msgres = MsgBox(sMessage, vbYesNo)
If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible
End If
Next wsSheet
End Sub
Thân,
