PDA

Vollständige Version anzeigen : Ansicht bestimmte Benutzer


OzzyAPP
30.08.2017, 16:20
Hallo

Mit untenstehendem Code kontrolliere ich den Zugang zu einer Excel - Datei. Ist derjenige welche nicht in der Liste dann kann dieser auch nix öffnen. Ich würd den Code gen so haben wollen - das alle die nicht in der Liste stehen die Tabellenblätter 2 bis 10 sehen können.

MFG

Dim rngZelle As Range
Dim strBenutzer As String
Dim sAddress As String

strBenutzer = Environ("username")
Set rngZelle = Sheets("Anwender").Range("A1:A10").Find( _
what:=strBenutzer, LookIn:=xlValues, lookat:=xlWhole, _
searchorder:=xlByRows)
If rngZelle Is Nothing Then
Beep
MsgBox prompt:="Sie haben keine Berechtigung diese Datei zu öffnen!" & vbCrLf & vbCrLf & "Zugang anfordern:" & vbCrLf & "enrico.grafe@heraeus.com"
ThisWorkbook.Close savechanges:=False
End If

Hajo_Zi
30.08.2017, 16:22
benutze ontime

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

RPP63neu
30.08.2017, 16:59
@Ozzy:
Schönes Spielchen!
Da ist ja AES [klick] (https://www.boxcryptor.com/de/encryption/)rein gar nix dagegen.
Bewerbung zur NSA unterwegs?

Dennoch viel Erfolg!
Gruß Ralf

OzzyAPP
30.08.2017, 17:37
ganz ehrlich?

aus dem Einwand werde ich grade nicht wirklich schlau.


MFG

OzzyAPP
30.08.2017, 17:39
danke Hajo

das hilft mir grade nicht wirklich weiter. der Code ist ein Schnipsel den ich im I Net gefunden habe. umschreiben kann ich ihn selber nicht

Storax
30.08.2017, 17:42
Hier (http://www.onlinepclearning.com/excel-userform-login-form/#Test_the_project) und hier (https://turbofuture.com/computers/Excel-VBA-Create-A-Basic-Login-Function) gibt es Beispiele, ist allerdings als Training gedacht

Die Einwände sollen Dir nur sagen, dass man mit Excel so nicht den Zugriff auf eine Datei absichern kann. Das geht auch nicht mit dem obigen Link. Das geht eigentlich gar nicht ...