Skjul inaktive arbeidsbøker gjennom VBA

Anonim

Hvis du jobber med flere arbeidsbøker samtidig, og du trenger en makro for å hjelpe deg med å skjule alle inaktive arbeidsbøker, så vil denne artikkelen definitivt hjelpe deg.

I denne artikkelen vil vi fokusere på hvordan vi kan skjule flere arbeidsbøker som du for øyeblikket ikke bruker.

Spørsmål: Jeg må raskt skjule alle excel -filene bortsett fra den jeg bruker for øyeblikket, slik at jeg kan bytte mellom andre applikasjoner jevnt. Jeg ønsker å søke VBA -kode for dette unike kravet mitt.

For å få koden for å skjule alle inaktive arbeidsbøker, må vi følge trinnene nedenfor for å starte VB -editor

  • Klikk på kategorien Utvikler
  • Velg Visual Basic fra kodegruppen

  • Kopier følgende kode i regnearkmodulen
 Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window For Every win In Application.Windows win.Visible = False Next win aWin.Visible = True Application.ScreenUpdating = True End Sub 

  • Koden ovenfor vil skjule alle inaktive arbeidsbøker umiddelbart

Merk: Makroen ovenfor vil ikke skjule aktiv arbeidsbok.

For å vise alle arbeidsbøkene, må vi følge trinnene nedenfor:

  • Klikk på Vis -fanen
  • Klikk på Skjul

  • Dette vil vise arbeidsbøkene som ikke er vist

  • Hvis du velger hver og klikker på Ok -knappen, vil arbeidsboken bli avslørt

Konklusjon: Vi kan skjule hundrevis av arbeidsbøker som ikke er aktive med et enkelt klikk ved å bruke makrokoden ovenfor.

Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post