VBA code that will comment out other vba code?

[SURFER349]

So I've got a worbook made for others to use that has the "save" disabled, to preserve the workbook.

I'd like to make a button or something that will open the 'save as' command but also comment out/disable the 'save disable' code, that way, they can save-as a new file in their own folder and not have to deal w/ the blocking.

Is this possible?

Here's what I'm using, placed on "ThisWorkbook" object.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then
        Cancel = True
        MsgBox "To preserve workbook integretiy, 'SAVE' is disabled." & vbNewLine & "Please use 'SAVE AS' to your personal folder.", _
        vbInformation, "Hello!" 'box title
    End If
End Sub

 

[Fluff]

Is this what you'd like

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Fname As String
    If Not SaveAsUI Then
      Cancel = True
      Fname = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
      If Fname <> "False" Then
        Application.EnableEvents = False
        ActiveWorkbook.SaveAs Fname, 52
        Application.EnableEvents = True
      Else
        MsgBox "Cancelled"
        Cancel = True
        Exit Sub
      End If
    End If
End Sub

 

[SURFER349]

Is this what you'd like

Kinda. It looks like this replaces the Control-S command w/ a save as command. but the vba script is still active. so a user must constantly keep saving as.

Ideally, I'd like something that when run (perform the 'save as your own' button), it disables/comments out the blocking script.

Is this possible?

 

[shg]

Why not just make the original workbook read-only? Or a template, for which the default action is New rather than Open?

 

[SURFER349]

Why not just make the original workbook read-only? Or a template, for which the default action is New rather than Open?

if its read only, then macros that do a lot of editing, formating, manipulation does not work.

also, anyone can just click "edit anyway" and then resave over it.

not sure what template means or how to make that happen.

So is there no way to script VBA to comment out other parts of the vba?

 

[Fluff]

Do you have any other code in the ThisWorkbook module?

 

[shg]

if its read only, then macros that do a lot of editing, formating, manipulation does not work.

Why do you think that?

also, anyone can just click "edit anyway" and then resave over it.

Not if it's opened read-only.

not sure what template means or how to make that happen.

Save it as an xltm file.