Password-Fehler
05.05.2008 13:28:00
Florian
habe ein Problem:
Ich habe ein xls-Workbook, in dem ein Sheet automatisch beim Schliessen automatisch geschützt wird. Diese Datei ist vielen Personen zugänglich. Problem ist, dass ich nun den Blattschutz nicht mehr aufheben kann, dh. es scheint, dass das Passwort geändert wurde. Meine beiden Fragen nun:
1) Ist es überhaupt möglich, das Passwort wie hier zu ändern, wenn als Before-Close-Event ein von mir festgelegtes Passwort bestimmt wird?
2) Liegt evt. ein Fehler in der Makro vor?
Danke!
Gruss Florian
'liegt in "This Workbook"
Option Explicit
Private Sub Workbook_Open()
' ThisWorkbook.Worksheets("Lager").Unprotect ("order")
ThisWorkbook.Worksheets("Lager").Range("A1") = DaZeit + CDate("00:00:01")
Zeitmakro ' Makro zur Prü _
fung starten
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
ThisWorkbook.Worksheets("Lager").Protect ("order")
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.Worksheets("Lager").Range("A1") = DaZeit + CDate("00:00:01")
End Sub
'liegt in Modul1:
Option Explicit
Public DaEt As Date ' nächste Starzeit des Makros
Public Const DaZeit As Date = "00:02:59" ' Zeitabstand prüfen
Sub Zeitmakro()
ThisWorkbook.Worksheets("Lager").Range("A1") = ThisWorkbook.Worksheets("Lager").Range("A1") - CDate("00:00:01")
If ThisWorkbook.Worksheets("Lager").Range("A1") 0 Then
DaEt = Now + TimeValue("00:00:01")
Application.OnTime DaEt, "Zeitmakro"
Else
ThisWorkbook.Close True 'speichern
End If
End Sub