Delete a row in a protected document

[Loin75]

Hi,

My workbook needs to be completely 100% protected from its user. So I have created a macro/userform that enables them to enter new data into the table. What I need now is another macro that will give them the option to delete any row of data that they have previously entered.

I figure that I will have to use some kind of "vlookup and/or print" code that will display to the user a list of the data that has been entered - at which point they can select one of them to remove from the table.

Can anyone please suggest a good starting point for this, bearing in mind that I am terrible at VB script, if it is at all possible...

Thanks in Advance.

 

[Datsmart]

I would suggest tagging each entry by your users with their Username in a distant cell in their added row. Then use that entry to allow them to only delete their own rows.

See this thread for use of Usernames:
http://www.mrexcel.com/board2/viewtopic.php?p=1198464

Sorry, no time to post more.

 

[Loin75]

Thanks for this, but there will only be one user using the workbook, so there would be no need to tag in this manner...

I am more interested in how to display a list of the data for them to pick from in the first instance.

Any other help greatly appreciated.

Thanks

 

[Loin75]

For anyone looking for a solution to this, i've ended up with the following code. The macro presents a list box showing a summary of my data. The one they select is then removed from the sheet by having the entire row deleted.

NB - the code doesn't mean much to me, but maybe someone else could make the most of it as well. Thanks to my bro for the assist...


Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="password"

x = 4
x = x + ListBox1.ListIndex
If ListBox1.ListCount = 2 Then
ActiveSheet.Range(x & ":" & x).Rows.ClearContents
Else
ActiveSheet.Range(x & ":" & x).Rows.Delete
End If
ActiveSheet.Protect Password:="password"

RemoveNewBus.Hide
End Sub
Private Sub CommandButton2_Click()
RemoveNewBus.Hide
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Activate()
ActiveSheet.Unprotect Password:="password"

'MsgBox Range("R_END").Offset(-1, 0).Value
'MsgBox Range("R_END").Address(0, 0)
ListBox1.ColumnCount = 2
ListBox1.RowSource = "B16:R_END"
Dim strRowSource As String
With ListBox1
strRowSource = .RowSource
.RowSource = vbNullString
'Set back so it updates, use a new RowSource
.RowSource = strRowSource
End With
ActiveSheet.Protect Password:="password"
End Sub
Private Sub UserForm_Initialize()
End Sub