Không Cho Save AS Bằng Mọi Cách (1 người xem)

[Kiều Mạnh]

Mình hiện đang sử dụng code sau để không cho Save As (Ở đây đã Enable Macro)
Code có tác dụng Tốt.... nhưng khi Mình Bấm vào Developer\Design Mode thì code mất tác dụng vẫn Save As Bình thường....code sau

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = False Then
        Exit Sub
    Else
        Cancel = True
        MsgBox "Khong Duoc Save As Ma Chi Duoc Save", 64, "Chào Nha"
    End If
End Sub

Vậy có cách nào khi mở file Excel lên thì nó vô hiệu hóa hoàn toàn (không khôi khục lại được khi File đó đang Mở) Design Mode được không Ví dụ như sau:

Khi Mở File Excel Thì Vô hiệu hóa Nút Design Mode

Sub Auto_Open()
   Vô hiệu hóa Nút Design Mode
End Sub

Khi Thoát Excel Thì Bật lại Nút Design Mode

Sub Auto_Close()
  Bật Lại  Nút Design Mode
End Sub

Xin cảm ơn các Bạn trợ Giúp

 

[doveandrose]

cài được cái addin tự nhiên không được Design Mode thi chả ai chơi với anh ...

 

[Kiều Mạnh]

cài được cái addin tự nhiên không được Design Mode thi chả ai chơi với anh ...

đang nghiên cứu thôi mà ......ngồi không buồn nghiên cứu cho não hoạt động thôi....

 

[leonguyenz]

đang nghiên cứu thôi mà ......ngồi không buồn nghiên cứu cho não hoạt động thôi....

Anh nói thêm tác dụng việc không cho save as được không?
Mà cuối tuần rồi, cho não nó thư giãn đi anh.

 

[HyperLink]

đối với những file được chia sẻ qua mạng Lan, nếu rớt mạng đột xuất chẳng lẽ ko cho người ta Save As ...

 

[Kiều Mạnh]

Anh nói thêm tác dụng việc không cho save as được không?
Mà cuối tuần rồi, cho não nó thư giãn đi anh.

đang nghiên cứu về Bảo mật còn khuyết khúc đó nữa mà chưa nghĩ ra.....
ngồi một mình bán hàng không nghiên cứu thì hay ngủ gật lắm .....nhiều hôm thấy đầu căng thẳng mở nhạc nghe ...ngủ gật khách vào keo giật mình hoài..........

 

[Kiều Mạnh]

đối với những file được chia sẻ qua mạng Lan, nếu rớt mạng đột xuất chẳng lẽ ko cho người ta Save As ...

vậy thì tèo thôi.............

 

[Let'GâuGâu]

mục đích là để làm gì vậy?
cho là bạn viết thành công, ko cho save as
nhưng ở ngoài window, tôi copy và paste thành file khác được mà?

 

[Kiều Mạnh]

mục đích là để làm gì vậy?
cho là bạn viết thành công, ko cho save as
nhưng ở ngoài window, tôi copy và paste thành file khác được mà?

cảm ơn bạn rất nhiều................vấn đề mục đích nếu ok ta tính tiếp vậy nha..............