werkblad beveiligen Excel 2007 dmv active user

[Norbertus]

Beste lezers, wie kan mij helpen?

Ik wil graag aan de hand van een ingelogd account rechten aan een werkblad meegeven.

Bv. wanneer "JAN" is ingelogd mag hij werkblad "1" wijzigen
wanneer "PIET" is ingelogd mag hij werkblad "1" alleen lezen en niet wijzigen.

Het mag ook een beveiliging zijn per cel, dus bv dat cel "A1" wel of niet gewijzigd mag worden.

Ik wil het niet met een wachtwoord doen omdat anders wachtwoorden snel uitgewisseld kunnen worden, maar aan de hand van de active user.

Alvast hartelijke dank voor het meedenken.

Norbertus

 

[VTeun]

Onder welke Windows-versie?

 

[Norbertus]

* windows xp

* Nog even als extra info. Met werkbladen bedoel ik de verschillende tabbladen

 

[avdhorst]

wordt deze discussie ergens anders nog voortgezet heb interesse in dezelfde vraag

 

[Norbertus]

Ik heb het nu als volgt opgelost, en het werkt perfect

op het werkblad "CALC" heb ik een aantal cellen geblokkeerd (celeigenschappen - bescherming)
Daarna heb ik het werkblad beveiligd met een wachtwoord, in dit voorbeeld **paswoord**.

De procedure hieronder heb ik beveiligd met een ander wachtwoord zodat niemand dit bovenstaande wachtwoord kan zien.

met de code usernameoffice = Environ("USERNAME") wordt de gebruiker opgehaald die aangemeld is onder windows op de betreffende pc.

Sub auto_open()

Dim usernameoffice As String

usernameoffice = Environ("USERNAME")

If usernameoffice = "PIET" Then
Worksheets("CALC").Unprotect Password:="**paswoord**"

ElseIf usernameoffice = "JAN" Then
Worksheets("CALC").Unprotect Password:="**paswoord**"

ElseIf usernameoffice = "KLAAS" Then
Worksheets("CALC").Unprotect Password:="**paswoord**"

Else
Worksheets("CALC").Protect Password:="**paswoord**"

Titel = "Beveiliging"
Style = vbInformation
msg = "U kunt alleen de kostprijs / AK% wijzigen"
response = MsgBox(msg, Style, Title)

End If

msg = "Huidige gebruiker " & usernameoffice
Style = vbInformation
Title = "Calculatiesheet"
response = MsgBox(msg, Style, Title)
Sheets("calc").Activate

End Sub