[Excel07] Ξεκλείδωμα προστατευμένων κελιών

[Μάριος]

Θα "κλέψεις" απλώς τιμές όμως έτσι? όχι τύπους ή συναρτήσεις ή μορφοποίηση, ε?

[Tasos]

Μάριε, καλησπέρα και καλωσόρισες στο φόρουμ!
Θα μπορούσε να γίνει ακόμα έτσι:

Option Explicit

Sub CopyUsedRange()
    Dim x$
    x = Sheets(1).UsedRange.Address
    Sheets(1).Range(x).Copy ActiveSheet.Range(x)
End Sub

Με εκτίμηση

Τάσος

[nisgia]

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

Θα "κλέψεις" απλώς τιμές όμως έτσι? όχι τύπους ή συναρτήσεις ή μορφοποίηση, ε?

Φυσικά μόνο τις τιμές.
Άλλωστε αυτό φαίνεται και από την ρητή αναφορά στην ιδιότητα Value της ιδιότητας Cells.
Όμως, με την παρακάτω εντολή "κλέβεις" και όλα τα υπόλοιπα που ανέφερες:

Sheets(1).UsedRange.Copy ActiveSheet.Cells(1)

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