Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen benutzerabhängige Erlaubnis zum Ändern

Zellen benutzerabhängige Erlaubnis zum Ändern
30.03.2008 15:29:00
Günter
Hallo Zusammen,
ich stehe mal wieder vor einem für mich größeren Problem.
Ich möchte bestimmte Zellen einer Mappe abhängig vom angemeldeten Benutzer ändern lassen.
Beispiel:
- Zelle A1 und komplette Zeile 12 dürfen nur von Müller geändert werden
- Zelle B3 und kompletten Zeile 4-5 dürfen nur von Meier geändert werden
- alles andere Zellen dürfen von jedem Benutzer geändert werden
Das Ermitteln des aktuellen Benutzers habe ich bereits gelöst.
Hat jemand eine Lösung?
Danke im Voraus.
Günter

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen benutzerabhängige Erlaubnis zum Ändern
30.03.2008 15:34:15
Heinz
Hi,
Extras, Schutz, Benutzer dürfen Bereiche bearbeiten...
mfg Heinz

AW: Zellen benutzerabhängige Erlaubnis zum Ändern
30.03.2008 15:48:20
Günter
Hallo Heinz,
vielleicht habe ich micht ganz klar ausgedrückt.
Ich möchte diesen Zugriff mit einer INI-Datei regeln.
Abhängig von dem Inhalt der INI-Datei, die auf dem jeweiligen PC vorhanden ist, dürfen bestimmte Zellen geändert werden.
Nochmals zur Erläuterung das Beispiel:
- Zelle A1 und komplette Zeile 12 dürfen nur geändert werden, wenn der Inhallt einer INI-Datei "A" ist
- Zelle B3 und kompletten Zeile 4-5 dürfen nur geändert werden, wenn der Inhallt einer INI-Datei "B" ist
- alle andere Zellen dürfen von jedem Benutzer unabhängig von dem Inhalt der INI-Datei geändert werden
Der Inhalt der INI-Datei habe ich bereits ausgelesen und steht in der Variablen "INIStrg"
Hast Du oder sonstjemand eine Idee?
Danke
Günter

Anzeige
AW: Zellen benutzerabhängige Erlaubnis zum Ändern
30.03.2008 16:21:35
Tino
Hallo,
habe eine Idee, geht es so?
Habe es aber noch nicht auf Herz u. Nieren geprüft.
Als Code ins Tabellenblatt.
Die INIStrg ist ja bekannt.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If (Not Intersect(Target, Range("A1,A12:IV12")) Is Nothing) And INIStrg = "B" Then
Application.Undo
MsgBox "Sie dürfen diesen Bereich nicht verändern!"
ElseIf (Not Intersect(Target, Range("B3,A4:IV5")) Is Nothing) And INIStrg = "A" Then
Application.Undo
MsgBox "Sie dürfen diesen Bereich nicht verändern!"
End If
Application.EnableEvents = True
End Sub


Gruß
Tino

Anzeige
Danke! Funktioniert tadellos
30.03.2008 16:54:00
Günter
Hallo Tino und Daniel,
danke für Eure Lösungen.
Ich habe mich für die Variante von Daniel entschieden, da ich dort keinen Blattschutz brauche!
Nochmals Danke und schönen Sonntag!
Gruß
Günter

AW: Danke! Funktioniert tadellos
30.03.2008 16:57:00
Tino
Hallo Günter,
Daniel benutzt doch aber den Blattschutz?
Gruß
Tino

AW: Danke! Funktioniert tadellos
30.03.2008 17:02:13
Günter
Hallo Tino,
ich habe Euch beide verwechselt.
Deine Variante mit "Worksheet_Change..." habe ich jetzt im Einsatz.
Gruß
Günter

AW: Zellen benutzerabhängige Erlaubnis zum Ändern
30.03.2008 15:58:00
Daniel
Hi
ne alternative Variante:
der Code muss (entsprechend angepasst) an die Stelle im Code eingefügt werden, an der du den Benutzer ermittelst:

Dim BEARBEITER As String
BEARBEITER = "" '--- hier dein Code zum Ermitteln des Bearbeiters
With Sheets("Tabelle1")
.Unprotect Password:="DeinPassword"
.Cells.Locked = False
Select Case BEARBEITER
Case "Müller"
.Range("B3,4:5").Locked = True
Case "Meier"
.Range("A1,12:12").Locked = True
Case Else
.Range("A1,B3,4:5,12:12").Locked = True
End Select
.Protect Password:="DeinPassword"
End With


Gruß, Daniel

Anzeige

302 Forumthreads zu ähnlichen Themen

Erstellungsdatum bzw. Änderungsdatum in Zelle
di

Hi Forum!
ich habe eine Tabelle mit Adressen (Liste) und möchte gerne beim hinzufügen eines neuen Datensatz beziehungsweise bei Änderung, das aktuelle Datum mit Uhrzeit und Benutzername automatisch in die vordefinierte Zelle eintragen lassen.
Beispiel:
RegistriertAm RegistriertVon G...
01.09.2008 13:22:00
Thread-ID: 1006414
10 Beiträge
Anzeige
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Anzeige
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 Beiträge
Zählen "U" Summe übertragen aus Zelle CR10
Steffi

Hallo Zusammen,
Sitze mal wieder da und bekomme es nicht gebacken.
In Zelle CR10 wird Bereich =ZÄHLENWENN(C10:CN10;"U") überprüft auf "U" und werden gezählt.
In Zelle CR31 wird Bereich =ZÄHLENWENN(C31:CO31;"U") überprüft auf "U" und werden gezählt.
So weit gut, nun soll folgende...
06.02.2010 20:59:44
Thread-ID: 1136466
3 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Erhöhung einer Zahl um 1 in TextBox
Josef

Hallo!
Ich habe in einem Arbeitsblatt mehrere Datensätze stehen.
Beispiel:
411143272000922000000001300
411143272000922000010141100
4111432720009220000203D0104
4111432720009220000303D0104
4111432720009220000403D0104
4111432720009...
13.04.2010 10:10:40
Thread-ID: 1151362
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
6
8
4
2
4
11
2
2
4
7
1
6
2
6
2
4
2
1
21
5
1
3
6
15