Κατάψυξη υαλοπινάκων χρησιμοποιώντας VBA
Πρόσφατα δημοσίευσα στο Freezing panes στο Excel, δείτε πώς μπορείτε να το κάνετε χρησιμοποιώντας το VBA:
Πάγωμα σειρών
Γραμμές ("1: 1"). Επιλέξτε ActiveWindow.FreezePanes = True
Πάγωμα στηλών
Εύρος ("A: A"). Επιλέξτε ActiveWindow.FreezePanes = True
Πάγωμα σειρών και στηλών
Εύρος ("B2"). Επιλέξτε ActiveWindow.FreezePanes = True
UnFreeze Panes
ActiveWindow.FreezePanes = Λάθος
Αναγκάστε το βιβλίο εργασίας να αποθηκεύσετε χωρίς πάνελ παγώματος
Το Excel μας επιτρέπει να ελέγχουμε τα πράγματα μέσω συμβάντων. Αυτό το άρθρο δεν είναι μια λεπτομερής συζήτηση σχετικά με τα γεγονότα ή τα χαρακτηριστικά τους. Αντ 'αυτού, δίνει ένα παράδειγμα συμβάντος WorkBook. Πρόκειται για εκδηλώσεις που πραγματοποιούνται σε επίπεδο βιβλίου εργασίας και όχι για ένα συγκεκριμένο φύλλο εργασίας.
Μέσω του VBA μπορούμε να ελέγξουμε τι συμβαίνει σε ορισμένες εκδηλώσεις, όπως πριν από την εκτύπωση ή πριν από την αποθήκευση. Ένα κοινό πρόβλημα που αντιμετωπίζω είναι ότι σε πολλά άτομα με τα οποία συνεργάζομαι δεν μου αρέσουν τα αρχεία με τα Freeze Panes.
Έτσι, σε αυτό το άρθρο, θα συγκεντρώσουμε κάποιον κώδικα που θα ελέγξει εάν είναι ενεργοποιημένο το Freeze Panes και αν ναι, δεν θα αποθηκεύσει το αρχείο. Αυτό σημαίνει ότι πρέπει να το αποθηκεύσω χωρίς πάγωμα - διατηρώντας τους συναδέλφους μου ευχαριστημένους !!
Το πιο σημαντικό πράγμα για τις εκδηλώσεις βιβλίου εργασίας είναι ότι πρέπει να αποθηκεύονται στο σωστό μέρος - σε επίπεδο βιβλίου εργασίας.
Για να αποκτήσετε πρόσβαση στο επίπεδο του βιβλίου εργασίας, ακολουθήστε τα παρακάτω βήματα:
1. Κάντε δεξί κλικ σε ένα βιβλίο εργασίας του Excel - δείτε τον κώδικα:
2. Αυτό θα αναδείξει:
3. Κάντε διπλό κλικ σε "Αυτό το βιβλίο εργασίας" και, στη συνέχεια, επιλέξτε "Βιβλίο εργασίας" από το πρώτο αναπτυσσόμενο μενού στην αριστερή πλευρά:
Βλέπουμε ότι η τιμή στην αριστερή πλευρά έχει αλλάξει τώρα σε "Άνοιγμα" - με κάποιο κώδικα για το Open Event Workbook. Αυτός ο κώδικας θα μας επιτρέψει να καθορίσουμε τι συμβαίνει όταν ανοίγει το βιβλίο εργασίας για πρώτη φορά.
Ωστόσο, θέλουμε να ελέγξουμε τι συμβαίνει όταν αποθηκεύουμε το βιβλίο εργασίας. Επομένως, αλλάξτε το δεξί χέρι στο "Πριν από την αποθήκευση". Η οθόνη θα μοιάζει τώρα με:
Τώρα εισάγουμε τον ακόλουθο κώδικα μετά τη δήλωση:
If ActiveWindow.FreezePanes = True Τότε MsgBox "Freeze Panes is on - File is NOT SAVED" Cancel = True End If
Έτσι, ο πλήρης κώδικας μοιάζει τώρα:
Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWindow.FreezePanes = True Τότε MsgBox "Freeze Panes is on - The File NOT SAVED" Cancel = True End If End Sub
Τώρα αποθηκεύστε το αρχείο και ΤΟΤΕ ενεργοποιήστε το Freeze Panes σε οποιοδήποτε παράθυρο. Στη συνέχεια - RESAVE το αρχείο. Θα εμφανιστεί ένα κιβώτιο msg που δηλώνει ότι το "Freeze Panes" είναι ενεργοποιημένο - και το αρχείο δεν είναι αποθηκευμένο.
Πράγματι, το αρχείο δεν θα αποθηκευτεί έως ότου αφαιρεθεί το Freeze Panes.
