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

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL