Hide Outline Area

[jgspencer]

Is there any way to hide the outline area that shows the plus sign for grouping. I have disabled most command bars for a schedule template I'm working on but want to hide or disable this as well. The sheet is locked and I have inserted code that makes a cell range flash. I could not get the cell flasher to work on a locked sheet even when the actual cells were unlocked. Because of this, the only way I could get it to work was with userinteface which works great but during the 15 second period, they can click the plus sign and open the grouped range accessing formulas and such. Then when the flashing stops, it goes back to normal and they are not able to open the grouping.

Maybe there is another way to have the cells flash without userinterface or maybe there is a way to disable the outline area but it's imperative that they not be able to access this information. Any help would be greatly appreciated. The cell flashing code is below. With this code I call it in an open event to activate it. Let me know if you need any more info.


-------------------------------------------------------------------
Sub CellFlash()

Dim newColor As Integer
Dim oldColor As Integer
Dim myCell As Range
Dim x As Integer
Dim Sh As Worksheet
Dim fSpeed

Set myCell = Sheets("SUM").Range("C4:C5")
Application.StatusBar = "... Make SURE your W/E Date and Budgeted Sales are CORRECT for the Current Week you are working on or some of the information contained within this Scheduler could / will be wrong!!!"

newColor = 3
oldColor = 15

fSpeed = 0.2

Do Until x = 30

Sheets("SUM").Unprotect Password:="p3rf3ctflam376"
Sheets("SUM").Protect UserInterFaceOnly:=True
Sheets("SUM").Protect Password:="p3rf3ctflam376"

DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Interior.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Interior.ColorIndex = oldColor
Loop
x = x + 1
Loop
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub
-------------------------------------------------------------------

 

[Datsmart]

You can set this up manually:

Excel 2003 and earlier: Tools/Options/View/Outline Symbols

Excel 2007: Click the Office button in the top left corner of the screen/
Click Excel Options, under Advanced | Display options for this worksheet, uncheck the Show outline symbols in an outline is displayed."

Or by VBA code:

Sub CycleOutline()
'Macro Created 06/09/2006 by Datsmart
   If ActiveWindow.DisplayOutline = False Then
      ActiveWindow.DisplayOutline = True
   Else
     ActiveWindow.DisplayOutline = False
  End If
End Sub

 

[jgspencer]

Datsmart, thanks for your help it works great. One more question though:

Is there any way to apply this to the entire workbook instead of just the active sheet?

 

[Datsmart]

Yes, added a few extra coding steps to do this cleanly.

Sub CycleOutline()
Dim WS As Worksheet
'Get Original worksheet name in a variable
OrgWS = ActiveSheet.Name
Application.ScreenUpdating = False 'Turn off ScreenUpdating
For Each WS In Worksheets
    WS.Activate
    If ActiveWindow.DisplayOutline = False Then
        ActiveWindow.DisplayOutline = True
    Else
        ActiveWindow.DisplayOutline = False
    End If
Next WS
'Return to Original worksheet
Sheets(OrgWS).Select
Application.ScreenUpdating = True 'Turn it back on
End Sub

Be aware that if one sheet is OFF and another ON, they will remain out of sync with this code.

 

[jgspencer]

Awesome. Everything has worked perfectly so far. Thanks for all of your help.