Αυτό φαίνεται να λειτουργεί τέλεια, αλλά όταν κλείνω και ανοίγω ξανά το βιβλίο εργασίας, αντιμετωπίζω το ίδιο πρόβλημα - δεν μπορώ να επεκτείνω τις ομάδες που έχουν καταρρεύσει.

Ευχαριστώ πολύ αδερφέ, αυτό λειτουργεί πολύ ωραία. Ευχαριστώ πολύ

Έχω το ίδιο πρόβλημα όταν κλείνω το βιβλίο εργασίας. Καμιά ιδέα για να το φτιάξω;

Private Sub Workbook_Open() Dim wsh As Variant For Every wsh In Worksheets(Array("TD_phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub

Γειά σου! Χρησιμοποίησα την πρώτη μακροεντολή με επιτυχία και μετά είχα το ίδιο πρόβλημα με το κλείσιμο του βιβλίου εργασίας και η μακροεντολή δεν λειτουργεί πλέον. Βλέπω τη λύση παραπάνω, αλλά δεν μπορώ να το πετύχω καθόλου. Θα σε πείραζε να με περάσεις; Συνδυάζω και τους δύο κωδικούς ή απλώς χρησιμοποιώ τους τελευταίους; Εάν ο κωδικός πρόσβασής μου είναι "dog" αντικαθιστώ μία από τις τιμές στον κωδικό; Εφαρμόζω μόνο ένα φύλλο εργασίας ("Φύλλο1"). το χρησιμοποιώ πουθενά; Ευχαριστώ πολύ εκ των προτέρων!!

Βοηθήστε με, θέλω να συμπτύξω και να επεκτείνω ορισμένα ρολά και στήλες σε ένα υπολογιστικό φύλλο excel που είναι προστατευμένο. Πώς μπορώ να χρησιμοποιήσω μακροεντολές για να το κάνω αυτό; Δοκίμασα αυτό που έδειξες, αλλά απλά δεν λειτουργούν στο υπολογιστικό φύλλο μου. Παρακαλώ βοηθήστε.

Γεια σας, βοηθήστε με να επεκτείνω και να συμπτύξω ρολά και στήλες σε υπολογιστικό φύλλο excel που είναι προστατευμένο. Δοκίμασα να χρησιμοποιήσω αυτά που έδειξες παραπάνω αλλά δεν λειτουργούν.

Έχει ερωτηθεί / απαντηθεί; Πού στον κωδικό μπορείτε να καθορίσετε / να αλλάξετε έναν προσωπικό κωδικό πρόσβασης;

Πώς μπορώ να αλλάξω τον κωδικό πρόσβασης σε άλλη τιμή;

Όταν χρησιμοποιώ την εντολή, βλέπω ένα μήνυμα σφάλματος όπως φαίνεται παρακάτω:
Ιδιωτικό Sub Workbook_Open ()
Dim wsh As Variant
Για κάθε wsh σε φύλλα εργασίας (Πίνακας ("TD_phase_3", "RS_Phase_2"))
wsh.EnableOutlining = True
wsh.Protect Password:="260615", DrawingObjects:=False, _
περιεχόμενα:=Αλήθεια, _
Σενάρια:=Αλήθεια, _
AllowFiltering:=True, _
AllowFormattingCells:=True, _
userinterfaceonly:=True
Επόμενο wsh
Sub End
Σφάλμα χρόνου εκτέλεσης '9':
Δείκτης εκτός της περιοχής

αυτό λειτουργεί για λίγο, μόλις κλείσεις και ανοίξεις ξανά, σταματάει :(

Subbook_Work_Open()
«Ενημέρωση 20140603
Dim xWs ως φύλλο εργασίας
Ορισμός xWs = Application.ActiveSheet
Dim xPws ως συμβολοσειρά
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
Sub End

Έχω πάρει αυτόν τον κωδικό για να λειτουργήσει. Αλλά όταν κλείνω και ανοίγω ξανά, πρέπει να πάω στην καρτέλα προγραμματιστή, να επιλέξω το κουμπί μακροεντολών, να επιλέξω εκτέλεση και να εισάγω τον κωδικό πρόσβασης.

Υπάρχει τρόπος να αφαιρέσετε τον κωδικό πρόσβασης από τον κωδικό Ή ένας κωδικός αυτόματης εκτέλεσης που θα εκτελεί αυτόματα αυτό το marco και θα εισάγει τον κωδικό πρόσβασης;

Για να διορθώσετε το πρόβλημα ότι αυτό δεν λειτουργεί στο αρχείο σας αφού το κλείσετε και το ανοίξετε ξανά, πρέπει να επικολλήσετε τον κώδικα VBA στο "ThisWorkbook" κάτω από τα Αντικείμενα του Microsoft Excel αντί για μια νέα λειτουργική μονάδα. Αυτό θα εκτελεί αυτόματα τη μακροεντολή κάθε φορά που ανοίγει το αρχείο.

Έχετε γραφικά για τον Κώδικα VBA που συζητήθηκε πριν από 6 ημέρες για να κάνετε αναζήτηση για το ThisWorkbook στο Microsoft Objects αντί για μια νέα ενότητα. Η λειτουργικότητα χάνεται όταν επιστρέφω στο βιβλίο εργασίας μου

Κάποιος μπορεί να χρειαστεί αυτό, νομίζω ότι κατάλαβα πώς να το κάνω αυτό να λειτουργήσει.

Πρώτα, ο κώδικάς σας πρέπει να γραφτεί στο "ThisWorkbook" κάτω από τα αντικείμενα του Microsoft Excel, όπως προτείνει το @peachyclean.
Δεύτερον, πάρτε τον κωδικό που έγραψε ο @Sravanthi και επικολλήστε στην παραπάνω τοποθεσία.

Subbook_Work_Open()
«Ενημέρωση 20140603
Dim xWs ως φύλλο εργασίας
Ορισμός xWs = Application.ActiveSheet
Dim xPws ως συμβολοσειρά
xPws = "rfc" ''Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
Sub End

Το θέμα είναι ότι πρέπει να βρίσκεστε στο φύλλο που θέλετε να προστατέψετε, αλλά να επιτρέπετε τη χρήση ομαδοποίησης, και να αποθηκεύσετε το βιβλίο εργασίας και να κλείσετε, χωρίς να προστατεύσετε. Τώρα αν το ανοίξετε, η μακροεντολή ξεκινά αυτόματα, θα κάνει το φύλλο προστατευμένο με κωδικό "rfc". Τώρα μπορείτε να χρησιμοποιήσετε την ομαδοποίηση, το φύλλο προστατεύεται.

Για τη λύση μου, έχω τροποποιήσει τον κωδικό πρόσβασης που εφαρμόστηκε, ώστε να μπορείτε να ξαναγράψετε οποιονδήποτε κωδικό πρόσβασης ΕΔΩ:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("Password:", xTitleId, "", Type:=2)

Επιπλέον, δεν ήθελα να είναι ενεργό το προς προστασία φύλλο κατά το άνοιγμα του αρχείου, επομένως έχω τροποποιήσει αυτό το τμήμα:
Ορίστε xWs = Application.ActiveSheet ->
Ορισμός xWs = Εφαρμογή. Φύλλα εργασίας ("WRITEANYSHEET'SNAMEHERE")

Τώρα λειτουργεί σαν γούρι, το φύλλο με το όνομα 'WRITEANYSHEET'SNAMEHERE' προστατεύεται αλλά ισχύει η ομαδοποίηση. Μακροπρόθεσμα, νομίζω ότι το πρόβλημα θα είναι ότι αν θέλω να τροποποιήσω αυτό το αρχείο και να διατηρήσω τη λύση, πρέπει να καταργήσω την προστασία αυτού του φύλλου για να λειτουργήσει στο επόμενο άνοιγμα. Υποθέτω ότι μπορείτε να γράψετε μια άλλη μακροεντολή για αυτόματη κατάργηση της προστασίας κατά το κλείσιμο :)


Ελπίζω να βοήθησε.

θαυμάσιος

Πώς να ομαδοποιήσετε και να καταργήσετε την ομαδοποίηση σειρών και στηλών σε προστατευμένο φύλλο εργασίας;

f*ck, αυτό έκλεψε το excel μου αργότερα και άλλαξε τον κωδικό πρόσβασης ιδιωτικά