[Γενικά] Προστασία ομαδοποιημένων στηλών-γραμμών

[mdragon]

Καλημέρα στο forum,
Θα ήθελα να ρωτήσω (η αλήθεια είναι ότι δεν ξέρω αν γίνεται)....
κατά την ομαδοποίηση στηλών ή γραμμών (και αφού τα αποκρύψω με το πλην ) να μη μου επιτρέπει να τις εμφανίσω αν δεν δώσω κωδικό.



Ευχαριστώ όπως και να 'χει
Μάρω

[Tasos]

Μάρω καλησπέρα!

Δες ένα παράδειγμα στο συνειμμένο.

Ελπίζω να σε καλύπτει!

Φιλικά

Τάσος

[gr8styl]

Αρχική Δημοσίευση από mdragon

...
κατά την ομαδοποίηση στηλών ή γραμμών (και αφού τα αποκρύψω με το πλην ) να μη μου επιτρέπει να τις εμφανίσω αν δεν δώσω κωδικό.
...

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

Μήπως δεν κατάλαβα σωστά το ζητούμενο;

Θανάσης

[mdragon]

Συμφωνώ με τον φίλο Θανάση, Τάσο μου.
Μάλλον εγώ δεν το εξήγησα σωστά.
Αυτό που θα ήθελα είναι να μην μου προστατεύεται το φύλλο (αφού θέλω να το επεξεργάζομαι) αλλά να μου ζητάει κωδικό για την επανεμφάνιση των αποκρυμένων στηλών..... Αν είναι εφικτό






Φιλικά,
Μάρω

[gr8styl]

Αρχική Δημοσίευση από mdragon

....
Αυτό που θα ήθελα είναι να μην μου προστατεύεται το φύλλο (αφού θέλω να το επεξεργάζομαι) αλλά να μου ζητάει κωδικό για την επανεμφάνιση των αποκρυμένων στηλών.....

Μάρω,
για δοκίμασε
1) αφού αφαιρέσεις το κλείδωμα από όλα τα κελιά (Format cell/Protection), ξετσεκάρουμε το κλειδωμένο (Locked)
2) κάνοντας την προστασία φύλλου, πριν δώσουμε τον κωδικό τσεκάρουμε όλα τα κουτάκια δηλαδή επιτρέπουμε στους χρήστες να κάνουν όλες τις ενέργειες που αναφέρουν αυτά τα κουτάκια.

Λογικά έτσι μπορείς να επεξεργάζεσαι τα μη κλειδωμένα κελιά, να προσθέτεις και να αφαιρείς στήλες και γραμμές αλλά δεν μπορείς να ανοίγεις και να κλείνεις τις ομαδοποιήσεις.

Μήπως έγινε ;

Θανάσης

[Tasos]

Μάρω, ο μόνος τρόπος για αποκλείσεις την πρόσβαση στις λεπτομέρειες μιας ομαδοποίησης είναι να προστατέψεις το φύλλο.

Αυτό γίνεται και στο παράδειγμα μου.

Με το σκεπτικό ότι θέλεις να προστατέψεις τις λεπτομέρειες μιας ομαδοποίησης με κωδικό,
θα σου πρότεινα, αφού τελειώσεις με τις μορφοποιήσεις να κάνεις τα παρακάτω:

Επίλεξε όλα τα κελιά του φύλλου, και πάτησε τα λήκτρα CTRL +1
Στο διάλογο που θα εμφανιστεί, στην καρτέλα "Προστασία" ξετσέκαρε την επιλογή "Κλειδωμένο".
Έτσι θα μπορείς να επεξεργαστεις τις τιμές και τους τύπους των κελιών σου.

Να κλειδώσεις το φύλλο σου με κωδικό και στον VBA
άλλαξε το :

Protect

με το

Protect Password:="0000", UserInterfaceOnly:=True

και το Unprotect

με το

Unprotect Password:="0000"

όπου "0000" = ο κωδικός προστασίας του φύλλου.

Καλή συνέχεια!

Τάσος

[mdragon]

Θανάσηηηηη,
Το θετικό είναι ότι δεν μου επιτρέπει την εμφάνιση των στηλών-γραμμών που είναι από ομαδοποίηση,
αλλά.... αν επιλέξω τις αποκρυμμένες στήλες-γραμμές και κάνω επανεμφάνιση μου τις εμφανίζει

Τάσο, δεν έχω προλάβει ακόμα να δω τη λύση σου. Θα σου απαντήσω σύντομα.




Την καλημέρα μου,
Μάρω

[gr8styl]

Αρχική Δημοσίευση από mdragon

... αν επιλέξω τις αποκρυμμένες στήλες-γραμμές και κάνω επανεμφάνιση μου τις εμφανίζει ...

Μάρω,
για δοκίμασε να αφήσεις τις επιλογές "Μορφοποίηση στηλών" και "Διαγραφή στηλών" χωρίς τσεκ (ν) στην προστασία του φύλλου.

Λογικά Θα πρέπει να γίνει αυτό που ζητάς άν σε έχω καταλάβει.

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

[mdragon]

Θανάση καλησπέρα,
είμαι σίγουρη πως δεν υπάρχει λύση.
Όσα μου πρότεινες τα έχω ήδη κάνει.
Για να με σου το δώσω να με καταλάβεις....
Έχω κάνει απόκρυψη 3 στήλες τις οποίες δεν θέλω να επανεμφανίζονται.
Παράλληλα όμως θέλω να έχω τη δυνατότητα να διαγράφω γραμμές.
Αν κλειδώσω της στήλες δεν με αφήνει να διαγράψω τις γραμμές (γιατί πολύ απλά έχουν κοινά κελιά).
Σε ευχαριστώ πολύ πάντως για το χρόνο σου και εσένα και τον φίλο Τάσο.
Κάθε πρόταση ευπρόσδεκτη.


Φιλικά,
Μάρω

[Tasos]

Καλησπέρα Μάρω!

Έχεις μπει για τα καλά στα άβατα της Excel

Αν στο συνημμένο παράδειγμα μου (σε προηγούμενο μήνυμα) προσθέσεις το παρακάτω κώδικα στη λειτουργική μονάδα του φύλλου, θα μπορείς να διαγράφεις ολόκληρες γραμμές σε προστατευμένο φύλλο:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = Columns.Count * Target.Rows.Count Then
        Me.Unprotect Password:="0000"
    Else
        If Not Me.ProtectContents Then
            Me.Protect Password:="0000", UserInterfaceOnly:=True
        End If
    End If
End Sub

Μπορείς να το δεις έτοιμο στο παρακάτω συνημμένο.

Φιλικά

Τάσος