Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com ocultar automàticament fulls de treball específics en obrir un fitxer Excel?

Si heu d'ocultar algunes fulles de treball específiques automàticament quan algú obri el llibre, com podria fer front a aquest treball a Excel?

Amaga un full de treball específic automàticament quan obriu un llibre amb codi VBA

Amaga unes fulles de treball específiques automàticament quan obriu un llibre amb codi VBA


fletxa blau dreta bombollaAmaga un full de treball específic automàticament quan obriu un llibre amb codi VBA

Si voleu ocultar un full de treball específic quan obriu el llibre, podeu aplicar el codi VBA següent.

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A l'esquerra Projecte-VBAProject panell, feu doble clic al botó ThisWorkbook per obrir un mòdul en blanc i, a continuació, copieu i enganxeu el següent codi al mòdul:

Codi VBA: ocultar un full específic quan obriu un llibre:

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

escaneu el document a 1 obert

Nota: En el codi anterior, Sheet5 és el nom del full que vulgueu ocultar per obrir-lo. Canvieu-lo a la vostra necessitat.

3. A continuació, deseu i tanqueu aquesta finestra del codi i feu clic a Dossier > Desa per desar aquest llibre com Llibre de treball Macro habilitat per a Excel format, veure captura de pantalla:

escaneu el document a 2 obert

4. Quan obriu aquest llibre la propera vegada, feu clic a Activa el contingut primer, i el vostre full d'especificació s'oculta automàticament.

escaneu el document a 3 obert


fletxa blau dreta bombolla Amaga unes fulles de treball específiques automàticament quan obriu un llibre amb codi VBA

Si hi ha múltiples fulls de treball que cal amagar-se quan s'obre el llibre, aquí també hi ha un codi que us pot ajudar.

1. En primer lloc, hauríeu d'incloure els noms dels fulls que voleu amagar en una llista d'un full de càlcul i, després, anar a la pàgina Quadre de nom per donar-los un nom de rang-SheetsToHide, i premeu Enter clau, veure captura de pantalla:

escaneu el document a 4 obert

2. A continuació, premeu la tecla ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

3. A l'esquerra Projecte-VBAProject panell, feu doble clic al botó ThisWorkbook per obrir un mòdul en blanc i, a continuació, copieu i enganxeu el següent codi al mòdul:

Codi VBA: amaga algunes fitxes específiques quan obriu un llibre:

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

escaneu el document a 5 obert

Nota: En el codi anterior, SheetsToHide és el nom del rang que heu creat al pas 1.

4. A continuació, deseu i tanqueu aquesta finestra del codi i feu clic a Dossier > Desa per desar aquest llibre com Llibre de treball Macro habilitat per a Excel format. A partir d'ara, quan obriu aquest llibre la propera vegada, els fulls de treball especificats s'ocultaran automàticament.



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.