Xóa code VBA nhưng vẫn không khôi phục được trạng thái ban đầu

[Kemmie Nguyen]

Mọi người ơi cứu mình với. Mình có nhập code VBA để ngăn xóa dòng 1 sheet trong excel, nhưng nhập xong thì thấy nó vô hiệu hóa nút [Delete] cả file. Sau đó mình xóa code mà nút [Delete] nó vẫn bị vô hiệu hóa, mà nó vô hiệu hóa luôn các file khác nữa là vấn đề do đâu ạ?


Mình đã nhập dòng code này:

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub

Dòng code này mình tìm trên google hướng dẫn ạ. Nhưng hiện tại mình đã xóa rồi mà các file excel của mình vẫn bị xám chỗ nút [Delete].

 

[Hoàng Tuấn 868]

Dòng code này mình tìm trên google hướng dẫn

Bạn lại tìm tiếp trên google cách khắc phục thôi.

 

[Kemmie Nguyen]

Bạn lại tìm tiếp trên google cách khắc phục thôi.

Mình tìm được cách sửa rồi ạ. Mà mình tìm không thấy chỗ xóa bài đăng trong diễn đàn

 

[Hoàng Tuấn 868]

Mình tìm được cách sửa rồi ạ. Mà mình tìm không thấy chỗ xóa bài đăng trong diễn đàn

Nếu tìm được cách sửa thì nên đưa lên cho mọi người tham khảo, sao lại tìm cách xóa bài để ai gặp trường hợp giống của bạn lại mất công đi tìm từ đầu à.

 

[doredore1988]

Hãy dùng lại code đó và đổi False thành True, mà cái phím tắt thì sửa thế nào nhỉ?

 

[Kemmie Nguyen]

Hãy dùng lại code đó và đổi False thành True, mà cái phím tắt thì sửa thế nào nhỉ?

Mình đã sửa code từ False thành True, sau đó mình cho chạy code, xong mình lại xóa code thì nó lại trở về như cũ

Nếu tìm được cách sửa thì nên đưa lên cho mọi người tham khảo, sao lại tìm cách xóa bài để ai gặp trường hợp giống của bạn lại mất công đi tìm từ đầu à.

Thế mình để bài ở đây luôn

 

[Hoàng Tuấn 868]

Thế mình để bài ở đây luôn

Bạn không được cấp quyền xóa bài, chỉ có Ban quản trị diễn đàn được xóa thôi.

 

[Kemmie Nguyen]

Hãy dùng lại code đó và đổi False thành True

Mình có thể sử dụng code này chỉ để ngăn xóa dòng trong 1 sheet của cả file có được không ạ? Do nãy mình nhập không hiểu sao nó bị vô hiệu hóa nút [Delete] của cả file luôn

 

[doredore1988]

Application.OnKey "^{-}", "^-"
code này khôi phục lại phím tắt xóa cột và dòng

 

[doredore1988]

Mình có thể sử dụng code này chỉ để ngăn xóa dòng trong 1 sheet của cả file có được không ạ? Do nãy mình nhập không hiểu sao nó bị vô hiệu hóa nút [Delete] của cả file luôn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intersectRange As Range
Dim DongCoDinh As String
DongCoDinh = 2 ' Dong muon co dinh khong cho thay doi
Set intersectRange = Intersect(Target, Me.Rows(DongCoDinh))
If Not intersectRange Is Nothing Then
Application.EnableEvents = False
Application.Undo
MsgBox "Khong the thay doi dong nay!"
Application.EnableEvents = True
End If
End Sub

Dán cái này vào code sheet

 

[Kemmie Nguyen]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intersectRange As Range
Dim DongCoDinh As String
DongCoDinh = 2 ' Dong muon co dinh khong cho thay doi
Set intersectRange = Intersect(Target, Me.Rows(DongCoDinh))
If Not intersectRange Is Nothing Then
Application.EnableEvents = False
Application.Undo
MsgBox "Khong the thay doi dong nay!"
Application.EnableEvents = True
End If
End Sub

Dán cái này vào code sheet

Mình cảm ơn rất nhiều ạ