SetOptions[EvaluationNotebook[],
  StyleDefinitions->Notebook[{
    Cell[StyleData[StyleDefinitions->"Default.nb"]],
    Cell[StyleData["Notebook"],Background->Red],
    Cell[StyleData["Input"],CellFrame->True]
  }]
]