Excel 2007 VBA, problem setting Sheet Visibility in BeforeSave event after Office updates during mid Dec 2014

Question

After update of Office 2007 during mid December 2014, I have a Macro that does not work properly - which it did before the update.
The Macro is used to make sure that users have Macros enabled when working on the file. The logic basically does the following:
=> In the "OnOpen" event, set all "work sheets" as Visible, and set the "Macro Warning sheet" to non-visible.
=> In the "BeforeSave" event, set the "Macro Warning sheet" as Visible and set all "work sheets" as non-visible.
After the mid December update of Office 2007, the "OnOpen" part still works fine. The "BeforeSave" part does NOT work properly if the save action is triggered by using the shortcut key "CTRS+s". However, if saving the file
using the "Save" option in the menues, the "BeforeSave" action works fine.
Does Microsoft have a fix for this problem? I am not entierly sure exactly which update/KB that caused this.
To recreate the problem, put the following code into the "thisWorkbook" module, and make sure that one sheet has the codeName "wshForceMacros". Open the file, enable Macros, then save the file using the keys "CTRL+s". The macro
now hangs on the row "wshForceMacros.Cells(2, 1).Select" since the wshForceMacros sheet has not become properly visible...
Option Explicit
'ON OPEN
Sub Workbook_Open()
Call ShowSheetsAfterOpen
End Sub
'ON SAVE
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call HideSheetsBeforeSave
End Sub
'ON SAVE
Sub HideSheetsBeforeSave()
Dim oSheet As Worksheet
'Show Macro Lock sheet
wshForceMacros.Visible = xlSheetVisible
wshForceMacros.Activate
wshForceMacros.Cells(2, 1).Select
'Hide all work sheets
For Each oSheet In ThisWorkbook.Worksheets
If oSheet.CodeName <> "wshForceMacros" Then
If oSheet.Visible = xlSheetVisible Then
oSheet.Visible = xlSheetVeryHidden
End If
End If
Next oSheet
End Sub
Sub ShowSheetsAfterOpen()
Dim oSheet As Worksheet
Dim bSaved As Boolean
'Show all work sheets
For Each oSheet In ThisWorkbook.Worksheets
If oSheet.Visible = xlSheetVeryHidden Then
oSheet.Visible = xlSheetVisible
End If
Next oSheet
'Hide Macro Warning Sheet
wshForceMacros.Visible = xlSheetHidden
End Sub

Answer 1

Hi,
This is the forum to discuss questions and feedback for Microsoft Excel, I'll move your question to the MSDN forum for Excel
http://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev&filter=alltypes&sort=lastpostdesc
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
George Zhao
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.