R
RKS
Hi All,
I have protected excel sheet which have many column and row. I can
distribute to user
and uer can fill data. after some time, some data are useless so user want
delete and
insert new row (with formula). i can hide all formula which i can use in
this excel sheet.
I can use micro for insert line, so user can insert. but problem is that
when line inset its blank
and no formula is coping which i can use previous column and row. I want
when Insert row its insert with all formula.
please help me.
micro which i can use:
Private Sub Workbook_Open()
Application.OnKey "+{INSERT}", "ThisWorkbook. InsSelectedRow"
End Sub
Sub InsSelectedRow()
With Worksheets("T&A")
If Selection.Parent.Name = .Name Then
'check to make sure a row is selected
If Selection.Rows.Count = 1 And Selection.Cells.Count = 256 Then
.Unprotect Password:="xxx"
Selection.Insert
.Protect Password:="xxx"
End If
End If
End With
End Sub
RKS
I have protected excel sheet which have many column and row. I can
distribute to user
and uer can fill data. after some time, some data are useless so user want
delete and
insert new row (with formula). i can hide all formula which i can use in
this excel sheet.
I can use micro for insert line, so user can insert. but problem is that
when line inset its blank
and no formula is coping which i can use previous column and row. I want
when Insert row its insert with all formula.
please help me.
micro which i can use:
Private Sub Workbook_Open()
Application.OnKey "+{INSERT}", "ThisWorkbook. InsSelectedRow"
End Sub
Sub InsSelectedRow()
With Worksheets("T&A")
If Selection.Parent.Name = .Name Then
'check to make sure a row is selected
If Selection.Rows.Count = 1 And Selection.Cells.Count = 256 Then
.Unprotect Password:="xxx"
Selection.Insert
.Protect Password:="xxx"
End If
End If
End With
End Sub
RKS