Re: VBA Dokumenteaufruf
29.04.2003 11:26:50
ChrisL
Hallo TobiWenn es ein Blattschutz sein darf, der allerdings ziemlich 'unsicher' ist, kannst du es wie folgt machen:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Protect "Passwort"
Next i
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim Antwort As String, PW As String
Dim i As Integer
Antwort = MsgBox("Soll die Datei mit Schreibschutz geöffnet werden?", vbYesNo + vbQuestion, "Schreibschutz ja/nein")
If Antwort = vbNo Then
PW = InputBox("Bitte Passwort eingeben: ")
If PW = "Passwort" Then
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect "Passwort"
Next i
Else
MsgBox "Passwort fehlerhaft. Datei wird mit Schreibschutz geöffnet."
End If
End If
End Sub
Gruss
Chris