multi-users beveiliging

[whisper90]

Hallo,

in bijlage een sheet ivm producten.
Er zijn vier verschillende personen die in dezelfde sheet input moeten leveren over deze producten.
Elke persoon heeft een aantal kolommen.

Nu wil ik met de aangepaste functie in excel definieren dat elke persoon in zijn eigen kolommen input mag leveren, maar niet in de kolom van anderen via " gebruikers toestaan om bereiken te veranderen" zodat elke persoon een eigen paswoord heeft voor zijn bereik.

Kan er mij iemand de essentie van deze functie toepassen op mijn sheet en uitleggen waarmee ik rekening hoef te houden en hoe ik bepaalde zaken moet instellen.

Bedankt

 

[paulva]

Dit zou wel eens kunnen lukken, al is het niet helemaal waterdicht:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Unprotect Password:="a"
Columns("B:AG").Select
Selection.Locked = True
ActiveSheet.Protect Password:="a"
Range("b3").Select
End Sub
Private Sub Workbook_Open()
invoer = InputBox("paswoord voor " & Application.UserName, Application.UserName)
If Application.UserName = "tim" And invoer = "tim" Then
ActiveSheet.Unprotect Password:="a"
Columns("B:I").Select
Selection.Locked = False
ActiveSheet.Protect Password:="a"
Range("b3").Select
End If
If Application.UserName = "pol" And invoer = "pol" Then
ActiveSheet.Unprotect Password:="a"
Columns("J").Select
Selection.Locked = False
ActiveSheet.Protect Password:="a"
Range("j3").Select
End If
If Application.UserName = "martijn" And invoer = "martijn" Then
ActiveSheet.Unprotect Password:="a"
Columns("q:w").Select
Selection.Locked = False
ActiveSheet.Protect Password:="a"
Range("q3").Select
End If
End Sub

De Application.UserName is de naam die bij het installeren aan die gebruiker is toegekend. Je vindt die door te klikken op de Office-knop > opties > populair > gebruikersnaam.
"a" is het paswoord van de werkbladbeveiliging. Die moet je natuurlijk nog zelf aanpassen.

Het spreekt vanzelf dat de macro moet beveiligd worden.
Nogmaals: Excel kan je gewoonweg niet helemaal beveiligen.