VBA code to format only the cells added in a new row insertion
2003/2007
OK, I must not be asking the correct/logical question.
My w/s is protected; but the User can insert Rows.
I would like to have Excel automatically remove the protection
for the cells in the new row so that the cells (in all columns) can be populated with data.
That said, I do not wish the User to ba able to change the data (except in certain columns which are
not protected) in the cells that were their prior to the inserted row data.
Truly, I am lost as to the best way to do this. Is there a way to do this?
I have played with worksheet events but I am having a problem obtaining the original W/S row count
and comparing that to the row count after the row insertion. My idea was:
IF Sheets("Trial Balance Current").Rows.Count OrigRows Then
"Reformat only the added cells via the row insertion"
I am almost there but no home run yet.
Any help greatly appreciated!! Eagleone
The unsuccessful code that I have is:
Function OrigRows() As Long
OrigRows = Sheets("Trial Balance Current").UsedRange.Rows.Count
End Function
Private Sub Worksheet_Activate()
' How do I get OrigRows in the function above to the code next?
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Trial Balance Current").Rows.Count OrigRows Then
Dim myRange As Range
ActiveSheet.Unprotect Password:="calldennis"
Set myRange = Intersect(ActiveSheet.UsedRange, Selection)
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="calldennis", DrawingObjects:=False, Contents:=True, _
Scenarios:=False, AllowFormattingCells:=True, AllowFormattingRows:=True, _
AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End If
End Sub
|