[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