Von |
Kekz |
eMail |
|
Am |
11. Januar 2008 um 19:18:57 |
Frage |
Hallo,
ich habe ein Problem:
Ich habe ein Sheet in Excel, in dem alle Zellen gesperrt sind und der Schutz aktiv ist. Auf dem Sheet ist ein Button, mit dem beim anklicken das Workbook gespeichert werden soll.
Folgender Code befindet sich in der Arbeitsmappe:Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.Unprotect Range("A1").Value = Date & " " & Time ActiveSheet.Protect End Sub Und folgender in Tabelle1:Private Sub CommandButton1_Click() ActiveWorkbook.Save End Sub Wenn ich jetzt die Excelfunktion Speichern (also die blaue Diskette) verwende, klappt alles. Wenn ich aber meinen Button anklicke, wird der Schutz nicht aufgehoben.
Warum ist das so? Und vorallem, wie kann ich das umgehen?
In meinem erstellten Programm ist der Code viel komplexer, aber an dem Beispiel zeigt sich mein Problem auch...
Ich hoffe jemand kann mir helfen.
mfg Oliver |
|