Berechtigung Exceltabelle
25.03.2020 08:38:32
Johann
folgendes Problem:
habe ein Formular erstellt das Userabhängig ist - d. h.: das Formular wird aufgerufen - Daten werden in den jeweiligen zugewiesenen Bereiche eingegeben - Abschluss mit einem CommandButton um die Eingabe mit Username (Windowsanmeldung) und Datum / Zeit zu bestätigen.
Ich habe dazu folgenden Code verwendet:
----------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
With Worksheets("Original") 'das ist der Name der Tabelle
If msgbox("Haben Sie alle Eingaben durchgeführt?", _
Buttons:=vbYesNo + vbQuestion) = vbNo Then
Exit Sub
Else
.Range("AS5").Value = Environ("username")
.Range("AT5").Value = Now
End If
End With
End Sub
----------------------------------------------------------------------------------
Weiter:
Jetzt habe ich den verschiedenen Usern die sich im Netzwerk befinden - Rechte auf verschiedene Zelle die sie bearbeiten sollen, unter "Bearbeiten von Bereichen zulassen" zugewiesen.
Die Bereiche sind Userabhängig mit verschiedenen Passwörtern gesichert - die ganze Datei ist mit einem
"Masterpasswort" geschützt.
Problem:
trotz Schutz kann jeder User auf die verschiedenen Buttons (das sind 12 Bereiche mit Buttons) klicken und bestätigen.
Soll Zustand:
wenn man den Button eines nicht zugewiesenen Bereiches klickt, sollte (jetzt Laufzeitfehler 1004 da geschützte Datei) einen Meldung, dass man keine Berechtigung hat, kommen.
Ich hoffe das irgendwie verständlich dargestellt habe und bitte um Hilfestellung.
Grüße Johann