Moving rows to 2nd tab when worksheet is protected
and one thing i forgot to say about sheet protection.
You can protect a sheet in UserInterface only mode. In this mode, the user
(as usual) cannot edit protected cells, but vba code can ! Very convenient,
huh!?!
The only inconvenient, the mode is not remembered when the book is closed,
so you have to reset it when the book opens in the Workbook_Open sub of the
ThisWorkbook module:
Assuming you password is "mypassword"
Worksheets("Tracking").Protect Password:="mypassword",
UserInterfaceOnly:=True
This option is available in XL2k and above. Not sure about XL97.
Sebastien
"sebastienm" wrote:
Hi,
To cut and paste the current row to A4:
Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut Worksheets("Tracking").Rows(5)
ActiveCell.EntireRow.Delete
End Sub
There is no need of activating the second sheet .
Now to paste to the next available row in stead of A5 (assuming column A is
used to determine which is the next available row), still feasuble in a
single statement:
Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut
Worksheets("Tracking").Range("A65536").End(xlUp).O ffset(1,0)
ActiveCell.EntireRow.Delete
End Sub
I hope this helps,
Sebastienm
|