Forum Discussion
minimized ribbon not consistent
Hey Lorenzo-
Hope you're doing well. Nice to see you on the forum again. Try using this code to minimize the ribbon:
Private Sub Workbook_Open()
On Error GoTo ErrHandler:
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ErrHandler:
If Err.Number > 0 Then _
MsgBox Err.Description, vbMsgBoxHelpButton, strMsgBox, Err.HelpFile, Err.HelpContext
On Error GoTo 0
End Sub
Mr Mickle,
Thank you for taking time out to answer my query.
below is what I want for my worksheet page to look like:
there is still some lines above showing.. this is what my code does, only that it sometimes doesn't!
the code you provided is a little "too minimized", as below:
maybe a little more tweaking....
many many thanks
Try this snippet instead. I've added in a DoEvents statement:
Private Sub Workbook_Open() If Application.CommandBars("Ribbon").Height >= 100 Then SendKeys "^{F1}", False DoEvents End If Application.CommandBars("ply").Enabled = False Application.DisplayFormulaBar = False End Sub- Mr Mickle
below is the full script of the workbook_open event,
maybe there is something wrong with it....
many thanks
Private Sub Workbook_Open()
If Application.CommandBars("Ribbon").Height >= 100 Then
SendKeys "^{F1}"
End If
Application.CommandBars("ply").Enabled = False
Application.DisplayFormulaBar = False
Application.OnKey "{F1}", ""
Application.OnKey "{F3}", ""
Application.OnKey "{F4}", ""
Application.OnKey "{F5}", ""
Application.OnKey "{F6}", ""
Application.OnKey "{F7}", ""
Application.OnKey "{F8}", ""
Application.OnKey "{F10}", ""
Application.OnKey "{F11}", ""
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
Range("A" & LastRow + 1).Select
End Sub- I inserted the script DoEvents - but to no avail.....
Mr. Mickle
Thank you for your prompt reply.
But, the codes is still not functioning as desired (ribbon still showing).
When the "^" sign at the far right was manually clicked, the ribbon minimizes and next time it opens, it is ok. But shouldn't it worked automatically everytime?
could the value of 100 not correct or something....
many many thanks