Preskoči na glavno vsebino

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


puščica modri desni mehurčekPri 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

doc skrij list na odprtem 1

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:

doc skrij list na odprtem 2

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

doc skrij list na odprtem 3


puščica modri desni mehurček 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:

doc skrij list na odprtem 4

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

doc skrij list na odprtem 5

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.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations