Salt la conținutul principal

Cum se ascund automat anumite foi de lucru la deschiderea unui fișier Excel?

Dacă trebuie să ascundeți automat anumite foi de lucru specifice atunci când cineva deschide registrul de lucru, cum ați putea face față acestei lucrări în Excel?

Ascundeți automat o foaie de lucru specifică atunci când deschideți un registru de lucru cu cod VBA

Ascundeți automat anumite foi de lucru specifice atunci când deschideți un registru de lucru cu cod VBA


săgeată albastru dreapta balonAscundeți automat o foaie de lucru specifică atunci când deschideți un registru de lucru cu cod VBA

Dacă doriți să ascundeți o foaie de lucru specifică atunci când deschideți registrul de lucru, puteți aplica următorul cod VBA.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. In stanga Proiect-VBAProject , faceți dublu clic pe Acest manual de lucru pentru a deschide un modul gol, apoi copiați și lipiți următorul cod în modul:

Cod VBA: Ascundeți o foaie specifică atunci când deschideți un registru de lucru:

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

doc ascunde foaia pe deschidere 1

notițe: În codul de mai sus, Sheet5 este numele foii pe care doriți să o ascundeți deschis. Vă rugăm să îl modificați după nevoile dvs.

3. Apoi salvați și închideți această fereastră de cod și faceți clic pe Fișier > Salvare ca pentru a salva acest registru de lucru ca Cartea de lucru Excel Macro-Enabled format, vezi captura de ecran:

doc ascunde foaia pe deschidere 2

4. Când deschideți acest registru de lucru data viitoare, faceți clic pe Activați conținutul butonul în primul rând, iar apoi foaia de specificare va fi ascunsă automat.

doc ascunde foaia pe deschidere 3


săgeată albastru dreapta balon Ascundeți automat anumite foi de lucru specifice atunci când deschideți un registru de lucru cu cod VBA

Dacă sunt necesare mai multe foi de lucru ascunse la deschiderea registrului de lucru, iată și un cod care vă poate ajuta.

1. Mai întâi, ar trebui să enumerați numele foilor pe care doriți să le ascundeți deschise într-o listă a unei foi de lucru, apoi să mergeți la Caseta de nume pentru a le da un nume de gamă-SheetsToHide, și apăsați Intrați tasta, vezi captura de ecran:

doc ascunde foaia pe deschidere 4

2. Apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. In stanga Proiect-VBAProject , faceți dublu clic pe Acest manual de lucru pentru a deschide un modul gol, apoi copiați și lipiți următorul cod în modul:

Cod VBA: Ascundeți câteva foi de lucru specifice la deschiderea unui registru de lucru:

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 ascunde foaia pe deschidere 5

notițe: În codul de mai sus, SheetsToHide este numele intervalului pe care l-ați creat la pasul 1.

4. Apoi salvați și închideți această fereastră de cod și faceți clic pe Fișier > Salvare ca pentru a salva acest registru de lucru ca Cartea de lucru Excel Macro-Enabled format. De acum înainte, când deschideți acest registru de lucru data viitoare, foile de lucru specificate vor fi ascunse automat.

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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