ActiveWorkbook.Save macro causing no edit capability

[jackirby]

Hello,

I have an Excel workbook with 3 worksheets, running Excel 2016, where upon start-up I run a macro (in ThisWorkbook) to hide the ribbon and formula bar.

Private Sub Workbook_Activate()
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
...
End Sub

On worksheet 1 I have a button that calls:

Private Sub CommandButton6_Click()
ActiveWorkbook.Save
End Sub

This command successfully saves the file, however, I am then unable to edit any cell in the worksheet.... until I switch to another worksheet (either 2 or 3) and then come back to worksheet 1. Once I change the focus away from worksheet 1 and then back to worksheet 1, editing is then available.

Any ideas of what may be causing this behavior?

Thanks.

 

[shg]

Welcome to the board.

Turn screen updating back on before leaving the macro.

 

[jackirby]

SHG,

Thank you for your prompt reply. When I pasted my start-up code in my original post I didn't include all of it.

Here is the complete macro:

Private Sub Workbook_Activate()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
    Application.AutoRecover.Time = 5
    '*******
    'Let's keep the Status Bar so the user can easily change the magnification of the worksheet
    '*******
    'Application.DisplayStatusBar = Not Application.DisplayStatusBar
    'ActiveWindow.DisplayWorkbookTabs = False
    With Application.ErrorCheckingOptions
        .NumberAsText = False
        .InconsistentTableFormula = False
        '
        .EvaluateToError = False
        .TextDate = False
        .InconsistentFormula = False
        .OmittedCells = False
        .UnlockedFormulaCells = False
    End With
    For Each ws In ThisWorkbook.Worksheets
        If Left(ws.Name, 7) = "Hidden_" Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
    Application.ScreenUpdating = True

End Sub

As you can see, I did turn screen updating back on at the end.

My problem is with the Save command.

Private Sub CommandButton6_Click()
    ActiveWorkbook.Save
End Sub

When this is called it prevents any further updating of the worksheet.

Interestingly enough, Ctrl-S works just fine. Saves the document and still enables editing.

Thanks again for your response. Any other ideas?

-Jack