ich habe eine Frage an Euch. Bislang habe ich eine Benutzerabfrage mit dem Makro
Sub Berechtigungen ()
With Worksheets("Tabelle1")
If WorksheetFunction.CountIf(.Range("A1:A10"), Environ("Username")) > 0 Then
Else
End if
End With
End Sub
abgefragt. Jetzt hat sich allerdings etwas geändert und man müsste quasi eine Berechtigungsstufe (Arbeitsmappe nur Lesen/Schreiben erlaubt/Admin sieht alle Registerkarten) zum Benutzer abfragen.
Diesbezüglich habe die Benutzernamen (=gleich Windows-Anmeldename) in den Feldern A1 bis A10 eingetragen. In den Feldern B1:B10 befinden sich zum Benutzer zugehörig seine Berechtigungsstufe (bsp. A1:Müller B1:Lesen, A2:Meier B2:Schreiben, A3:Hans B3:Admin)
Wie müsste ich mein Skript umschreiben, damit er angesichts der Berechtigungsstufe Lesen / Schreiben / Admin jeweils etwas anderes ausführt.
Quasi nach dem Motto: Wenn Benutzer in Liste dann prüfe Berechtigung im Feld nebenan, wenn admin dann mache dies, wenn schreibberechtigung, dann das, wenn leseberechtigung dann das. Wenn nicht in Liste beende das Programm ohne speichern.
Für Eure Hilfe bereits jetzt besten dank!