29. März 2024, 03:28
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0403
  E03: Speichern & Schutzaufheben
 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
[ VB-/VBA-Forum | Archiv 0403 | Archiv-Übersicht ]
 Antworten
E03: Speichern & Schutzaufheben - Kekz 11. Januar 2008 um 19:18:57
Re: Speichern & Schutzaufheben - r.mueller@sz-online.de 11. Januar 2008 um 20:36:31
Re: Speichern & Schutzaufheben - Kekz 11. Januar 2008 um 21:07:33
Re: Speichern & Schutzaufheben - r.mueller@sz-online.de 11. Januar 2008 um 22:06:30
Re: Speichern & Schutzaufheben - Kekz 11. Januar 2008 um 22:20:56
Re: Speichern & Schutzaufheben - r.mueller@sz-online.de 11. Januar 2008 um 23:19:01

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum