Please Note: This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: Limiting Who Can Delete Data.
Written by Allen Wyatt (last updated July 5, 2022)
This tip applies to Excel 97, 2000, 2002, and 2003
Jim has a workbook that is used by multiple people in his company. He wonders if there is a way to allow everyone to add data to a group of cells, yet restrict who can delete the data from the cells. He has a group of about 50 that he wants to be able to add data, but he wants to give the delete capability to just 2 individuals.
There are any number of macro-based solutions you can try. Essentially, you need a macro to detect when information has been deleted and then check to see if the person deleting the information has permission to do so. The following is just one possible approach to the issue:
Private Sub Worksheet_Change(ByVal Target As Range) Dim sPassCheck As String Dim rng As Range Dim sTemp As String Dim sPassword As String sPassword = "Password" sTemp = "You must enter the password to delete data" 'Use to set a single cell if more than one cell is 'in the target range If Target.Count > 1 Then Set rng = Target.Cells(1, 1) Else Set rng = Target End If If rng.Value = "" Then sPassCheck = InputBox(sTemp, "Delete check!") Application.EnableEvents = False If sPassCheck <> sPassword Then Application.Undo End If Application.EnableEvents = True End Sub
The macro, which is actually an event handler triggered whenever something in the worksheet is changed, checks to see if the information in a cell (or top-left cell in a range) was deleted. If so, then the user is asked for a password. If the person doesn't have the password, then the Undo method is invoked to "undo" the person's deletion. (You'll want to change the password, assigned to the sPassword variable) to the actual password you want people to use.)
Another option is to use an Excel add-in that can take care of the security issues for you. Some subscribers suggest using A-Tools, which comes in either a free or pro (paid) edition. You can find more information about this add-in here:
http://www.atoolspro.com/
A-Tools, among other things, apparently allows you to apply various security features to Excel data that resides on a network. (Chances are good that Jim is sharing his workbook on a network, as it is used by many people in his company.)
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (11597) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Limiting Who Can Delete Data.
Program Successfully in Excel! John Walkenbach's name is synonymous with excellence in deciphering complex technical topics. With this comprehensive guide, "Mr. Spreadsheet" shows how to maximize your Excel experience using professional spreadsheet application development tips from his own personal bookshelf. Check out Excel 2013 Power Programming with VBA today!
Don't you hate opening a workbook and seeing error messages? If you see a message that some "invalid names" were detected ...
Discover MoreRenaming a workbook from within Excel can seem daunting, but it is actually quite easy. All you need to do is use the ...
Discover MoreHave you ever opened a workbook, only to have it not display your worksheet data? This can be very disconcerting, but it ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2019-01-30 03:22:43
Barry
I always thought the Undo stack was cleared when a macro was run.
2019-01-29 11:32:53
Lee
Same thing for me...Doesn't work.
2018-07-02 13:11:06
Sudhir
I tried running this code but could not get it to work. I am not sure what i did wrong here. In the excel, i opened the developer tab, then in the Code box, i opened Visual basic, Clicked ThisWorkbook on the left hand side panel and pasted this code. Saved the file and tried to observe if i could delete the info. It allowed deleting so not sure what's happening here.
2018-06-15 11:42:03
Luke
Fantastic, except that the range doesn't work. Set the range to (A1, G251) but the password request appears regardless of which cell I delete from. (Also used ("A1:G251") also to no avail.
Got a version of Excel that uses the menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)? This site is for you! If you use a later version of Excel, visit our ExcelTips site focusing on the ribbon interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2024 Sharon Parq Associates, Inc.
Comments