Vô hiệu hóa tính năng in ấn trong một file Excel

Nếu như bạn tạo một File Excel để cho người khác sử dụng , bạn có thể vô hiệu hóa những lựa chọn in ấn trên thanh công cụ

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