Potresti fare un controllo al click:

If chk.value<>1 then
chk.value=1
end if

prova a vedere se va bene

Ciao