AW: Datei mit Passwort öffnen....
03.07.2007 23:36:48
Thomas
Hallo Uwe,
ja das geht. Hier mal ein einfaches Beispiel:
3 Tester, 1=Tabelle1, 2=alle Tabellen, 3=Tabelle1 und Tabelle3
Die User schreiben ihre "Passwörter" in die Zelle X1 ihrer Tabelle.
Wechsle nun zum VBA-Editor und erstelle eine Userform Namens "Start". Die Userform muß eine Textbox haben und zwei Button (OK, Abbrechen).
Trage unter DieseArbeitsmappe den folgenden Code ein:
Private Sub Workbook_Open()
Start.Show
End Sub
In der Userform muß dann dieser Code stehen (alle Drei):
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode 1 Then Cancel = 1
End Sub
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Passwort eingeben!"
TextBox1.SetFocus
Exit Sub
Else
If TextBox1.Text = Sheets("Tabelle1").[X1].Text Then 'Tester 1
Sheets("Tabelle1").Visible = True
Sheets("Tabelle2").Visible = False
Sheets("Tabelle3").Visible = False
Unload Me
GoTo ende
End If
If TextBox1.Text = Sheets("Tabelle2").[X1].Text Then 'Tester 2
Sheets("Tabelle1").Visible = True
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = True
Unload Me
GoTo ende
End If
If TextBox1.Text = Sheets("Tabelle3").[X1].Text Then 'Tester 3
Sheets("Tabelle1").Visible = True
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = False
Unload Me
GoTo ende
End If
MsgBox "Das Passwort ist nicht bekannt!"
TextBox1 = ""
TextBox1.SetFocus
End If
ende:
End Sub
Private Sub CommandButton2_Click()
Unload Me
ThisWorkbook.Saved = True
Application.Quit
End Sub
Also mit ein bissl Überlegen und probieren kannst das dann sicher auch auf deine Tabellen anwenden.
Denke aber daran das dies keine Sicherheit darstellt! Mit Format-Blatt-Einblenden kann jeder die anderen Tabellenblätter sichtbar machen. Denke auch daran das immer eine Tabelle visible, also sichtbar, sein muß. Sonst kommt es zur Fehlermeldung.
Tschüß Thomas