Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Manoel Bastos

Mostrar apenas colunas selecionadas

Recommended Posts

Com o código abaixo eu mostrava apenas determinadas colunas, mas não consigo fazer que o código funcione corretamente agora, estou usando o Excel 2010.

 

Sub Mostrar_Somente_Colunas(strCol As String)

' Argumento:
'   strCol: é uma string que representa o intervalo de colunas a ficar visível
'   exemplo: strCol = "D:G"


Dim ws As Worksheet
Set ws = ActiveSheet

Application.ScreenUpdating = False

' desprotege a planilha:
ws.Unprotect "   "  ' **** mude aqui para a sua senha ****

' oculta tudo:
ws.Columns("B:XFD").EntireColumn.Hidden = True ' *** use esta linha se for Excel 2007 ou superior :tw_angry: O problema está aqui, mas não sei como solucioná-lo
'ws.Columns("B:IV").EntireColumn.Hidden = True  ' *** use esta linha se for antes do 2007

' exibe somente as colunas escolhidas:
ws.Columns(strCol).EntireColumn.Hidden = False
ActiveWindow.ScrollColumn = 1

' protege a planilha:
ws.Protect "     " ' **** mude aqui para a sua senha ****

' libera variável:
Set ws = Nothing

Application.ScreenUpdating = True
End Sub

 

Editado por Simon Viegas
Ao postar um código, utilizem a tag CODE (botão <>)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×