Come nascondere automaticamente fogli di lavoro specifici quando si apre un file Excel?

Se hai bisogno di nascondere automaticamente alcuni fogli di lavoro specifici quando qualcuno apre la cartella di lavoro, come potresti gestire questo lavoro in Excel?

Nascondi automaticamente un foglio di lavoro specifico all'apertura di una cartella di lavoro con codice VBA

Nascondi automaticamente alcuni fogli di lavoro specifici quando si apre una cartella di lavoro con codice VBA

---

Nascondi automaticamente un foglio di lavoro specifico all'apertura di una cartella di lavoro con codice VBA

Se si desidera nascondere un foglio di lavoro specifico all'apertura della cartella di lavoro, è possibile applicare il seguente codice VBA.

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

2. Sulla sinistra Progetto-VBAProgetto fare doppio clic su Questa cartella di lavoro per aprire un modulo vuoto, quindi copia e incolla il codice seguente nel modulo:

Codice VBA: nasconde un foglio specifico all'apertura di una cartella di lavoro:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

Note:: Nel codice sopra, Sheet5 è il nome del foglio che vuoi nascondere all'apertura. Si prega di modificarlo secondo le proprie necessità.

3. Quindi salva e chiudi questa finestra del codice e fai clic su Compila il > Salva con nome per salvare questa cartella di lavoro come Cartella di lavoro abilitata per Excel formato, vedi screenshot:

4. Alla successiva apertura di questa cartella di lavoro, fare clic su Abilitare il contenuto in primo luogo, quindi il foglio specificato verrà nascosto automaticamente.

---

Nascondi automaticamente alcuni fogli di lavoro specifici quando si apre una cartella di lavoro con codice VBA

Se ci sono più fogli di lavoro che devono essere nascosti quando si apre la cartella di lavoro, ecco anche un codice che può aiutarti.

1. Innanzitutto, dovresti elencare i nomi dei fogli che vuoi nascondere all'apertura in un elenco di un foglio di lavoro, quindi andare al Casella del nome per dare loro un nome di intervalloFogli da nasconderee premere Entra chiave, vedi screenshot:

2. Quindi tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Sulla sinistra Progetto-VBAProgetto fare doppio clic su Questa cartella di lavoro per aprire un modulo vuoto, quindi copia e incolla il codice seguente nel modulo:

Codice VBA: nascondi alcuni fogli di lavoro specifici all'apertura di una cartella di lavoro:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

Note:: Nel codice sopra, Fogli da nascondere è il nome dell'intervallo che hai creato nel passaggio 1.

4. Quindi salva e chiudi questa finestra del codice e fai clic su Compila il > Salva con nome per salvare questa cartella di lavoro come Cartella di lavoro abilitata per Excel formato. D'ora in poi, quando aprirai questa cartella di lavoro la prossima volta, i fogli di lavoro specificati verranno nascosti automaticamente.