How to lock de-equip tool?

Ok, So I made a localscript where I can lock first person camera when they equip their tool. But how do I disable tool de-quiping? Here is my localscript:

local p= game.Players.LocalPlayer
local tool= script.Parent
function equipped()
wait()
p.CameraMode= 1
end
function unequipped()
wait()
p.CameraMode= 0
end
tool.Equipped:connect(equipped)
tool.Unequipped:connect(unequipped)

To disable tool unequipping then set the property, 'CanBeDropped', of the tool to false.