Código simples para o dia-a-dia.
Sub ShowAllWorkSheets()Dim ws As WorksheetIf ActiveWorkbook Is Nothing Then Exit SubFor Each ws In ActiveWorkbook.Worksheetsws.Visible = xlSheetVisibleNext wsEnd Sub
Tags: VBA, Excel, worksheet, visible
✔ VBA Dashboards Specialist® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance. Contate-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Sub ShowAllWorkSheets()Dim ws As WorksheetIf ActiveWorkbook Is Nothing Then Exit SubFor Each ws In ActiveWorkbook.Worksheetsws.Visible = xlSheetVisibleNext wsEnd Sub
Nenhum comentário:
Postar um comentário