[VBA] Τροποποίηση κώδικα inputbox

[Immortal]

Καλησπέρα σε όλους.
Όσο ψάχνεις τόσο βρίσκεις, αλλά μέχρι ένα σημείο μπορώ να φτάσω μόνος.
Η συμβουλές και η βοήθειά σας πολύτιμες.
Στον παρακάτω κώδικα που βρήκα, τροποποίησα το μπλε κομμάτι ώστε να καθαρίζω κάποιες περιοχές. Βλέπω πως κάνει τον καθαρισμό, όμως θα ήθελα να το δουλέψω με κλειδωμένο το φύλλο INSERT DATA, μπορεί να γίνει αυτό;

Sub ClearContent()
Const pw = "MyPassword"
entrypw = InputBox("Confirm password", "Confirm")
If entrypw = pw Then
Sheets("INSERT DATA").Select
    Range( _
        "C4:AK53,AW4:AZ369,BB4:BF369,CD4:CD27,CG4:DO63" _
        ).Select
    Selection.ClearContents
Cancel = True
End If
End Sub

[ChrisGT7]

Καλησπέρα Νίκο,

Δοκίμασε τον παρακάτω κώδικα αν σε καλύπτει:

Sub ClearContent()
    Const pw = "MyPassword"
    entrypw = InputBox("Confirm password", "Confirm")
    
    If entrypw = pw Then
        With Sheets("INSERT DATA")
            .Select
            .Unprotect
            .Range("C4:AK53,AW4:AZ369,BB4:BF369,CD4:CD27,CG4:DO63").ClearContents
            .Protect
        End With
        Cancel = True
    End If
End Sub

Αν έχεις προστασία φύλλου με κωδικό, τότε μετά το Unprotect και Protect άσε ένα κενό και γράψε τον κωδικό του φύλλου μέσα σε "διπλά αυτάκια".

[Immortal]

Δουλεύει άψογα Χρήστο σε ευχαριστώ.
Να τολμήσω να ζητήσω κάτι ακόμη, επειδή είδα ότι έχεις αλλάξει το μπλε κομμάτι που έβαλα.
Έχω και το παρακάτω μέσα, το οποίο κάνω αντιγραφή και επικόλληση τιμών, φαντάζομαι τα καταλαβαίνεις. Επειδή όπως και το προηγούμενο είναι από καταγραφή μακροεντολών, υπάρχει διαφορά στην κατανόηση-ευκολία λειτουργίας του κώδικα;

    Sheets("INFO").Select
    Range("X3:X33").Select
    Selection.Copy
    Sheets("INFO").Select
    Range("T3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

*Νομίζω το κατάφερα σαν το δικό σου Χρήστο.

    With Sheets("INFO")
       .Select
       .Range("X3:X33").Copy
       .Select
       .Range("T3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With

**Ναι! Δουλεύει και φυσάει Χρήστο η πρότασή σου αλλά και η επέμβασή μου!
Ευχαριστώ για τον χρόνο σου. Καλό βράδυ

[ChrisGT7]

Νίκο,

Μπορείς να αφαιρέσεις και τελείως τα δύο Select στον τελευταίο σου κώδικα. Μ' αυτόν τον τρόπο, οι τιμές θα επικολλούνται χωρίς να ενεργοποιείται/επιλέγεται το φύλλο INFO.

Καλό βράδυ! :)

[Immortal]

Καλημέρα Χρήστο, έχω ενημερώσει το κομμάτι που πρότεινες, σε ευχαριστώ.
Καλή συνέχεια.