Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για την απόκρυψη του φύλλου Excel. Το φύλλο Excel αποκρύπτεται αλλάζοντας τις ιδιότητές του χρησιμοποιώντας τον κώδικα VBA. Το κρυφό φύλλο του Excel δεν μπορεί να γίνει ορατό χρησιμοποιώντας το κουμπί αποκάλυψης στην εφαρμογή Excel.
Σε αυτό το παράδειγμα, έχουμε δημιουργήσει μια φόρμα εγγραφής πύλης.
Όταν ο χρήστης εισάγει τα στοιχεία στη φόρμα και κάνει κλικ στο κουμπί υποβολής, τα στοιχεία αποθηκεύονται στο φύλλο "Δεδομένα". Στο κουμπί "Υποβολή" εκχωρείται μακροεντολή "SubmittingDetail".
Το φύλλο "Δεδομένα" μπορεί να κρυφτεί ή να μην κρυφτεί κάνοντας κλικ στο κουμπί "Φύλλο δεδομένων". Εάν το φύλλο "Δεδομένα" είναι κρυφό, δεν μπορεί να γίνει ορατό χρησιμοποιώντας την επιλογή αποκάλυψης που είναι διαθέσιμη στο φύλλο Excel.
Το φύλλο κρυμμένο χρησιμοποιώντας το κουμπί "Φύλλο δεδομένων", παραμένει ορατό στο πρόγραμμα εξερεύνησης στο VBE (Visual Basic Editor) και οι ιδιότητες φύλλου του κρυφού φύλλου έχουν οριστεί σε xlSheetVeryHidden.
Το φύλλο μπορεί επίσης να κρυφτεί πολύ χωρίς τη χρήση κώδικα VBA. Για αυτό, πρέπει να ανοίξουμε το VBE και να ορίσουμε την ορατή ιδιότητα του φύλλου στο παράθυρο ιδιοτήτων σε 2 - xlSheetVeryHidden.
Για την απόκρυψη ενός φύλλου, έτσι ώστε κανείς να μην μπορεί να το αποκρύψει χωρίς να γνωρίζει τον κωδικό πρόσβασης για το Vb Project, απλά κρύψτε το αρχείο είτε χρησιμοποιώντας τον κώδικα VBA είτε αλλάξτε την ορατή ιδιότητα του φύλλου σε 2, δηλαδή xlsheetveryhidden και κλειδώστε το Vb Project μαζί με τον κωδικό πρόσβασης.
Για την προστασία του Vb Project με κωδικό πρόσβασης, κάντε δεξί κλικ στο αντικείμενο του Microsoft Excel> Επιλέξτε Ιδιότητες VBAProject…> Θα εμφανιστεί το παράθυρο διαλόγου Ιδιότητες VBAProject.
Στο παράθυρο διαλόγου Ιδιότητες VBAProject, μεταβείτε στην καρτέλα Προστασία> επιλέξτε το πλαίσιο για το κλείδωμα του έργου> εκχωρήστε τον κωδικό πρόσβασης για το έργο. Ο κωδικός πρόσβασης που εκχωρούμε για το συνημμένο αρχείο είναι "εγγραφή". Κάποιος μπορεί να εκχωρήσει οποιονδήποτε κωδικό πρόσβασης για το έργο.
Το κουμπί "Φύλλο δεδομένων" χρησιμοποιείται τόσο για απόκρυψη όσο και για απόκρυψη του φύλλου. Στο κουμπί "Δελτίο δεδομένων" εκχωρείται η μακροεντολή "ToggleHidingDataSheet". Πότε ο χρήστης θα κάνει κλικ στο κουμπί και αν το αρχείο είναι κρυφό τότε το φύλλο γίνεται ορατό και αν το φύλλο είναι ορατό τότε το φύλλο είναι κρυφό.
Το φύλλο μπορεί να γίνει ορατό είτε κάνοντας κλικ στο κουμπί «Φύλλο δεδομένων» είτε αλλάζοντας την ορατή ιδιότητα στο 0, δηλαδή xlSheetNormal χρησιμοποιώντας τον κωδικό πρόσβασης για το VBProject.
Ακολουθήστε παρακάτω για τον κωδικό
Sub SubmittingDetail () Dim LastRow As Long 'Finding the Last row in the "Data" sheet' where data should be inserted LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell). Row + 1 "Εισαγωγή δεδομένων στο φύλλο" Δεδομένα "με φύλλα (" Δεδομένα ")" Εκχώρηση σειριακού αριθμού .Range ("A" & LastRow) = LastRow - 1 "Εισαγωγή δεδομένων στο φύλλο" Δεδομένα "από το εύρος F15 έως J15 .Range (" B "& LastRow &": F "& LastRow) = Εύρος (" F15: J15 "). Τιμή λήξης με" Διαγραφή του περιεχομένου κελιών στο εύρος εύρους ("F15: J15"). Επιλέξτε Selection.ClearContents Range ("F15" ) .Επιλέξτε End Sub Sub ToggleHidingDataSheet () 'Έλεγχος αν το φύλλο είναι κρυμμένο αυτήν τη στιγμή Εάν τα Φύλλα ("Δεδομένα"). Visible = xlVeryHidden Στη συνέχεια "Κωδικός για να κάνετε το φύλλο ορατό Φύλλα (" Δεδομένα "). Ορατός = Αληθινός κώδικας για απόκρυψη τα φύλλα φύλλων ("Δεδομένα"). Visible = xlVeryHidden End If End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email