Schutz vor unberechtigtem Dateizugriff

Hallo,
hier mal wieder eine Frage an die Experten:
Ich habe in einer Tabelle bestimmte Usernamen hinterlegt und gleiche diese beim Öffnen der Tabelle via Environ auf Übereinstimmung mit dem jeweiligen User-Login ab.
Gibt es hier eine Möglichkeit, zu sagen, dass sich für alle Fälle, in denen der User-Login nicht in der Tabelle hinterlegt ist, die Tabelle gar nicht öffnen lässt bzw. vor Anzeige des Inhalt schließt ?
Wenn ja, ist eine solche Überprüfung auch für Excel-Kenner ausreichen, d.h. kann man verhindern, dass so etwas durch Tricks umgangen wird (bezogen rein auf Excel, OpenOffice ist vorerst egal) ?
Momentan verwendeter Code-Teil aus Workbook_Open (hier noch mit Anzeige einer Message Box):
Case Else
If Application.CountIf(Sheets(1).Range("A1201:A1399"), Environ("Username")) = 1 Then
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = xlVeryHidden
Worksheets(3).Visible = True
Worksheets(4).Visible = xlVeryHidden
Worksheets(3).Range("M5") = Environ("Username")
Worksheets(3).Select
Range("E2").Select
Call Disclaimer_Msg
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = False
End With
Else
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = xlVeryHidden
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = True
Worksheets(4).Select
Call TimeOut_Msg
End If
Ich freue mich über jeden Tipp und jede Hilfestellung !
VG und vielen Dank im Voraus, Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Tim,
Möchte mich nicht mit fremdem Federn schmücken , den Code habe ich mir über verschiedene Foren zusammen gebastelt ,denke für dich ist interessant das der PC Benutzer ausgelesen wird ,will heißen , es müssen alle Nutzer eingetragen werden die darauf Zugriff haben sollen . Beispiel Zeile 36 Case "RS","test"
Das Modul prüft ob der User eingetragen ist und ob das Passwort richtig ist , wenn alles richtig kann die Datei geöffnet werden ,wenn nicht wird diese automatisch geschlossen und im gleichen Verzeichnis wird eine log datei erstellt um zu sehen wer versucht hat diese zu öffnen.
Versuche doch bitte :
Makros deaktivieren ,Datei öffnen , in VBA wechseln ,PC Benutzer eintragen , speichern , Makros aktivieren ,Datei öffnen ,nun sollten nur User die Datei öffnen können die du eingetragen hast .
Grüße Rene

Sub Auto_Open()
Dim zUser$, zComp$
zUser = fcGetNetUser()
zComp = atCNames(2)
Select Case Format(zUser, ">")    'zUser
'Case "Laptop", "egal", "egal"
Case "RS"
'// Benutzer haben Zugriff
Load frmPassword
frmPassword.Show
If Format(zPassword, ">")  "TEST" And Format(zPassword, ">")  "GG" Then
sbWriteLog zUser, zComp, False
MsgBox "das war leider falsch versuchen Sie es noch einmal !", vbInformation, " _
Hmmmmmmm "
ThisWorkbook.Close False, , False
End If
'// Logbuch schreiben
sbWriteLog zUser, zComp, True
sbShowSheets
Case Else
'// Benutzer haben keinen Zugriff
If zUser = "" Then
zUser = atCNames(1)
If zUser = "" Then
If zUser = "" And Left(zComp, 7) = "DEFAULT" Then
Load frmPassword
frmPassword.Show
If zPassword = "ventura" Then
sbShowSheets
Exit Sub
End If
End If
zUser = "Unbekannt"
End If
End If
sbWriteLog zUser, zComp, False
MsgBox "das war leider falsch versuchen Sie es noch einmal !", vbInformation, "RS© 2004  _
ThisWorkbook.Close False, , False
End Select
End Sub

Beliebteste Forumthreads (12 Monate)

Schutz vor unberechtigtem Dateizugriff

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread