ActveWorkbook.Save

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Sub SchutzAufheben(Worksheets("Tabelle1")) Worksheets("Tabelle1").Range("A1").Value = "Hallo" Call Sub Schutz(Worksheets("Tabelle1")) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Peter,
es gibt irgendwie ein Problem (oder wurde bewusst so von den MS-Programmierern so gewollt, nur kann ich es zumindest nicht nachvollzien) bei der Verarbeitung der aufeinander folgenden Ereignisprozeduren.
Warum die SchutzAufheben abgearbeitet wird ohne Fehlermeldung, aber auch ohne den Schutz aufzuheben?
Mit folgenden Anpassungen kriegst du es in deinem Fall in den Griff:
1. Lagere alle Anweisungen in BeforeSave in eine eigene Public Sub in einem allgemeinen Modul aus.
2.Füge in BeforeSave die Call-Anweisung für die Prozedur ein.
3. in der KnopfSpeichern-Prozedur muss du die Ereignismakros deaktivieren und ebenfalls die BeforeSave-Prozedur einfügen, danach die Speichern-Anweisung, und die Reaktivierung der Ereignismakros.
Schaut dann etwa wie folgt aus. Damit sollte siích das Umschreiben deiner Prozeduren in Grenzen halten.
Gruß
Franz

Unter DieseArbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call BeforeSaveProcedure
End Sub
In einem allgemeinen Modul:
Public Const sPW As String = "test"
Public Sub SchutzAufheben(oSheet As Object)
ThisWorkbook.Unprotect sPW
oSheet.Unprotect sPW
End Sub
Public Sub Schutz(oSheet As Object)
oSheet.Protect sPW
ThisWorkbook.Protect sPW
End Sub
Public Sub BeforeSaveProcedure()
Call SchutzAufheben(Worksheets("Tabelle1"))
Worksheets("Tabelle1").Range("A1").Value = "Hallo " & Date & "  " & Time
Call Schutz(Worksheets("Tabelle1"))
End Sub
Sub KnopfSpeichern()
Application.EnableEvents = False
Call BeforeSaveProcedure
ThisWorkbook.Save
Application.EnableEvents = True
End Sub

Ich will hier keine Grundsatzduskussion vom Stapel lassen und ich entferne mich hier auch davon, das letzte Wort haben zu müssen....aber mich nervt es!!!
Ich bin Gelegenheitsprogrammierer, seit Jahren., meine aber trotzdem, gewisse Fähigkeiten zu besitzen. Allerdings sind meine Lösungen sicherlich nie perfekt oder gar die kürzesten. Wären sie es, bräuchte ich mich nie in einem solchen Forum zu melden.
Und ich bin mir nach deinen Aussagen auch nicht sicher, was du hier treibst. Mir kommt es so vor, als ob du sowas wie nen Schwanzlängenvergleich durchziehst...man entschuldige mir hier die Fäkalsprache. Schön, dass dich die Wege der anderen nicht interessieren. Aber das ist der Grund, wieso sich manche, womöglich die allermeisten hier melden: Sie kommen mit ihrem Weg nicht weiter!
Meinst du nicht, dass ich vorher diese VBA-Hilfe durchstöbert habe? Meinst du nicht, dass ich vorher das Forum durchsucht habe?
Es ist definitiv nicht möglich - meiner Meinung nach - hier eine Fertiglösung abzugreifen, weil jedes Projekt ein anderes ist und entsprechend abgestimmt ist. Oder meinst du, dass ich irgendwas in Zelle A1 schreibe? Oder denkst du, dass mein Quellcode nur 8 Zeilen umfasst?
Mich nerven solche Aussagen nur noch.....
Und, wenn ich deine Aussagen richtig verstehe, hängst du den ganzen Tag vor solchen Foren und versuchst "besser zu sein". Gut, jedem das seine. Eine wirkliche Hilfe bzw. ein toller Helfer bist du jedenfalls nicht.
Danke dennoch für den Hinweis! Vielleicht schreibe ich ja doch 200 Zeilen Quellcode um....
Und viel Spaß beim Antworten ;-)
Und, wenn noch jemand anderes eine Idee hat, wäre ich sehr dankbar!!

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread