Chỉ giúp cách hiện xlSheetVeryHidden

[MicrosoftExcel]

Xin chào mọi người!
Tôi có một file addin có tạo menu, cách tạo menu này tôi làm từ năm 2002, do một ông anh cùng công ty hướng dẫn, lâu rồi quên cách mở sheet ẩn do xlSheetVeryHidden, tôi muốn mở lại sheet menu để thêm một số mục, nhưng không hiểu sao không bật được sheet menu nên được nữa, vì xlSheetVeryHidden đã được đặt. Mặc dù đã vào mục Visible nhưng vẫn báo lỗi.

PS: Trước đây tôi có đặt password file này, giờ tôi đã bỏ và lược một số phần không cần thiết. File có đính kèm theo.

Xin cảm ơn!

 

[Ếch Xanh]

Lẽ ra chỉ cần dùng code dưới đây là ổn, nhưng hình như nó vẫn còn Protect sheet hay Protect Workbook gì đó nên không xử lý được.

Sub test()
  Windows(ThisWorkbook.Name).Visible = True
End Sub

File của bạn không phải là Sheet VeryHidden đâu nhé!

 

[MicrosoftExcel]

Lẽ ra chỉ cần dùng code dưới đây là ổn, nhưng hình như nó vẫn còn Protect sheet hay Protect Workbook gì đó nên không xử lý được.

Sub test()
  Windows(ThisWorkbook.Name).Visible = True
End Sub

File của bạn không phải là Sheet VeryHidden đâu nhé!

Tôi đã dùng code như trên để chạy vẫn không ra được, file tạo menu tiếng Việt trong excel, tôi làm từ lâu quá rồi, không mở ra để viết thêm được nữa. Không biết có ai xử lý được vấn đề này không, xin chỉ giúp! Protect đã bỏ hết rồi mà!

Tôi nghĩ là do xlSheetVeryHidden vì vào Format/ Sheet không ra được, vì lâu không làm cái menu, giờ ông anh chuyển đi chả liên lạc được,

 

[nvson]

Bạn mở File đó lên.
Nhấn Alt+F11 để vào VBA
Nhấn chuột vào ThisWorkBook của file đang mở ("UtiOff 1.7.xls")
Thay đổi thuộc tính IsAddin thành False trong phần Properties (nhấn F4 để mở Properties)
Sang Excel sẽ thấy sheet Menu

 

[Ếch Xanh]

Bạn mở File đó lên.
Nhấn Alt+F11 để vào VBA
Nhấn chuột vào ThisWorkBook của file đang mở ("UtiOff 1.7.xls")
Thay đổi thuộc tính IsAddin thành False trong phần Properties (nhấn F4 để mở Properties)
Sang Excel sẽ thấy sheet Menu

À, hay quá, cám ơn bạn nvson, giờ mới biết vụ này! Vậy code phải viết là:

Sub Macro3()
  ThisWorkbook.IsAddin = False
End Sub

Vậy nó mới hiện lên! (False là hiện, True là ẩn).