[[escafandra]]

Ejemplo simple:

// Crea un miembro que se llame LastIndex
// se encargará de saber la última TabSheet activa válida
void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
  if(PageControl1->Pages[PageControl1->ActivePageIndex]->Enabled == false){
     PageControl1->ActivePageIndex = LastIndex;
     return;
  }
  LastIndex = PageControl1->ActivePageIndex;
}

Saludos.