Private Sub Workbook_Activate()
    Dim cb As CommandBar
    On Error Resume Next
    For Each cb In Application.CommandBars
        cb.FindControl(,  748 , , , True).Enabled = False
        cb.FindControl(,  4 , , , True).Enabled = False
    Next cb
End Sub

Private Sub Workbook_Deactivate()
    Dim cb As CommandBar
    On Error Resume Next
    For Each cb In Application.CommandBars
        cb.FindControl(,  748 , , , True).Enabled = True
        cb.FindControl(,  4 , , , True).Enabled = True
    Next cb
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    'Cancel = True
    'MsgBox "You can't print this file!"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    'If SaveAsUI Then Cancel = True
    'MsgBox "You can't make copies of this file!"
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox "You can't print this file!"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then Cancel = True
    MsgBox "You can't make copies of this file!"
End Sub