Lỗi right menu

[salam]

Không biết em làm gì mà bây giờ excel của em khi kích chuột phải vào sheet thì menu hiện ra lệnh delete bị mờ, Muốn chọn danh sách sheet thì không có menu nào hiện ra khi kích chuột phải vào tab sheet. Nhờ các Bác giúp cho nó trở về bình thường với.
Trân trọng cám ơn các Bác.

 

[salam]

Bác up file lên mọi người xem thử do file hay là do office của bác.

Cám ơn huuthang_bd file của mình mở ở máy khác không vấn đề gì, tất cả các file đều bị như vậy. Mình nghĩ là excel của mình có vấn đề gì đó. Có thể do chạy macro nào đó nó vô hiệu hóa mấy cái trên.

 

[BNTT]

Cám ơn huuthang_bd file của mình mở ở máy khác không vấn đề gì, tất cả các file đều bị như vậy. Mình nghĩ là excel của mình có vấn đề gì đó. Có thể do chạy macro nào đó nó vô hiệu hóa mấy cái trên.

Gỡ Office ra, cài lại. Cái này không phải do macro đâu, vì nếu do macro thì mở ở máy nào cũng bị hết. Macro nằm trong file chứ đâu nằm trong Excel.

 

[huuthang_bd]

Gỡ Office ra, cài lại. Cái này không phải do macro đâu, vì nếu do macro thì mở ở máy nào cũng bị hết. Macro nằm trong file chứ đâu nằm trong Excel.

Cái này chưa chắc đâu nha bạn. Nếu một Macro được lưu trong Personal Macro thì nó có thể tác động đến tất cả các file Excel mở trên máy đó mặc dù trong các file đó hoàn toàn không có Macro.

 

[rollover79]

Bạn thử mở 1 file mới tinh trên máy của bạn xem có bị không? Có thể 1 lần nào đó bạn chạy 1 macro nó disable mất cái menu đó rồi cũng nên.

 

[rollover79]

To salam: Bạn chạy thử câu lệnh này xem menu Delete có sáng lên không.

    CommandBars("Cell").FindControl(ID:=292).Enabled = True

 

[salam]

To salam: Bạn chạy thử câu lệnh này xem menu Delete có sáng lên không.

    CommandBars("Cell").FindControl(ID:=292).Enabled = True

Vẫn không được bạn ơi.

 

[ndu96081631]

Vẫn không được bạn ơi.

Sửa code thành vầy nhé:

Sub Test()
 CommandBars.FindControl(Id:=847).Enabled = True
End Sub

 

[salam]

Em reset tất cả commandBar nhưng chỉ được cái delete thôi còn cái chọn nhanh sheet thì vẫn không hiện ra. Mong các Bác giúp em với.

 

[PhanTuHuong]

Bạn cho chạy dòng lệnh này xem sao:

Application.CommandBars("Ply").Reset

 

[salam]

Bạn cho chạy dòng lệnh này xem sao:

Không được Thầy ơi em cho reset hết như các Command, ID, Ctrl nhưng vẫn không được. Em không cài lại Excel được vì máy em dùng qua Sever. Các user khác thì bình thường.

 

[PhanTuHuong]

Bạn chạy cái này trong cửa sổ Immediate chắc chắn là được:

Application.CommandBars("Ply").Reset

Đây là lệnh thiết lập trong Excel của máy đó, copy file ra ngoài thì không sao.

 

[ndu96081631]

Không được Thầy ơi em cho reset hết như các Command, ID, Ctrl nhưng vẫn không được. Em không cài lại Excel được vì máy em dùng qua Sever. Các user khác thì bình thường.

Thông thường, để sửa lổi, người ta phải cố tìm cách gây ra lổi tương tự (để nghiên cứu)
Với Excel, tôi thật sự đã tìm đủ mọi cách mà không làm sao ẩn cái Popup trên sheet tab
Hic...
Cái popup mà khi ta click phải vào sheet tab, nó hiện ra tên sheet là thuộc nhóm Workbook tabs ---> Vậy bạn thử cái này xem

Sub Test()
  With Application.CommandBars("Workbook Tabs")
    .Enabled = True
    .FindControl(ID:=957).Enabled = True
  End With
End Sub

hoặc

Sub Test()
  Application.CommandBars("Workbook tabs").Reset
End Sub

Không chắc ăn lắm

 

[paulsteigel]

Mình nghĩ chỉ cần làm thế này, bạn dán thủ tục sau vào một sheet bất kỳ trong VBAIDE (nhấn Alt+F11)

Sub Test()
    ' Kich hoat tat ca cac menu cua thuc don Sheet
    Dim AppCtr As Object
    For Each AppCtr In Application.CommandBars("Ply").Controls
        AppCtr.Enabled = True
    Next
    ' bat lai menu danh muc sheet
    Application.CommandBars("Workbook tabs").Enabled = True
End Sub

Sau đó chạy thủ tục này bằng cách nhấn vào bất kỳ dòng nào trong đoạn code thủ tục đó và nhấn F5.
Hi vọng điều đó sẽ giúp được bạn.

 

[salam]

Cám ơn mọi người rất nhiều. Đúng là workbook tabs. Vấn đề của em đã giải quyết được rồi, vì em là việc với các file có rất nhiều sheet khị bị lỗi này em phải tạo thêm sheet menu để chọn các sheet khác ...
Một lần nữa em xin trân trọng cám ơn các ACE, chúc mọi người một ngày mới vui vẻ, hạnh phúc.