Kako samodejno skriti določene delovne liste pri odpiranju datoteke Excel?

Če morate nekaj posebnih delovnih listov samodejno skriti, ko nekdo odpre delovni zvezek, kako lahko to opravilo opravite v Excelu?

Pri odpiranju delovnega zvezka s kodo VBA samodejno skrije določen delovni list

Pri odpiranju delovnega zvezka s kodo VBA samodejno skrije nekatere posebne delovne liste

Pri odpiranju delovnega zvezka s kodo VBA samodejno skrije določen delovni list

Če želite pri odpiranju delovnega zvezka skriti določen delovni list, lahko uporabite naslednjo kodo VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Na levi Projekt-VBAProjekt podokno, dvokliknite Ta delovni zvezek da odprete prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo:

Koda VBA: pri odpiranju delovnega zvezka skrije določen list:

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

Opombe: V zgornji kodi, Sheet5 je ime lista, ki ga želite skriti na odprtem. Prosimo, spremenite ga glede na vaše potrebe.

3. Nato shranite in zaprite to okno s kodo in kliknite file > Shrani kot shraniti ta delovni zvezek kot Excelov delovni zvezek z omogočeno makro format, glej posnetek zaslona:

4. Ko naslednjič odprete to delovno knjigo, kliknite Omogoči vsebino najprej gumb, nato pa bo vaš podan list samodejno skrit.

Pri odpiranju delovnega zvezka s kodo VBA samodejno skrije nekatere posebne delovne liste

Če je pri odpiranju delovnega zvezka treba skriti več delovnih listov, vam lahko tukaj pomaga tudi koda.

1. Najprej na seznamu delovnega lista navedite imena listov, ki jih želite skriti, nato pa pojdite na Ime polje da jim damo ime obsega -SheetsToHidein pritisnite Vnesite tipko, glej posnetek zaslona:

2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Na levi Projekt-VBAProjekt podokno, dvokliknite Ta delovni zvezek da odprete prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo:

Koda VBA: Ko odprete delovni zvezek, skrijete določene delovne liste:

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

Opombe: V zgornji kodi, SheetsToHide je ime obsega, ki ste ga ustvarili v 1. koraku.

4. Nato shranite in zaprite to okno s kodo in kliknite file > Shrani kot shraniti ta delovni zvezek kot Excelov delovni zvezek z omogočeno makro format. Od zdaj naprej, ko naslednjič odprete ta delovni zvezek, bodo navedeni delovni listi samodejno skriti.