Het beperken van Who Can Data Delete

01/01/2011 by admin

Jim heeft een werkmap die wordt gebruikt door meerdere mensen in zijn bedrijf. Hij vraagt ​​zich af of er een manier is om iedereen om gegevens toe te voegen aan een groep cellen, maar toch te beperken die de gegevens uit de cellen kunnen verwijderen. Hij heeft een groep van ongeveer 50 die hij wil zijn in staat om gegevens toe te voegen, maar hij wil de delete mogelijkheid om slechts 2 personen geven.

Er zijn een aantal macro-gebaseerde oplossingen die je kunt proberen. Wezen, een macro moet je om te detecteren wanneer de informatie is verwijderd en controleer om te zien of de persoon die het verwijderen van de gegevens toestemming heeft om dit te doen. Het volgende is slechts een van de mogelijke aanpak van het probleem:

Private Sub Worksheet_Change (ByVal Target As Range)
Dim sPassCheck als Koord
Dim rng als Waaier
Dim Stemp als Koord
Dim sPassword als Koord

sPassword = "Wachtwoord"
Stemp = "U moet het wachtwoord om gegevens te wissen in te voeren"

'Gebruik van een enkele cel te stellen als er meer dan één cel is
'In het doelbereik
Als Target.Count> 1 Dan
Set rng = Target.Cells (1, 1)
Anders
Set rng = Target
End If

Als rng.Value = "" Dan
sPassCheck = InputBox (Stemp, "Delete check!")
Application.EnableEvents = False
Als sPassCheck <> sPassword Dan Application.Undo
End If

Application.EnableEvents = True
End Sub

De macro, dat is eigenlijk een event handler geactiveerd wanneer er iets in het werkblad wordt gewijzigd, controleert of de informatie in een cel (of linksboven cel in een reeks) is verwijderd. Zo ja, dan wordt de gebruiker gevraagd om een ​​wachtwoord. Als de persoon het wachtwoord heeft, dan is de Undo methode wordt aangeroepen om "ongedaan maken" verwijdering van de persoon. (U wilt het wachtwoord, toegewezen aan de sPassword variabele veranderen) om de werkelijke wachtwoord dat u wilt mensen om te gebruiken.)

Een andere optie is het gebruik van een Excel add-in die kan zorgen voor de veiligheid voor u. Sommige abonnees stel met behulp van A-Tools, die wordt geleverd in zowel een gratis of pro (betaalde) editie. U kunt meer informatie over deze add-in vindt u hier:

http://www.atoolspro.com/

A-Tools, onder andere, blijkbaar kun je diverse beveiligingsfuncties van toepassing op Excel-gegevens die zich op een netwerk. (De kans is groot dat Jim is het delen van zijn werkboek op een netwerk, zoals het wordt gebruikt door veel mensen in zijn bedrijf.)

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (11.598) is van toepassing op Microsoft Excel 2007 en 2010. U kunt een versie van deze tip vinden voor de oudere menu-interface van Excel hier: Het beperken van Who Can Data Delete.