cho mình hỏi để copy các menu trên thanh toobar như adđin,option,define,VBA,security

[ongtrungducmx25]

khi mình ghi macro để mõi lần lên máy khác khổi mất công chọn các menu trên thanh công cụ chỉ copy nó ra ngoài thì cho dễ công việt kiểm tra và chỉnh sửa lại cho mình làm sẵn một bảng tính mong các bạn cho mình biết nó bị lỗi gì zậy
khi bạn mở nên chọn phím nóng là ctrl+shift+B thì nó sẽ hiên tren thanh menu nhé và báo lỗi ngay! khắc phục như thế nào các bạn ơi

 

[nhatthai]

khi mình ghi macro để mõi lần lên máy khác khổi mất công chọn các menu trên thanh công cụ chỉ copy nó ra ngoài thì cho dễ công việt kiểm tra và chỉnh sửa lại cho mình làm sẵn một bảng tính mong các bạn cho mình biết nó bị lỗi gì zậy
khi bạn mở nên chọn phím nóng là ctrl+shift+B thì nó sẽ hiên tren thanh menu nhé và báo lỗi ngay! khắc phục như thế nào các bạn ơi

Khi bạn sử dụng trên máy khác thì đoạn mã ghi trong Macro sau sẽ bị lỗi :
"Application.CommandBars("Insert").Controls(10).Copy Bar:=Application. _
CommandBars("Worksheet Menu Bar")
ChDir "C:\Documents and Settings\TUANHUY\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\TUANHUY\Desktop\Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False "
Mình gửi lại file đã bỏ bớt các đoạn mã đó, bạn thử lại xem sao (Nhớ nhần Shift + Ctrl + B một lần thôi nhé).
Chúc khỏe

 

[BNTT]

Còn phải thêm cái thủ tục để sau khi thoát khỏi Excel thì không làm "lung tung" máy của người ta nữa chứ (vì theo ý tác giả thì để xài trên "máy khác" mà), nghĩa là Reset cái WorkSheet Menu Bar. Cái này tôi chỉ biết làm bằng tay chứ chưa biết viết code bằng VBA.

 

[ongtrungducmx25]

cám ơn các bạn đã quan tâm zậy là phải tạo ra một menu tiếng việt đúng không để khi mình sài máy người khác thì không bị than phiền vì đã tạo ra nhiều menu thì sau nhỉ ai làm giùm mình cái này nhé! có nghĩa khi làm xong công việc thì tắc luôn các menu trong đó luôn

 

[ongtrungducmx25]

Khi bạn sử dụng trên máy khác thì đoạn mã ghi trong Macro sau sẽ bị lỗi :
"Application.CommandBars("Insert").Controls(10).Copy Bar:=Application. _
CommandBars("Worksheet Menu Bar")
ChDir "C:\Documents and Settings\TUANHUY\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\TUANHUY\Desktop\Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False "
Mình gửi lại file đã bỏ bớt các đoạn mã đó, bạn thử lại xem sao (Nhớ nhần Shift + Ctrl + B một lần thôi nhé).
Chúc khỏe

cái của bạn cũng báo lỗi vào không tạo được các menu đâu bạn ơi bạn xem lại đi nhé mình không thấy nó thực thi

 

[ongtrungducmx25]

cái ai làm cái này chưa remove menu của thanh toolbar nhé