7

I don't believe it is possible to implement your literal request. While you can make an UpSet definition for Head:
Unprotect[Ket];
Head[Ket[_]] ^:= Bob
Head[Ket[Subscript[x, B]]] ^:= BobKet
Head[Ket[Subscript[x, A]]] ^:= AliceKet
Head[Ket[Subscript[x, B]]]
BobKet
Since Head is not actual...