Schreibschutz-Problem
22.08.2005 09:42:07
Christoph
ich habe ein großes Problem.
Ich habe eine Exceltabelle, die paßwortgeschützt ist.
Das Problem ist, das wenn ich das Paßwort eingebe, er es als richtig anerkennt, aber nicht den Schreibschutz aufhebt.
Könnt ihr mir helfen?
Mein Code:
Private Sub CMD_aufheben_Click()
Application.DisplayAlerts = False
passwd = Worksheets("persönlicher Kalender").Range("V1").Value
Paßwort = TXT_Paßwort
If Paßwort = passwd Then
' Blattschutz aufheben:
Paßwort_Eingabe.Hide
Worksheets("Arbeitszeiten").Visible = True 'Worksheets dem User anzeigen
Worksheets("Hilfstabelle").Visible = True
Worksheets("persönlicher Kalender").Visible = True
Worksheets("Report").Visible = True
Worksheets("Arbeitszeiten").Unprotect
Worksheets("Hilfstabelle").Unprotect
Worksheets("persönlicher Kalender").Unprotect
Worksheets("Report").Unprotect
ActiveWorkbook.ChangeFileAccess xlReadWrite
text = MsgBox("Schreibschutz wurde aufgehoben!" & Chr(10) & "Beim nächsten öffnen der Datei wird er wieder gesetzt.")
Exit Sub
Else
' Blattschutz aufheben:
Paßwort_Eingabe.Hide
Worksheets("Arbeitszeiten").Visible = False 'Worksheets dem User anzeigen
Worksheets("Hilfstabelle").Visible = False
Worksheets("persönlicher Kalender").Visible = False
Worksheets("Report").Visible = False
Worksheets("Arbeitszeiten").Protect
Worksheets("Hilfstabelle").Protect
Worksheets("persönlicher Kalender").Protect
Worksheets("Report").Protect
text = MsgBox("Schreibschutz wurde nicht aufgehoben!" & Chr(10) & "Sie haben nur Leserechte")
Exit Sub
End If
End Sub
Anzeige