ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   using "ROWLINER" add-in. (https://www.excelbanter.com/excel-discussion-misc-queries/183123-using-rowliner-add.html)

Dino

using "ROWLINER" add-in.
 
I can't get "ROWLINER" add-in to work on a protected sheet. It works when I
unprotect sheet, but not on protected sheet. It is imperative to have
protected sheet, but I really need "ROWLINER" also. Thanks

Don Guillett

using "ROWLINER" add-in.
 

Then, unprotect the part you want to highlight
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dino" wrote in message
...
I can't get "ROWLINER" add-in to work on a protected sheet. It works when I
unprotect sheet, but not on protected sheet. It is imperative to have
protected sheet, but I really need "ROWLINER" also. Thanks



Gord Dibben

using "ROWLINER" add-in.
 
Not gonna happen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldCell As Range
If Application.CutCopyMode = 0 Then
ActiveSheet.Unprotect Password:="justme"
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
OldCell.Borders.LineStyle = xlLineStyleNone
End If
Set OldCell = Target
OldCell.Interior.ColorIndex = 6
OldCell.Borders.LineStyle = xlContinuous
Else
If OldCell Is Nothing Then
Set OldCell = Target
Else
Set OldCell = Union(OldCell, Target)
End If
End If
ActiveSheet.Protect Password:="justme"
End Sub

Will color the activecell yellow.

Note: will wipe out existing background color of existing cell unless BG color
is due to CF


Gord Dibben MS Excel MVP

On Wed, 9 Apr 2008 13:50:00 -0700, Dino wrote:

I can't get "ROWLINER" add-in to work on a protected sheet. It works when I
unprotect sheet, but not on protected sheet. It is imperative to have
protected sheet, but I really need "ROWLINER" also. Thanks




All times are GMT +1. The time now is 08:08 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com