Nutzern per VBA Schreibrechte für Zellbereich erteilen

[LuckyJoe]

@Sabina:  sehr schön!:97:

[soddel]

Moin Peter,

alle Achtung, das sieht ja mal echt klasse aus!

[xevu]

Vielen Dank für eure Beiträge, natürlich insbesondere an Sabrina für die Mühen, die du dir extra gemacht hast.

Entschuldigt, dass ich mich noch nicht zurückgemeldet habe. Ich bin leider zurzeit selbst dienstlich unterwegs und kann mich daher diesem Thema nur geringfügig widmen. Ich melde mich aber definitiv nochmal ausführlich zurück!  :90:

[schauan]

… Sabina … Das r ist schon bei der Namensgebung weggerollt :79:

[Kuwer]

Hi,

das ist schon irgendwie komisch: Bei Sabine käme wahrscheinlich kaum jemand auf die Idee, ein r einzufügen.

Gruß Uwe

[WillWissen]

Hi,

vielleicht liegt's daran, dass es keine Sab r ine gibt; eine Sab r ina schon.

[Flotter Feger]

Hallo Günter ohne h,

stimmt nicht ganz ... https://everipedia.org/wiki/lang_en/sabrine-khan/ ...

... ihr dürfte es genau anders rum gehen. :20:

[WillWissen]

Hi Sabina,

da hab' ich mich wohl zu wenig schlau gemacht.

... ihr dürfte es genau anders rum gehen.

Yep, habe mich hier http://www.baby-vornamen.de/Maedchen/S/Sa/Sabrine/ umgesehen und u.a. diesen Post gefunden:

Zitat
Also ich heisse so und ich werde ohne e ausgesprochen.

ich mag meinen namen sehr aber er ist mit vielen hindernissen verbunden, z.b. kommt die post immer mit sabine sabrina oder sonstigen interessanten varianten was sehr lästig werden kann aber man gewöhnt sich an alles und ich kenn es ja auch nicht anderst ;)

[Käpt'n Blaubär]

Hallo,

mein Sohn bekommt ständig Post mit der Adressierung Frau Ingmar.
Inzwischen hat er sich daran gewöhnt  :19:

[xevu]

Hallo Sabina,
hallo zusammen,

entschuldige bitte - ich wollte dir @Sabina kein R untermogeln.

Ich habe jetzt schon mehrfach damit begonnen, mich zu all den Punkten in diesem Thread "zu rechtfertigen". Das möchte ich aber gar nicht, da es trotz der gemeinten Objektivität ungewollt auch undankbar klingt. Ich weiß eure Mühen zu schätzen! Daher habe ich mich entschieden, nur ganz knapp zurückzumelden.

Nach weiteren Recherchen habe ich meine Fragestellung ohne Userform selbst lösen können.

Ein Skript entfernt den Blattschutz, verteilt die Nutzerrechte in einer while-Schleife bis Zeile 100 (und zwar überall dort, wo eine UserID in Spalte D steht) und setzt anschließend wieder den Blattschutz. Hier mal der wesentliche Teil zum Nachvollziehen:

Code:

Dim ws As Worksheet, aer As AllowEditRange
Set ws = ThisWorkbook.Sheets("...")
Dim i As Integer
Dim MA_UserName As String
Dim MA_UserID As String

i = 10 'Auflistung der Mitarbeiter beginnt erst in Zeile 10
   While i <> 100 'prüfe bis Zeile 99; Ende der Liste
       If ws.Cells(i, 4).Value <> "" Then
           MA_UserName = ws.Cells(i, 3).Value
           MA_UserID = ws.Cells(i, 4).Value

           Set aer = ws.Protection.AllowEditRanges.Add(MA_UserName, ws.Range(...), strPasswort)
           aer.Users.Add MA_UserID, True
       End If
       i = i + 2 'hier wird 2 addiert, da die Mitarbeiternamen nur in jeder zweiten Zeile stehen
   Wend

Letztlich geht es hier also um diese beiden Zeilen:

Code:

Set aer = ws.Protection.AllowEditRanges.Add(MA_UserName, ws.Range(...), strPasswort)
aer.Users.Add MA_UserID, True

Mittels Variable kann ws.Range(...) dynamisch befüllt werden, sodass der Zellbereich nur die Tage (Spalten) abdeckt, die von den Kollegen bearbeitet werden sollen.