function UseAllowEditRanges(){
    let wksOne = Application.ActiveSheet
    let strPwd1 = prompt("Enter Password")

    // Unprotect worksheet.
    wksOne.Unprotect()

    // Establish a range that can allow edits on the protected worksheet.
    wksOne.Protection.AllowEditRanges.Add("Classified", Range("A1:A4"), strPwd1)

    //Notify the user the title and address of the range.
    let WKSone = wksOne.Protection.AllowEditRanges.Item(1)

    MsgBox("Title of range: " + WKSone.Title)
    MsgBox("Address of range: " + WKSone.Range.Address)
}