Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei schreibgeschützt öffnen

Forumthread: 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
Anzeige

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


;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige