Xem dùm code cho hiện CommandBars không hoạt động

[ducdinh1987]

em mở file excel lên với code VBA như sau:
Sub auto_open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next
End Sub
Sub auto_Close()
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
ThisWorkbook.close false
Next
End Sub


sau khi tắt nó không hiện thanh toolbars như ban đầu.
cảm ơn anh chị

 

[ducdinh1987]

Em dùng code trên, mục đích là mở file excel trên sẽ hiện toàn màn hình, sau khi tắt trở lại màn hình cũ và không lưu. Nhưng sau khi tắt màn hình không trở lại màn hình cũ như ban đâu. Những thanh trong VIEW - TOOLBARS không hiện lên như ban đầu. có cách nào không chỉ em với.

 

[ndu96081631]

Em dùng code trên, mục đích là mở file excel trên sẽ hiện toàn màn hình, sau khi tắt trở lại màn hình cũ và không lưu. Nhưng sau khi tắt màn hình không trở lại màn hình cũ như ban đâu. Những thanh trong VIEW - TOOLBARS không hiện lên như ban đầu. có cách nào không chỉ em với.

Có lẽ sai chổ này:

Sub auto_Close()
  Application.DisplayFullScreen = False
  Application.CommandBars("Worksheet Menu Bar").Enabled = True
  ActiveWindow.DisplayWorkbookTabs = False
  ActiveWindow.DisplayHorizontalScrollBar = True
  ActiveWindow.DisplayVerticalScrollBar = True
  Dim Cbar As CommandBar
  For Each Cbar In Application.CommandBars
    Cbar.Enabled = True
    [COLOR=#ff0000][B]ThisWorkbook.Close False[/B][/COLOR]
  Next
End Sub

Chổ màu đỏ ấy sao lại cho vào vòng lập? Chưa chạy hết vòng lập nó đã đóng file mất tiêu (tức chưa kịp làm gì để trả mọi thứ về ban đầu)
Sửa thành vầy xem:

Sub auto_Close()
  Application.DisplayFullScreen = False
  Application.CommandBars("Worksheet Menu Bar").Enabled = True
  ActiveWindow.DisplayWorkbookTabs = False
  ActiveWindow.DisplayHorizontalScrollBar = True
  ActiveWindow.DisplayVerticalScrollBar = True
  Dim Cbar As CommandBar
  For Each Cbar In Application.CommandBars
    Cbar.Enabled = True[COLOR=#ff0000][/COLOR]
  Next
  [COLOR=#ff0000][B]ThisWorkbook.Close False[/B][/COLOR]
End Sub

 

[ducdinh1987]

anh cho em hỏi, mình giấu luôn thanh chứa fx và hiện ô luôn thì dùng code nào vậy?
cảm ơn anh

 

[ndu96081631]

anh cho em hỏi, mình giấu luôn thanh chứa fx và hiện ô luôn thì dùng code nào vậy?
cảm ơn anh

Cái này nếu làm bằng tay bạn làm được không? Nếu làm được, hãy record macro sẽ có code

 

[ducdinh1987]

em làm được rồi, thêm dòng
application.DisplayFormulaBar =False

cảm ơn anh nhiều