Brief: Sometimes event macros are of great help. These two macros are example of that. While one macro protects a workbook from saving any changes, other macro force changes to be saved, if the former macro is present in the workbook. Both can be considered hacks of excel programming or a trick, but they're always useful and as an excel programmer you should know these two fundas.
Macro #1: Make Workbook unacceptable to any changes.
Pre-requisite: Event Programming, VBA and Excel
Logic: Use of Workbook's Saved property and Workbook's BeforeSave event. As soon as excel encounter any changes, it changes Saved property value to FALSE so when you attempt to save the workbook, excel checks this property value and save the workbook, if it founds to be FALSE but if it is TRUE, then it ignores the operation.
Now we use BeforeSave event and turn this property value to TRUE everytime BeforeSave event fired. So this makes workbook immune to any changes.
Code:
'PLACE THIS CODE IN THISWORKBOOK, NOT IN SHEETS OR MODULE
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'CHEATING APPLICATION BY FORCING SAVED PROPERTY TO BE TRUE
ThisWorkbook.Saved = True
End Sub
Macro #2. Force changes to be saved in such workbooks (as mentioned above).
Pre-requisite: Event Programming, VBA and Excel
Logic: Disable Events, Save the workbook and then enable events again. Yes, it is that simple and here is its code.
Code:
Sub ForceSave()
On Error Resume Next
'THIS WILL DISABLE ALL EVENTS INCLUDING Workbook_BeforeSave.
Application.EnableEvents = False
'SAVE THE WORKBOOK
ActiveWorkbook.Save
'ENABLE THE EVENTS AGAIN
Application.EnableEvents = True
On Error GoTo 0
End Sub
Note: You fill find workbooks with Macro#1 generally VBE password protected, in such case if you want to use Macro#2, either write it in Personal workbook and assign a shortcut key or assign it to a toolbar button.
Comments