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
-------------------------------------------------------------------
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
-------------------------------------------------------------------