Copy Code To New Workbook

I am trying to paste some codes to the "ThisWorkbook" section of a file. The codes I am trying to paste will prevent the user from: doing a Save As (to keep them from saving the files anywhere else in the network) and to Disable the Macro (only showing a prompt sheet if they do so they can go back and enable the macros). The file that these codes will go to is sheet and workbook protected, and some cells are protected, and cells that they can edit have data validation formulas. In a post dated Nov 6, 2003 (thread 16750) I found a useful code that lets me paste the codes above to a target file. But when I save and close the file, the Disable macro does not work.

So I tried long method and pasted the codes into the ThisWorkbook section manually. Save and closed manually. and when I opened the file, the Disable and Enable works. Just as a background, I am a beginner with VB and I can't write my own codes yet, but I try to piece them together from forum answers. I need VB to do this because I have 263 individual files to prepare. I used to use AutoPilot, which is a scripting software but it's so prone to bonking out that I would rather do it in VB if possible. These are the codes am trying to paste:

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

Private Sub Sheet_Activate()
Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application. CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = False
Next oCtrl
Application.CellDragAndDrop = False
End Sub...............