Re: Protecting Cells In Shared Workbook you can simply add a workbook change event. VB: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Select Selection.Font.ColorIndex = 0 End Sub. this will automatically change the font colors back to black in all cells on active sheet.