Blog # 02-2012: unhiden van meerdere sheets in Excel 2007?

Vandaag een tip over het hiden en unhiden van meerdere sheets in Excel 2007. Je kunt in Excel 2007 helaas niet met de rechtermuisknop meerdere sheets tegelijkertijd unhiden. Wil je dit doen dan zal je sheet voor sheet moeten unhiden, veel werk dus.

Er is echter wel een makkelijke en simpele oplossing voor, in de vorm van een korte macro. Je kunt ervoor kiezen om alle sheets te unhiden (in 1 keer) of om per ge-unhide sheet een selectie te maken (keuze unhiden ja of nee).

Kopieer onderstaande tekst in een macro en run deze.
Succes ermee!

Optie 1: unhiden van alle sheets

Sub UnhideAllSheets()
Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets
wsSheet.Visible = xlSheetVisible
Next wsSheet
End Sub

Optie 2: unhiden van alle sheets – keuzemenu

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 = “Unhide the following sheet?” _
& vbNewLine & sSheetName
Msgres = MsgBox(sMessage, vbYesNo)
If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible
End If
Next wsSheet
End Sub