Note: The other languages of the website are Google-translated. Back to English

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL