Μια μακροεντολή Excel για απόκρυψη όλων εκτός από το ενεργό φύλλο εργασίας

Θέλετε να αποκρύψετε τα ανενεργά φύλλα εργασίας με αυτήν τη μακροεντολή; Το Excel δεν σας επιτρέπει να αποκρύψετε όλα τα φύλλα σε ένα βιβλίο εργασίας — τουλάχιστον ένα πρέπει να εμφανίζεται. Ωστόσο, μπορείτε να αποκρύψετε όλα εκτός από το ενεργό φύλλο.

1. Πώς λειτουργεί η μακροεντολή

Η μακροεντολή εδώ περνά μέσα από τα φύλλα εργασίας και αντιστοιχίζει το όνομα κάθε φύλλου εργασίας με το όνομα του ενεργού φύλλου. Κάθε φορά που επαναλαμβάνεται η μακροεντολή, κρύβει οποιοδήποτε φύλλο εργασίας που δεν ταιριάζει.

Sub Macro1()
    'Βήμα 1: Δηλώστε τις μεταβλητές σας
    Dim ws As Worksheet
    'Βήμα 2: Ξεκινήστε να επαναλαμβάνετε όλα τα φύλλα εργασίας
    For Each ws In ThisWorkbook.Worksheets
        'Βήμα 3: Ελέγξτε το όνομα κάθε φύλλου εργασίας
        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
            'Βήμα 4: Απόκρυψη του φύλλου
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub
Βήμα Περιγραφή
1 Δηλώστε ένα αντικείμενο που ονομάζεται ws. Δημιουργεί ένα κοντέινερ για κάθε φύλλο εργασίας από το οποίο η μακροεντολή κάνει βρόχο.
2 Ξεκινά τον βρόχο, αξιολογώντας όλα τα φύλλα εργασίας στο συγκεκριμένο βιβλίο εργασίας.
3 Η μακροεντολή συγκρίνει το όνομα του ενεργού φύλλου με το φύλλο που βρίσκεται σε βρόχο.
4 Αν τα ονόματα των φύλλων είναι διαφορετικά, η μακροεντολή αποκρύπτει το φύλλο.
5 Επαναλαμβάνει για το επόμενο φύλλο. Αφού αξιολογηθούν όλα, η μακροεντολή τελειώνει.

Σημειώστε ότι χρησιμοποιείτε το xlSheetHidden στη μακροεντολή σας. Αυτή η ιδιότητα εφαρμόζει την προεπιλεγμένη κατάσταση απόκρυψης που θα λαμβάνατε κανονικά όταν κάνετε δεξί κλικ σε ένα φύλλο και επιλέγετε Απόκρυψη. Επίσης, υπάρχει μια πιο μυστική κατάσταση απόκρυψης, xlSheetVeryHidden, που δεν επιτρέπει στους χρήστες να βλέπουν τα κρυμμένα φύλλα χωρίς να χρησιμοποιήσουν VBA.

2. Πώς να χρησιμοποιήσετε τη μακροεντολή

Για να εφαρμόσετε αυτήν τη μακροεντολή, μπορείτε να την αντιγράψετε και να την επικολλήσετε σε μια τυπική λειτουργική μονάδα:

  1. Ενεργοποιήστε το Visual Basic Editor πατώντας Alt+F11.
  2. Κάντε δεξί κλικ στο όνομα του έργου ή του βιβλίου εργασίας στο παράθυρο του έργου.
  3. Επιλέξτε Εισαγωγή → Μονάδα.
  4. Πληκτρολογήστε ή επικολλήστε τον κωδικό στη μονάδα που δημιουργήθηκε πρόσφατα.

Σημαντικές σημειώσεις:

  • Χρησιμοποιήστε το xlSheetVeryHidden για μυστικές ανάγκες για φύλλα που δεν θέλετε να είναι προσβάσιμα εύκολα.
  • Αξιολογήστε τα αποτελέσματα για να διασφαλίσετε ότι η μακροεντολή λειτουργεί σωστά.
  • Κρατήστε backups για την πρόληψη απώλειας δεδομένων.
Excel Macro Example

11 Comments

  1. Λάμπρος -

    Ευχαριστώ πολύ για το άρθρο! Μαθαίνω συνεχώς και αυτή η μακροεντολή είναι ακριβώς αυτό που χρειαζόμουν αυτή τη στιγμή

  2. Μαρία IT -

    Συμβουλή: Μην ξεχνάτε να κρατάτε ένα αντίγραφο ασφαλείας των αρχείων σας! Αν κάτι πάει στραβά, η αποθήκευση είναι σωτήριος κανόνας στο Excel!

  3. Κώστας 123 -

    Φανταστική ιδέα! Χρειαζόμουν κάτι τέτοιο για τη δουλειά μου, γιατί το Excel μερικές φορές είναι χαοτικό με τόσα φύλλα εργασίας.

  4. Αντώνης -

    Πολύ ενδιαφέρον! Αν καταφέρω να το εφαρμόσω, θα είναι μεγάλη βοήθεια για μένα. Έχετε δοκιμάσει να συνδυάσετε άλλες μακροεντολές;

  5. Άννα -

    Είμαι ενθουσιασμένη που βρήκα αυτή τη λύση! Το Excel μπορεί να είναι δύσκολο αλλά με τέτοιες μακροεντολές γίνεται πολύ πιο εύκολο και διασκεδαστικό!

  6. Παναγιώτης -

    Πρέπει να πω ότι η δυνατότητα απόκρυψης φύλλων είναι πραγματικά επαναστατική! Ειδικά για όσους δουλεύουμε με πολλά δεδομένα

  7. Γιάννης -

    Ωραία πράγματα! Η απόκρυψη των φύλλων βοηθάει στην καλύτερη οργάνωση των δεδομένων, αλλά πώς μπορώ να αναιρέσω την εντολή αν χρειαστώ τα άλλα φύλλα;

  8. Σοφία -

    Η μακροεντολή είναι πραγματικά γρήγορη και αποτελεσματική! Εφαρμόζοντας αυτή τη λύση, μπόρεσα να συγκεντρώσω τις πληροφορίες που έψαχνα εύκολα και γρήγορα

  9. Δημήτρης -

    Αυτό το άρθρο είναι πολύ χρήσιμο! Η μακροεντολή για απόκρυψη των άλλων φύλλων εργασίας είναι εξαιρετική για να διατηρείς τα δεδομένα σου οργανωμένα. Ευχαριστώ που το μοιράστηκες

  10. Ελένη -

    Θέλω να μάθω περισσότερα για τις μακροεντολές στο Excel. Είναι πολύ χρήσιμες και δεν ήξερα ότι μπορείς να αποθηκεύσεις χρόνο με αυτόν τον τρόπο. Υπάρχουν άλλες παρόμοιες μακροεντολές που προτείνετε;

  11. Maggie από Αθήνα -

    Μπορείτε να προσθέσετε άλλες συμβουλές για τη χρήση του Excel; Αναζητώ συνεχώς τρόπους να αυξήσω την παραγωγικότητά μου

Leave a Comment

Τι είναι οι πίνακες ελέγχου και οι αναφορές στο Excel;

Τι είναι οι πίνακες ελέγχου και οι αναφορές στο Excel;

Στο Excel, είναι κρίσιμο να κατανοήσουμε τη διαφορά μεταξύ αναφορών και πινάκων εργαλείων για την αποτελεσματική ανάλυση και οπτικοποίηση δεδομένων.

Πότε να χρησιμοποιήσετε το OneDrive για επιχειρήσεις

Πότε να χρησιμοποιήσετε το OneDrive για επιχειρήσεις

Ανακαλύψτε πότε να χρησιμοποιήσετε το OneDrive για επιχειρήσεις και πώς μπορείτε να επωφεληθείτε από τον αποθηκευτικό χώρο των 1 TB.

Υπολογισμός του αριθμού ημερών μεταξύ δύο ημερομηνιών στο Excel

Υπολογισμός του αριθμού ημερών μεταξύ δύο ημερομηνιών στο Excel

Ο υπολογισμός του αριθμού ημερών μεταξύ δύο ημερομηνιών είναι κρίσιμος στον επιχειρηματικό κόσμο. Μάθετε πώς να χρησιμοποιείτε τις συναρτήσεις DATEDIF και NETWORKDAYS στο Excel για ακριβείς υπολογισμούς.

Πώς να ανανεώσετε τα δεδομένα συγκεντρωτικού πίνακα του Excel

Πώς να ανανεώσετε τα δεδομένα συγκεντρωτικού πίνακα του Excel

Ανακαλύψτε πώς να ανανεώσετε γρήγορα τα δεδομένα του συγκεντρωτικού πίνακα στο Excel με τέσσερις αποτελεσματικές μεθόδους.

Μια μακροεντολή Excel για απόκρυψη όλων εκτός από το ενεργό φύλλο εργασίας

Μια μακροεντολή Excel για απόκρυψη όλων εκτός από το ενεργό φύλλο εργασίας

Μάθετε πώς μπορείτε να χρησιμοποιήσετε μια μακροεντολή Excel για να αποκρύψετε όλα τα ανενεργά φύλλα εργασίας, βελτιώνοντας την οργάνωση του βιβλίου εργασίας σας.

Ιδιότητες πεδίου MS Access για να βεβαιωθείτε ότι οι καταχωρίσεις δεδομένων είναι ακριβείς

Ιδιότητες πεδίου MS Access για να βεβαιωθείτε ότι οι καταχωρίσεις δεδομένων είναι ακριβείς

Ανακαλύψτε τις Ιδιότητες πεδίου MS Access για να μειώσετε τα λάθη κατά την εισαγωγή δεδομένων και να διασφαλίσετε την ακριβή καταχώρηση πληροφοριών.

Πώς να κάνετε αυτόματη σύνοψη ενός εγγράφου του Word 2003

Πώς να κάνετε αυτόματη σύνοψη ενός εγγράφου του Word 2003

Ανακαλύψτε πώς να χρησιμοποιήσετε το εργαλείο αυτόματης σύνοψης στο Word 2003 για να συνοψίσετε εγγραφές γρήγορα και αποτελεσματικά.

Πώς να χρησιμοποιήσετε τη συνάρτηση PROB στο Excel

Πώς να χρησιμοποιήσετε τη συνάρτηση PROB στο Excel

Η συνάρτηση PROB στο Excel επιτρέπει στους χρήστες να υπολογίζουν πιθανότητες με βάση δεδομένα και πιθανότητες σχέσης, ιδανική για στατιστική ανάλυση.

Τι σημαίνουν τα μηνύματα σφάλματος επίλυσης στο Excel;

Τι σημαίνουν τα μηνύματα σφάλματος επίλυσης στο Excel;

Ανακαλύψτε τι σημαίνουν τα μηνύματα σφάλματος του Solver στο Excel και πώς να τα επιλύσετε, βελτιστοποιώντας τις εργασίες σας αποτελεσματικά.

Πώς να χρησιμοποιήσετε τη συνάρτηση FREQUENCY στο Excel

Πώς να χρησιμοποιήσετε τη συνάρτηση FREQUENCY στο Excel

Η συνάρτηση FREQUENCY στο Excel μετράει τις τιμές σε έναν πίνακα που εμπίπτουν σε ένα εύρος ή bin. Μάθετε πώς να την χρησιμοποιείτε για την κατανομή συχνότητας.