Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei schreibgeschützt öffnen

Datei schreibgeschützt öffnen
05.08.2003 18:26:58
Andreas.R
Hallo Excelfreunde
kann mir vielleicht da einer helfen oder einen Rat geben?
Ich habe eine Datei im Netzwerk wo ich täglich Eingaben und Auswertungen machen muß.
Mein Problem ist, das auf diese Datei mehrere Personen mit zugreifen müssen.
Es sollen aber nur Ich selbst und wenn ich nicht da bin 3 von mir bestimmte Personen die Datei im Original zum Bearbeiten öffnen können alle anderen sollen die Datei nur schreibgeschützt öffnen dürfen. Gibt es da eine Möglichkeit, das die Datei auch vom ersten Benutzer nur schreibgechütz geöffnet werden kann?
Oder anders gesagt wennn die Datei geöfnet wird soll eine Passwortabfrage erfolgen. Bei richtiger Eingabe des Passwortes soll die Datei als Original zum Bearbeiten geöffnet werden, bei falschem oder keinem Passwort soll die Datei trotzdem geöffnet werden aber schreibgeschützt.
Kann man das mit VBA realisieren? Und wenn ja, wie macht man das. Vielleicht hat jemand von Euch den passenden Code dafür.

erst mal vielen Dank im vorraus für Eure Bemühungen
bin für jeden Ratschlag von Euch Dankbar
Gruß Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei schreibgeschützt öffnen
05.08.2003 21:15:14
Ramses
Hallo,

was spricht gegen den Blattschutz ?
Das Password müssen diejenigen Personen ja doch vergeben.
Ansonsten kannst du es so machen


Option Explicit

'Hier das Password eingeben
Const myPW As String = "Dein Passwort"


Private Sub Workbook_Open()
Dim Qe As String, i As Integer
Qe = InputBox("Passwort bitte eingeben", "Adminmodus", "")
If Qe = myPW Then
    For i = 1 To Worksheets.Count
        Worksheets(i).Unprotect Password:=myPW
    Next i
Else
    For i = 1 To Worksheets.Count
        Worksheets(i).Protect Password:=myPW
    Next i
End If
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Der Code muss in "Diese Arbeitsmappe" im VB-Editor

Gruss Rainer


Anzeige
AW: Datei schreibgeschützt öffnen
06.08.2003 18:01:48
Andreas.R
Hallo Rainer
hat prima geklappt danke für deine schnelle Antwort


300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige