Code vô hiệu alt 11 (1 người xem)

[minhhangg]

Xin các anh chị giúp dùm em đoạn code vô hiệu alt 11 và có thể alt f8 luôn thì tốt , cảm ơn rất nhiều ạ

 

[thaytu]

In the VBA editor

Go to Tools > VBAProject properties, lock the project for viewing, and enter a password.

 

[minhhangg]

In the VBA editor

Go to Tools > VBAProject properties, lock the project for viewing, and enter a password.

Bạn có thể nói rõ hơn được không vậy , ý bạn là khóa cửa sổ VBa à . vấn đề đó thì em biết. Còn như trong hình thì em muốn View code cho nó mờ đi nghĩa là alt f11 không được và f8 luôn.

 

[Tranhoe]

To thaytu: Bạn chưa hiểu câu hỏi rồi.

To minhhangg:
Mình chỉ biết đoạn Code để vô hiệu Alt+F11 (tương tự đối với Alt+F8)

Sub DisableAF11()
    'Khong cho dung Alt+F11
     Application.OnKey "%{F11}", ""
End Sub

Sub EnableAF11()
    'Cho dung Alt+F11
     Application.OnKey "%{F11}"
 End Sub

Còn việc không cho hiện View Code trong menu chuột phải trên sheetTab thì có cao thủ nào biết xin giúp cho.

 

[Quang_Hải]

Bạn có thể nói rõ hơn được không vậy , ý bạn là khóa cửa sổ VBa à . vấn đề đó thì em biết. Còn như trong hình thì em muốn View code cho nó mờ đi nghĩa là alt f11 không được và f8 luôn.

Em thiệt là kỳ nha, người ta viết chương trình ra có cái chức năng đó tự nhiên giờ muốn đình chỉ công tác cái nút đó là sao?
Thực ra em cần gì? Có thể làm theo hướng khác mà.

 

[ndu96081631]

Xin các anh chị giúp dùm em đoạn code vô hiệu alt 11 và có thể alt f8 luôn thì tốt , cảm ơn rất nhiều ạ

Tìm file có chưa virus StartUp, vào xem code nó viét gì rồi học hỏi nhé
Nội dung code của thằng StartUp đây:
http://www.giaiphapexcel.com/forum/...-VBAProject(StarrtUp-xls)&p=367013#post367013

 

[Hong.Van]

Bạn có thể nói rõ hơn được không vậy , ý bạn là khóa cửa sổ VBa à . vấn đề đó thì em biết. Còn như trong hình thì em muốn View code cho nó mờ đi nghĩa là alt f11 không được và f8 luôn.

Cái này chỉ không mở được bằng Alt+F11 thôi
Còn vào Menu Tools / Macro/Visual Basic Editor là mở được!

 

[Tranhoe]

Cái này chỉ không mở được bằng Alt+F11 thôi
Còn vào Menu Tools / Macro/Visual Basic Editor là mở được!

Tìm trong đống tài liệu, cắt ghép, mày mò mãi rồi cũng được kết quả như ý của minhhangg, giải quyết được 3 vấn đề Bạn nêu, giải quyết thêm ý của Hong.Van

Sub Disable_IntoVBE()
 'Không cho dùng các phím tắt cho VBE
   CmdControl 1695, False
   CmdControl 186, False
   CmdControl 184, False
   CmdControl 1561, False
   CmdControl 1605, False
   Application.OnDoubleClick = ""
   CommandBars("ToolBar List").Enabled = False
   Application.OnKey "%{F11}", ""
   Application.OnKey "%{F8}", ""
End Sub

Sub Enable_IntoVBE()
'Trả về mặc định
   CmdControl 1695, True
   CmdControl 186, True
   CmdControl 184, True
   CmdControl 1561, True
   CmdControl 1605, True
   Application.OnDoubleClick = ""
   CommandBars("ToolBar List").Enabled = True
   Application.OnKey "%{F11}"
   Application.OnKey "%{F8}"
End Sub

Sub CmdControl(Id As Integer, TF As Boolean)
'Xử lý tổng quát cho CommandBarControl
  Dim CBar As CommandBar
  Dim C As CommandBarControl
  On Error Resume Next
  For Each CBar In Application.CommandBars
    Set C = CBar.FindControl(Id:=Id, recursive:=True)
    If Not C Is Nothing Then C.Enabled = TF
  Next
  Set C = Nothing
End Sub

 

[minhhangg]

Tìm file có chưa virus StartUp, vào xem code nó viét gì rồi học hỏi nhé
Nội dung code của thằng StartUp đây:
http://www.giaiphapexcel.com/forum/showthread.php?59012-L%C3%A0m-sao-X%C3%B3a-%C4%91%C6%B0%E1%BB%A3c-file-VBAProject%28StarrtUp-xls%29&p=367013#post367013

Anh này chỉ ác ác không à nha.

Tìm trong đống tài liệu, cắt ghép, mày mò mãi rồi cũng được kết quả như ý của minhhangg, giải quyết được 3 vấn đề Bạn nêu, giải quyết thêm ý của Hong.Van

Sao em thấy chưa được vậy anh , anh có thể gữi file kèm em xem với

 

[Hong.Van]

Sao em thấy chưa được vậy anh , anh có thể gữi file kèm em xem với

Đây bạn thử xem nha!

 

[minhhangg]

Ạ, giờ này mình mới hiểu được, thế là Disable macro là xong thôi, em cứ ngỡ sẽ qua mặt kẻ gian, tóm lại là không có cách đề phòng rồi nhỡ các anh. Hì

 

[Hong.Van]

Ạ, giờ này mình mới hiểu được, thế là Disable macro là xong thôi, em cứ ngỡ sẽ qua mặt kẻ gian, tóm lại là không có cách đề phòng rồi nhỡ các anh. Hì

Disable macro thì code không chạy được.
Nếu muốn bạn muốn " ĐỀ PHÒNG NGƯỜI NGAY" thì dùng code khóa Alt+F8 & khóa pass cho VBA

 

[minhhangg]

Disable macro thì code không chạy được.
Nếu muốn bạn muốn " ĐỀ PHÒNG NGƯỜI NGAY" thì dùng code khóa Alt+F8 & khóa pass cho VBA

Hình như đề phòng không nổi đâu bạn ơi. Người ta vẫn phá được hết à bạn. Tốt nhất nghỉ khóa luôn, khóa lại người ta nói mình ích kĩ nữa, vì để mọi người còn biết về macro và diễn đàn giải pháp excel mình nữa.

 

[ndu96081631]

Anh này chỉ ác ác không à nha.
i

Không phải cứ thấy chữ "virus" là ta cho nó xấu nha! Đôi khi ta cũng học được rất nhiều điều từ cách hành xử của nó và con StartUp này là 1 minh chứng. Khi được kích hoạt, nó khóa mọi thứ đúng như ý của bạn rồi còn gì
Vậy thì cứ theo những gì trong code StartUp mà học hỏi thôi... có vấn đề gì chứ? Hay bạn không dám thử?

 

[Hong.Van]

Không phải cứ thấy chữ "virus" là ta cho nó xấu nha! Đôi khi ta cũng học được rất nhiều điều từ cách hành xử của nó và con StartUp này là 1 minh chứng. Khi được kích hoạt, nó khóa mọi thứ đúng như ý của bạn rồi còn gì
Vậy thì cứ theo những gì trong code StartUp mà học hỏi thôi... có vấn đề gì chứ? Hay bạn không dám thử?

Bình thường thôi mà thầy! tụi em còn yếu tay nghề, lỡ có gì thì ai cứu cho kịp ... hic hic

 

[Tranhoe]

Sao em thấy chưa được vậy anh , anh có thể gữi file kèm em xem với

Hồi chiều tới giờ bận đi offline GPE miền Trung. Mới về, xem lại bài viết.
Hong.Van làm được rồi, chỉ có minhhangg chưa làm được thôi.

Gửi kèm theo File có sẳn nút Enable_IntoVBE và Disable_IntoVBE. Thích kiểu gì thì nhấn vào Nút ấy. Nhấn xong xem sự thay đổi nhé.

Link: Enable_Disable_VBE

 

[Tranhoe]

Không phải cứ thấy chữ "virus" là ta cho nó xấu nha! Đôi khi ta cũng học được rất nhiều điều từ cách hành xử của nó

Máy tính đâu phải là động vật mà nhiễm virus. Cái từ "virus" chỉ nói lên 1 phần của sự việc thôi. Nói nôm na nó là các đoạn chương trình bắt buộc máy phải chạy khi mở file lên. Nếu hành động này tốt thì ta gọi là chương trình, nếu hành động này xấu thì ta gọi là virus. Nếu biết sống chung với nó Ta sẽ biết được cái mạnh cái yếu của Nó, học cái mạnh, tránh cái yếu cũng chính là "biết người biết ta trăm trận trăm thắng" vậy.

 

[Tranhoe]

Hình như đề phòng không nổi đâu bạn ơi. Người ta vẫn phá được hết à bạn. Tốt nhất nghỉ khóa luôn, khóa lại người ta nói mình ích kĩ nữa, vì để mọi người còn biết về macro và diễn đàn giải pháp excel mình nữa.

Thật sự Excel là phần mềm bảng tính, chưa chú trọng đến vấn đề bảo mật tốt nhất. Khóa chỉ là "khóa người ngay" thôi.

Trong cuộc đời, không có gì là vĩnh cữu cả... "võ quít dày có móng tay nhọn" mà.

 

[siwtom]

Thật sự Excel là phần mềm bảng tính, chưa chú trọng đến vấn đề bảo mật tốt nhất. Khóa chỉ là "khóa người ngay" thôi.

Trong cuộc đời, không có gì là vĩnh cữu cả... "võ quít dày có móng tay nhọn" mà.

Chỉ có điều là móng tay nhọn luôn đi sau vỏ quít dầy ít nhất 1 bước. Có "bệnh" mới có nghiên cứu, rồi từ nghiên cứu mới có thuốc. Chưa ai nghĩ được thuốc chữa các bệnh trong tương lai. Và nên nhớ là tác giả của những "bệnh" kia không phải là những người kém cỏi. Không phải cứ móng tay nhọn là phải giỏi hơn.
Cách tốt nhất vẫn là phòng chống. Là tuân thủ các nguyên tắc bảo mật an toàn, là lướt web với "cái đầu", là đừng vô tư nhấn mọi nơi, mở mọi cái mà chẳng cần biết nó gì và tác giả là ai. Là ý thức được là nếu vào những chỗ "tối", chỗ trơn thì có thể bị ngã. Không có nghĩa là thôi không vào nhưng vào thì phải ý thức được nguy hiểm, mắt phải có quanh đầu, cảnh giác cao độ, và phải có những công cụ cần thiết như "găng" chống giật, "giầy" chống trơn, "thuốc xịt" sâu bọ, nếu bị "cắn" thì xử lý ngay không để nhiễm trùng ...