У Джима есть рабочая тетрадь, которую используют несколько человек в его компании. Он задается вопросом, есть ли способ разрешить каждому добавлять данные в группу ячеек, но при этом ограничить круг лиц, которые могут удалять данные из ячеек. У него есть группа из примерно 50 человек, которым он хочет иметь возможность добавлять данные, но он хочет предоставить возможность удаления только двум людям.

Вы можете попробовать любое количество макросов. По сути, вам нужен макрос, чтобы определять, когда информация была удалена, а затем проверять, есть ли у человека, удаляющего информацию, разрешение на это. Ниже приводится лишь один из возможных подходов к проблеме:

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

Макрос, который на самом деле является обработчиком событий, который запускается всякий раз, когда что-то изменяется на листе, проверяет, была ли удалена информация в ячейке (или верхней левой ячейке в диапазоне). Если да, то у пользователя запрашивается пароль. Если у человека нет пароля, то вызывается метод Undo, чтобы «отменить» удаление человека. (Вы захотите изменить пароль, присвоенный переменной sPassword) на фактический пароль, который вы хотите, чтобы люди использовали.)

Другой вариант — использовать надстройку Excel, которая позаботится о проблемах безопасности за вас. Некоторые подписчики предлагают использовать A-Tools, который доступен либо в бесплатной, либо в профессиональной (платной) версии. Вы можете найти больше информации об этой надстройке здесь:

http://www.atoolspro.com/

A-Tools, помимо прочего, по-видимому, позволяет применять различные функции безопасности к данным Excel, находящимся в сети. (Скорее всего, Джим делится своей рабочей тетрадью в сети, поскольку ею пользуются многие люди в его компании.)

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11598) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Limiting_Who_Can_Delete_Data [Ограничение того, кто может удалять данные].