Excel vba: hide sheets unless macros enabled and use workbook_beforesave event to prevent saving

Hi! I have a worksheet that we are concerned with the data's security. What I would like to do is hide all of the sheets except Sheet1 unless the macros are enabled. I would also like to use the Workbook_beforesave event codingto prevent the users from saving the data. I know I can do the latter by changing the file's permissions, butthe users will need to manipulate the pivit tables, so I can't do it that way. I've tried putting in the following codes but neither of them seem to be working at all - not even an error message. I'm clueless. Can someone please sort it out for me? Much thanks!  Experts-Exchange-Prevent-Save.xlsm

Private Sub Workbook_Open()
'If macros are disabled, only the Sheet1 is visible.
'If macros are enabled, the following code will run, hiding the Sheet1 and
'displaying the Pivot.

With ThisWorkbook
    With .Worksheets("Pivot")
        .Visible = xlSheetVisible
        .Select
    End With
    With .Worksheets("Sheet1")
        .Visible = xlSheetVeryHidden
    End With
End With

End Sub

Select allOpen in new window

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     If SaveAsUI Then
         MsgBox "You cannot save a copy of this workbook!"
         Cancel = True
    End If
End Sub

Select allOpen in new window