Synliggör alla flikar och arbetsblad i Excel

   Start >  Makron i Excel >  Exempel Excelmakron >   Excelmakro för att visa alla flikar i Excel

Ibland får man sig tillskickad Excelböcker som av olika anledningar har ett större antal flikar gömda. Att ta fram arbetsbladen igen kan vara en grannlaga uppgift - de måste nämligen tas fram ett och ett vilket givetvis blir tröttsamt om arbetsboken innehåller 40 gömda blad.

Nedan är ett Excelmakro som synliggör samtliga gömda flikar i en Excelbok. Makrot loopar igenom alla arbetsblad och ändrar egenskapen Visible = False till True för alla gömda blad.

Sub VisaSamtligaExcelBlad()
Set wsArbetsBlad = Worksheets 
For Each wsArbetsBlad In ActiveWorkbook.Worksheets 
If wsArbetsBlad .Visible = False Then 
wsArbetsBlad .Visible = True 
End If 
Next wsArbetsBlad  
End Sub

Om det ingår som en daglig rutinuppgift att ta fram gömda Excelsheets så kan detta makro med fördel arrangeras så att körningen startas via en tangentbordsgenväg som man själv väljer.