Ẩn hết những gì Excel có ?

[BNTT]

Các bác ơi, cho tui hỏi cái này chút.
Tui làm được 1 thanh menu riêng cho chương trình của mình rồi.

Làm ẩn hết mấy cái... (xem dưới đây):

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub

​

Nhưng tui còn muốn không thấy cái thanh menu mặc định của Excel nữa (File, Edit, Tool, v.v...). Hiện tại cái thanh menu của tui, khi chương trình hoạt động, nó nằm chung với cái thanh menu của Excel.
Có cách nào dẹp hết "đồ Excel" đi, chỉ còn "đồ của mình" không các bác?

Tui muốn in cái hình chụp thanh menu Excel của tui vào đây để các bác dễ hình dung thì phải làm như thế nào?

 

[Mr Okebab]

Các bác ơi, cho tui hỏi cái này chút.
Tui làm được 1 thanh menu riêng cho chương trình của mình rồi.
Làm ẩn hết mấy cái... (xem dưới đây):

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
​

Nhưng tui còn muốn không thấy cái thanh menu mặc định của Excel nữa (File, Edit, Tool, v.v...). Hiện tại cái thanh menu của tui, khi chương trình hoạt động, nó nằm chung với cái thanh menu của Excel.
Có cách nào dẹp hết "đồ Excel" đi, chỉ còn "đồ của mình" không các bác?

Bác thử nhé :

Private Sub Workbook_Open()
    With Application
        .ScreenUpdating = False
        .CommandBars("Worksheet Menu Bar").Enabled = False
        .DisplayFormulaBar = False
        .CommandBars("Forms").Visible = False
        .CommandBars("Formatting").Visible = False
        .CommandBars("Standard").Visible = False
        .CommandBars("Forms").Visible = False
        .CommandBars("Visual Basic").Visible = False
        .CommandBars("External Data").Visible = False
        .ActiveWindow.Caption = "Mr Okebab"
    End With
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .Zoom = 95
    End With
   ThisWorkbook.Application.Caption = "Welcome GiaiPhapExcel.com"
End Sub

Thân!

 

[BNTT]

Bác OkBap ơi, như vậy thì nó biến hết, kể cả cái menu của mình, vậy thì làm ăn làm sao được?
Ý tui là biến vừa vừa thôi, còn chừa cho mình cái menu tự tạo để làm ăn.
Cảm ơn bác.

 

[SoiBien]

Bác OkBap ơi, như vậy thì nó biến hết, kể cả cái menu của mình, vậy thì làm ăn làm sao được?
Ý tui là biến vừa vừa thôi, còn chừa cho mình cái menu tự tạo để làm ăn.
Cảm ơn bác.

Vậy thì vấn đề là ở chỗ, bác tạo menu riêng của bác trong thanh Menu Worksheets, nên khi bác ẩn thanh đó đi, thì mấy cái của bác nó cũng phải ẩn theo, bác phải tạp ra một thanh riêng lẻ, không nằm chung với cái nào của Excel hết thì mới được.

Thân.

 

[BNTT]

Bây giờ thì vấn đề là ở chỗ này, tui down một cái file MENU_MacroSheet trên 4R về (quên mất của ai rồi), rồi bào chế lại theo ý của mình. Hình như cái
MENU_MacroSheet này viết bằng Macro4. Vậy thì bi giờ làm sao mà sửa? Tui không biết gì về Macro4 cả. Hic..

 

[Mr Okebab]

Bây giờ thì vấn đề là ở chỗ này, tui down một cái file MENU_MacroSheet trên 4R về (quên mất của ai rồi), rồi bào chế lại theo ý của mình. Hình như cái
MENU_MacroSheet này viết bằng Macro4. Vậy thì bi giờ làm sao mà sửa? Tui không biết gì về Macro4 cả. Hic..

Cái này của bác Đào Việt Cường đó mà!!!!!!!!!!
Có phải bác lấy ở đây không ???
http://tinyurl.com/2ka9j5

Thân!

 

[BNTT]

Vâng, của bác Đào Việt Cường.
Trong Customize của Excel nó cho phép mình xóa bớt những thành phần trên Worksheet Menu Bar, chỉ chừa lại những cái của mình. Nhưng dùng Macro để "quay phim" lại những thao tác này không được. Có cách nào bớt vài thành phần trên Worksheet Menu Bar không bác?

 

[SoiBien]

được chứ anh! mà có điều để mai hen, giờ buồn ngủ ồi hì hì, Nhưng mà bác phải làm để nó hiiện ra lại nữa đó, chứ bác dấu đi, đóng file đó xong thì khỏi xài ếch xeo lun.

 

[BNTT]

được chứ anh! mà có điều để mai hen, giờ buồn ngủ ồi hì hì, Nhưng mà bác phải làm để nó hiiện ra lại nữa đó, chứ bác dấu đi, đóng file đó xong thì khỏi xài ếch xeo lun.

Anh Sói Biển à, bây giờ là gần hết "ngày mai"rồi đó anh...

 

[SoiBien]

Anh dùng đoạn code này nhé

[color=darkblue]Sub[/color] hidemenu()
[color=darkblue]Dim[/color] ctl [color=darkblue]As[/color] CommandBarControl
[color=darkblue]For[/color] [color=darkblue]Each[/color] ctl [color=darkblue]In[/color] Application.CommandBars("Worksheet menu Bar").Controls
    [color=darkblue]If[/color] ctl.Caption <> "Tên cái menu của anh (bao gồm dấu & nếu có)" [color=darkblue]Then[/color] ctl.Visible = [color=darkblue]False[/color]
[color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Thân.

 

[qhthong]

Vậy thì vấn đề là ở chỗ, bác tạo menu riêng của bác trong thanh Menu Worksheets, nên khi bác ẩn thanh đó đi, thì mấy cái của bác nó cũng phải ẩn theo, bác phải tạp ra một thanh riêng lẻ, không nằm chung với cái nào của Excel hết thì mới được.

Thân.

Nhưng vẫn còn Icon của excel bác ạ! Làm thế nào để mất luôn cái icon này vậy bác.
Kính nhờ!

 

[khongbanquyen]

giờ về chạy cái, mở ếch xeo lại nó ẩn hết trơn rồi, giờ làm sao cho nó hiện lại như củ đây mấy bác? em hết sài được ếch xeo rồi nè