Thanks, gmayor,
its seems magical by simply placing...
Sub EditCut ()
Exit Sub
End Sub
cut disable function worked

But this code:

Sub EditPasteSpecial ()
Exit Sub
End Sub

It did not work, if I copy or cut another document, the special paste works, which I would not want because it is required to also be disabled.