hinterlegte User dürfen Datei öffnen

Hallo zusammen,
bin neuling in sachen VBA, habe eine Arbeitsmappe mit ca. 10 Tebellenblätter,einige bereiche habe ich gespert da Formeln hinterlegt sind, manche Bätter habe ich auch ausgeblendet.
Möchte jetzt gerne die Datei so schützen, das nur bestimmte User diese Datei öffnen können.
Auf einem Tabeleenblatt würde ich die Benutzer ID´s von Windows hinterlegen. Diese werden auch auf Tabelle2 in J3 angezeigt.
Bsp. User ID "A123BCD"
Sollte eine User ID nicht hinterlegt sein, sollte die Datei nicht öffnen, evtl könnte eine Meldung gezeigt werden das der User keine Berechitgung hat die Datei zu öffnen.
Ich weis auch das sowas leicht zu Craken ist, haben aber nur normale anwender in der Firma.
Desweiteren werde ich die Datei mit einem Ablaufdatum versehen, da habe ich aber schon ein Makro gefunden.
Hoffe es kann mir einer Helfen.
Danke Euch schon mal im voraus
Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bernd,
versuch mal folgendes:
Leg dir eine neue Excel Datei an mit drei Tabellenblättern.
Namen der Blätter:
Blatt1: Startblatt
Blatt2: Arbeitsblatt
Blatt3: Berechtigungen
Auf das Startblatt schreibst du mitten rein, dick und groß
"Sie haben keine Berechtigung die Datei zu bearbeiten."
Im Blatt Berechtigungen in Spalte A (ab A1) die Klarnamen deiner Berechtigten
Im Blatt Berechtigungen in Spalte B (ab B1) die jeweiligen Windows-Anmeldenamen dazu
Folgende zwei Makros ins Codemodul von "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Startblatt" Then
ws.Visible = True
Else
ws.Visible = xlVeryHidden
End If
Next ws
End Sub
Private Sub Workbook_Open()
Dim strBerechtigt As String
strBerechtigt = Environ("Username")
Application.ScreenUpdating = False
If WorksheetFunction.CountIf(Worksheets("Berechtigungen").Columns(2), strBerechtigt) > 0 Then
Worksheets("Arbeitsblatt").Visible = True
Worksheets("Startblatt").Visible = False
Else
MsgBox "Sie sind nicht berechtigt die Datei zu öffnen."
ThisWorkbook.Close False
End If
End Sub

Datei speichern und schließen.
Was passiert:
Beim Schließen der Datei werden alle Arbeitsblätter mit xlveryhidden ausgeblendet.
Beim Start wird geprüft, ob der Windows-Benutzername im Blatt Berechtigungen in Spalte B vorhanden ist.
Wenn ja: Datei wird geöffnet, Startblatt wird ausgeblendet, Arbeitsblatt wird eingeblendet.
Beim Schließen der Datei wird dann wieder das Startblatt eingeblendet und alle übrigen Blätter werden ausgeblendet.
Wird die Datei geöffnet und der Windows-Username ist nicht im Blatt Berechtigungen vorhanden, wird eine Meldung ausgegeben und die Datei wird geschlossen.
Sollte jemand die Datei öffnen, ohne dass die Makrobearbeitung aktiviert wurde (z.B. mit gedrückter Shift-Taste), dann wird die Datei zwar geöffnet, es sind aber alle Blätter ausgeblendet und nur das Startblatt wird angezeigt. Und dort steht ja dick und fett, dass der Benutzer nicht mit der Datei arbeiten darf/kann.
Im Workbook_Open kannst du dann gezielt die Blätter einblenden, die für die Arbeit mit der Datei gebraucht werden.
Hinweis:
Vergiss aber nicht, deine eigenen Daten im Blatt Berechtigungen aufzunehmen, sonst kommst du ja selbst nicht mehr in die Datei.
Aber wie du selbst schon angemerkt hast ist das alles andere als sicher. Also schon mehr eine Spielerei. Damit kannst du nur User ausschließen die nicht viel mehr können als Excel zu öffnen und zu schließen.
Gruß Werner

Private Sub Workbook_Open() Dim strBerechtigt As String strBerechtigt = Environ("Username") Application.ScreenUpdating = False If WorksheetFunction.CountIf(Worksheets("Berechtigungen").Columns(2), strBerechtigt) > 0 Then If strBerechtigt = "DeineBenutzerkennung" Then Worksheets("Arbeitsblatt").Visible = True Worksheets("Berechtigungen").Visible = True Worksheets("Startblatt").Visible = False Else Worksheets("Arbeitsblatt").Visible = True Worksheets("Startblatt").Visible = False End If Else MsgBox "Sie sind nicht berechtigt die Datei zu öffnen." ThisWorkbook.Close False End If End Sub

Beliebteste Forumthreads (12 Monate)

hinterlegte User dürfen Datei öffnen

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