[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 άσε ένα κενό και γράψε τον κωδικό του φύλλου μέσα σε "διπλά αυτάκια".