Como copiar uma planilha oculta no Excel? 

No Excel, podemos mover e copiar uma planilha para a pasta de trabalho atual ou outra rapidamente e facilmente, mas você já tentou copiar uma planilha oculta para a pasta de trabalho ativa? Neste artigo, vou apresentar um código VBA para você copiar uma planilha oculta específica para o arquivo do Excel ativo.

Copie uma planilha oculta para a pasta de trabalho ativa com código VBA

Copie uma planilha oculta para a pasta de trabalho ativa com código VBA

Para copiar uma planilha oculta de uma pasta de trabalho e dar-lhe um nome, o seguinte código VBA pode ajudá-lo:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Copie uma planilha oculta para a pasta de trabalho ativa:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

Observação: No código acima, Planilha 12 é a planilha oculta que você deseja copiar, altere-a conforme necessário.

3. Em seguida, pressione a tecla F5 para executar este código, uma caixa de prompt será exibida para lembrá-lo de especificar um nome para a nova cópia da planilha oculta, veja a captura de tela:

4. Depois clique no botão OK, e a planilha oculta terá sido copiada com o novo nome na pasta de trabalho ativa imediatamente.