Jim hat eine Arbeitsmappe, die von mehreren Personen in seinem Unternehmen verwendet wird. Er fragt sich, ob es eine Möglichkeit gibt, jedem das Hinzufügen von Daten zu einer Gruppe von Zellen zu ermöglichen, ohne jedoch einzuschränken, wer die Daten aus den Zellen löschen darf. Er hat eine Gruppe von ungefähr 50 Personen, die Daten hinzufügen möchten, aber nur 2 Personen die Löschfunktion geben möchten.

Es gibt eine beliebige Anzahl von makrobasierten Lösungen, die Sie ausprobieren können. Im Wesentlichen benötigen Sie ein Makro, um zu erkennen, wann Informationen gelöscht wurden, und um zu überprüfen, ob die Person, die die Informationen löscht, die Berechtigung dazu hat. Das Folgende ist nur ein möglicher Ansatz für das Problem:

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

Das Makro, das eigentlich ein Ereignishandler ist, der ausgelöst wird, wenn etwas im Arbeitsblatt geändert wird, prüft, ob die Informationen in einer Zelle (oder in einer Zelle oben links in einem Bereich) gelöscht wurden. Wenn ja, wird der Benutzer nach einem Passwort gefragt. Wenn die Person nicht über das Kennwort verfügt, wird die Rückgängig-Methode aufgerufen, um das Löschen der Person rückgängig zu machen. (Sie möchten das Kennwort, das der Variablen sPassword zugewiesen ist, in das tatsächliche Kennwort ändern, das die Benutzer verwenden sollen.)

Eine weitere Option ist die Verwendung eines Excel-Add-Ins, mit dem die Sicherheitsprobleme für Sie behoben werden können. Einige Abonnenten empfehlen die Verwendung von A-Tools, die entweder als kostenlose oder als Pro-Edition (kostenpflichtig) erhältlich sind. Weitere Informationen zu diesem Add-In finden Sie hier:

http://www.atoolspro.com/

Mit A-Tools können Sie offenbar unter anderem verschiedene Sicherheitsfunktionen auf Excel-Daten anwenden, die sich in einem Netzwerk befinden. (Die Chancen stehen gut, dass Jim seine Arbeitsmappe in einem Netzwerk freigibt, da sie von vielen Mitarbeitern in seinem Unternehmen verwendet wird.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11597) gilt für Microsoft Excel 97, 2000, 2002 und 2003.

Eine Version dieses Tippes für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier: