Come copiare un foglio nascosto in Excel? 

In Excel, possiamo spostare e copiare un foglio nella cartella di lavoro corrente o in un'altra in modo rapido e semplice, ma hai mai provato a copiare un foglio nascosto nella cartella di lavoro attiva? In questo articolo, introdurrò un codice VBA per copiare un foglio nascosto specifico nel file Excel attivo.

Copia un foglio di lavoro nascosto nella cartella di lavoro attiva con codice VBA

Copia un foglio di lavoro nascosto nella cartella di lavoro attiva con codice VBA

Per copiare un foglio nascosto da una cartella di lavoro e dargli un nome, il seguente codice VBA può farti un favore:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: copia un foglio di lavoro nascosto nella cartella di lavoro attiva:

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

Note:: Nel codice sopra, Foglio 12 è il foglio nascosto che vuoi copiare, modificalo secondo le tue necessità.

3. E poi premere F5 chiave per eseguire questo codice, verrà visualizzata una finestra di messaggio per ricordarti di specificare un nome per la nuova copia del foglio di lavoro nascosto, vedi screenshot:

4. Quindi fare clic OK pulsante e il foglio nascosto è stato copiato contemporaneamente con il nuovo nome nella cartella di lavoro attiva.