Genau das unter Punkt 3. beschriebene soll nicht stattfinden.......... sondern nur das sichern wenn eine Eingabe in einer Zelle stattgefunden hat... Verfasst am: 12. Aug 2004, 14:31 Rufname: Andreas wie wre es dann mit statt selection change mit dem change ereignis? Code: Private Sub Worksheet_Change(ByVal Target As Range) Call deinMakro Solange nur selektiert wird, wird das change ja nicht ausgelst Verfasst am: 17. Aug 2004, 08:32 Rufname: funktioniert auch nicht. Habe das ganze in das Tabellenblatt "offene" kopiert und es tut sich nichts.... Das Makro auf das zugegriffen wird speichert die Datei einmal auf dem Laufwerk C: und einmal auf dem Laufwer D:. Gibt es vielleicht einen anderen Weg das ganze so zu gestalten dass das Makro dann ausgefhrt wird wenn eine nderung stattfindet? Wie werden alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe automatisch geschützt?. Habe den Code mal beigefgt: Sub sicherungsspeichern() ' sicherungsspeichern Makro ' Makro am 2001-11-09 von Florian Michel aufgezeichnet ChDir "C:\" FileName:="C:\", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=True ChDir "D:\Daten" FileName:="D:\Daten\", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _, CreateBackup:=True End Sub
Diese Makro fragt nach, ob die Arbeitsmappe gespeichert werden soll. Damit kann beim Beenden einer Arbeitsmappe per VBA entschieden werden, welche Funktionen ausgeführt werden sollen. Folgende Status können abgefragt werden: Ja, Nein und Abbruch. Bei " Ja " wird die Arbeitsmappe gespeichert und geschlossen Bei " Nein ' kann ein entsprechender Code ausgeführt werden, der ins Makro "Nein" geschrieben werden muss. Excel vba makro beim schließen ausführen mac. Bei " Abbruch " kann ebenso ein beliebiger Code ausgeführt werden, der ins Makro "Abbruch" geschrieben wird. Sub Arbeitsmappe_schliessen() Dim Antwort% Dim Frage As String Msg = "Wollen Sie die Arbeitsmappe schließen? " Select Case MsgBox(Msg, vbInformation + vbYesNoCancel) Case vbYes: savechanges:=True 'Schließen und Speichern bei Ja Case vbNo: Call Nein 'Makroaufruf bei Nein Case vbCancel: Call Abbruch 'Makroaufruf bei Abbrechen End Select End Sub Code für Schaltfläche "Nein" Public Sub Nein() 'Dieser Code wird ausgeführt, wenn 'Nein' gedrückt wird MsgBox "Es wurde Nein gedrückt" {/codecitation} Code für Schalfläche "Abbruch" {codecitation} Public Sub Abbruch() 'Dieser Code wird ausgeführt, wenn 'Abbruch' gedrückt wird MsgBox "Es wurde Abbruch gedrückt" Drucken E-Mail
Activate () Sheets("Offene") Shift:=xlUp End If Function_is_running = False Exit Sub ErrorHandler: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As) ' Verfasst am: 12. Aug 2004, 11:04 Rufname: Andreas wie wre es mit nem call in der change? Ich rufe hier das makro test auf - du eben dann entsprechend das von dir gewnschte. Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call test Verfasst am: 12. Aug 2004, 12:04 Rufname: funktioniert leider nicht richtig, ich habe den von Dir geposteten Code ans Ende der "Tabelle1 (Offene)" gestellt (unter Allgemein). Jetzt ist es so, das Excel sobald ich in der Tabelle eine andere Zelle anklicke das Makro "Aktualisieren" ausfhren will.....??? Hab ich da was falsch gemacht? Verfasst am: 12. Excel vba makro beim schließen ausführen de. Aug 2004, 12:20 Rufname: Andreas hallo, welches ereignis in der Tabelle soll das makro denn auslsen? Sieh dir mal die Mglichkeiten an, in dem du im Projektexplorer die tabelle anklickst - dann das eine dropdown von allgemein auf worksheet ndern.
Verfasst am: 02. Jun 2010, 13:31 Rufname: ber AutoOpen einfach den Passwortschutz aufheben. ActiveDocument. Unprotect Verfasst am: 02. Jun 2010, 13:42 Rufname: Naja das wollte ich ja eigentlich nicht. Der User ffnet das Word-Dokument ja ber Access und per VBA wird der Schutz aufgehoben, damit Access Textmarken in das Word-Dokument schreiben kann. Dann aktiviere ich den Schutz mit dem passwort wieder. Der User soll ja in dem Dokument ja nichts ndern. Er soll es sich ja nur angucken knnen. Wenn ich jetzt mit AutoOpen den Schutz deaktiviere, kann der User ja nderungen an dem Dokument vornhemen, was er ja nicht darf. Verfasst am: 02. Jun 2010, 13:47 Rufname: dann setz doch das Unprotect als erste Befehlszeile in das Close-Ereignis. Bitte um Mitteilung ob es funktioniert. Verfasst am: 02. Makro ausführen bei Schließen oder Speichern. Jun 2010, 13:51 Rufname: If Type <> wdNoProtection Then End If Du kannst vorher auch den ProtectionType abfragen. Verfasst am: 02. Jun 2010, 14:00 Rufname: Super, ich habe das If... davor gesetzt und es funktioniert Aber weil ich ja dadurch immer was ndere an dem Dokument, fragt er mich immer ob ich das Dokument speichern mchte.
Workbook_Open() Workbook_Open Private Sub Workbook_Open () 'Code End Sub Auto_Open() Auto_open Sub Auto_open () Schließen einer Arbeitsmappe Vor dem Schließen wird das BeforeClose Event ausgelöst und auch das App_WorkbookBeforeClose Event. Beide müssen unter "DieseArbeitsmappe" gespeichert werden. Makro Schließen. Der Unterschied dabei ist, dass App_WorkbookBeforeClose beim Schließen jedes Workbooks anschlägt, obwohl es unter "DieseArbeitsmappe" gespeichert wurde. Das hängt damit zusammen, dass App auf die gesamte Application gesetzt ist. Dies ist dann beispielsweise sinnvoll, wenn es in einem Add-In verwendet wird und so bei jedem Schließen einer Excel-Datei ausgelöst wird. Durch "if = "ABC" then" kann man jedoch das Auslösen auf ein bestimmtes Workbook einschränken. Workbook_BeforeClose(Cancel as Boolean) Workbook_BeforeClose Private Sub Workbook_BeforeClose ( Cancel As Boolean) App_WorkbookBeforeClose(ByVal Wb as Worbook, Cancel as Boolean) App_WorkbookBeforeClose Dim WithEvents App As Application Private Sub Workbook_Open () Set App = Application Private Sub App_WorkbookBeforeClose ( ByVal Wb As Workbook, _ Cancel As Boolean) Aktivieren eines Tabellenblattes Beim Schließen eines Tabellenblattes können 2 verschiedene Prozeduren ausgeführt werden.
nun findest im dropdown rechts daneben eine Auswahlmglichkeit von ereignissen bei denen dann dein Makro ausgefhrt werden kann. Verfasst am: 12. Aug 2004, 12:37 Rufname: Hy ae, also, das Makro soll ausgelst werden wenn ich die Datei schliee, aber nur wenn in einer Zelle eine nderung statgefunden hat, nicht jedoch wenn ich ein andres Tabellenblatt anklicke, ich eine andere Zelle anklicke, usw.. Ich habe das mit dem dropdownmen mal ausprobiert, sind ein paar gute Sachen dabei (wie mit dem Doppelklick), aber nicht was hierzu passt. Verfasst am: 12. Excel vba makro beim schließen ausführen pdf. Aug 2004, 12:43 Rufname: Andreas ich denke damit wren wir wieder beim Anfang, oder? Code: Private Sub Workbook_BeforeClose(Cancel As Boolean) call dein_Makro das msste dann doch passen, oder? Verfasst am: 12. Aug 2004, 13:56 Rufname: Hy, nein leider nicht...... In der Praxis sieht das so aus: 1. User ffnet die Datei 2. User klickt mit der Maus irgendeine andere Zelle an (oder ein anderes Blatt) 3. Aufgrund dessen speichert das Makro die Datei, obwohl keine wirkliche Eingabe in eine Zelle stattgefunden hat....