mỗi khi File này của bạn được mở ra và để làm việc như vậy bạn nên sử dụng tới 3 Macro có nội dung dưới đây

Macro thứ nhất vô hiệu hóa lệnh in ấn trên thanh công cụ mỗi khi File được mở

Sub Auto_Open()

        MenuBars(xlWorksheet).Menus("File").MenuItems("Print...").Delete

        For J = 1 To Toolbars.Count

        For K = 1 To Toolbars(J).ToolbarButtons.Count

            If Toolbars(J).ToolbarButtons(K).Id = 2 Then

                Toolbars(J).ToolbarButtons(K).Enabled = False

            End If

            If Toolbars(J).ToolbarButtons(K).Id = 3 Then

                Toolbars(J).ToolbarButtons(K).Enabled = False

            End If

        Next K

    Next J

End Sub

Macro thứ hai có nhiệm vụ khôi phục lại những nút này mỗi khi file được đóng

Sub Auto_Close()

       For Each mb In MenuBars

        mb.Reset

    Next mb

    For J = 1 To Toolbars.Count

        For K = 1 To Toolbars(J).ToolbarButtons.Count

            If Toolbars(J).ToolbarButtons(K).Id = 2 Then

                Toolbars(J).ToolbarButtons(K).Enabled = True

            End If

            If Toolbars(J).ToolbarButtons(K).Id = 3 Then

                Toolbars(J).ToolbarButtons(K).Enabled = True

            End If

        Next K

    Next J

End Sub

Macro thứ ba hủy tất cả việc in ấn mỗi khi được khởi động

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Cancel = True

End Sub