#1
|
|||
|
|||
Hiding the History Worksheet
Hi Fellow Forum Members
I am looking for a way to hide the History Worksheet when I have Tracked Changes turned on in Excel. Basically I want to hide the History sheet so that no one knows it is there and be able to view it when I want. I have tried to use the Alt+F11 option to change the visible property but when the Workbook is shared I cannot see the properties of the History Worksheet as it is locked for sharing. Any ideas appreciated. Many thanks Tony Postscript: I have found the following code and pasted into the "ThisWorkbook" tab in VBA Explorer but it does not record any changes. Dim vOldVal 'Must be at top of module Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Dim vOldVal Dim bBold As Boolean If Target.Cells.Count > 1 Then MsgBox ("Hello") 'If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next With Application .ScreenUpdating = False .EnableEvents = False End With If IsEmpty(vOldVal) Then vOldVal = "Empty Cell" bBold = Target.HasFormula With Sheet1 .Unprotect Password:="Secret" If .Range("A1") = vbNullString Then .Range("A1:E1") = Array("CELL CHANGED", "OLD VALUE", _ "NEW VALUE", "TIME OF CHANGE", "DATE OF CHANGE") End If With .Cells(.Rows.Count, 1).End(xlUp)(2, 1) .Value = Target.Address .Offset(0, 1) = vOldVal With .Offset(0, 2) If bBold = True Then .ClearComments .AddComment.Text Text:= _ "OzGrid.com:" & Chr(10) & "" & Chr(10) & _ "Bold values are the results of formulas" End If .Value = Target .Font.Bold = bBold End With .Offset(0, 3) = Time .Offset(0, 4) = Date End With .Cells.Columns.AutoFit .Protect Password:="Secret" End With vOldVal = vbNullString With Application .ScreenUpdating = True .EnableEvents = True End With On Error GoTo 0 End If End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) vOldVal = Target End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to summarise different worksheet to a summary worksheet | samkiewhock | Excel | 1 | 09-06-2012 03:34 AM |
Email Audit/History | emmab25 | Outlook | 0 | 07-09-2012 03:04 AM |
"Auto-populating" data-worksheet to worksheet. | meggenm | Excel | 4 | 02-04-2012 02:04 AM |
Lost my contact history | vant | Outlook | 3 | 10-20-2010 03:15 PM |
Client Payment History | GMatos78 | Office | 0 | 04-22-2010 03:40 PM |