Wie Excel 4.0 Makros löschen?

Computer: Software & Programmierung Office Software
#1

Hallo,

ich habe Excel 2003 V.11 SP3 und Windows XP installiert.
Beim Öffnen einer Excel-Datei erhalte ich immer diese Warnmeldung:

„Diese Arbeitsmappe enthält eine oder mehrere MS Excel 4.0 Makros. Diese Makros könnten Viren oder anderen beschädigten Code enthalten. Öffnen Sie diese Arbeitsmappe nur dann, wenn Sie die Quelle als vertrauenswürdig beurteilen.
Möchten Sie diese Makros aktivieren? JA / NEIN ?“

Wie kann ich diese Meldung dauerhaft abstellen?

Was ich schon erfolglos gemacht habe:

  • Extras/Makros, Makro geöffnet, dort hat es keinerlei Makros!
  • Extras/Makros VB-Editor geöffnet, dort hat es keine Module!,
    nur 10 Tabellen, 2 Diagramme und eine Arbeitsmappe.
  • EUROTOOL.XLA habe ich im VB-Editor nicht öffnen können, da
    passwortgeschützt
  • Extras/Add-Ins den Haken bei Eurowährungs-Tool entfernt

alles ohne Erfolg, wenn ich die Excel-Datei öffne, kommt immer wieder diese Meldung.

Wer weiß Abhilfe?

Gruß Finus
PS: natürlich könnte ich diese eine Datei wegschmeißen, dann würde ich aber dumm sterben…

#2

„Diese Arbeitsmappe enthält eine oder mehrere MS Excel 4.0
Makros. Diese Makros könnten Viren oder anderen beschädigten
Code enthalten. Öffnen Sie diese Arbeitsmappe nur dann, wenn
Sie die Quelle als vertrauenswürdig beurteilen.
Möchten Sie diese Makros aktivieren? JA / NEIN ?“

Wie kann ich diese Meldung dauerhaft
abstellen?

Hi Finus,

Schau mal unter Einfügen–Namen… ob da Excel4Funktionen benutzt wurden.

Vorher dieses Makro laufen lassen.

Sub tt()
Dim N
For Each N In ActiveWorkbook.Names
 N.Visible = True
Next N
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

Danke, Guter Tipp!!!

Ja, da hat es einen Namen „Hatformel“ mit einer Funktion (von Dir?) drin:

=ZELLE.ZUORDNEN(48;INDIREKT(„zs“;FALSCH))

mit dieser Funktion formatiere ich Berechnungen und Werte mit unterschiedlichen Farben.

Kann/muss ich die auf eine höhere Excel-Vers. umstellen? Wie?

Gruß Finus

Hi Finus,

Schau mal unter Einfügen–Namen… ob da Excel4Funktionen
benutzt wurden.

Vorher dieses Makro laufen lassen.

Sub tt()
Dim N
For Each N In ActiveWorkbook.Names
N.Visible = True
Next N
End Sub

Gruß
Reinhard

#4

Ja, da hat es einen Namen „Hatformel“ mit einer Funktion (von
Dir?) drin:

=ZELLE.ZUORDNEN(48;INDIREKT(„zs“;FALSCH))

mit dieser Funktion formatiere ich Berechnungen und Werte mit
unterschiedlichen Farben.

Hallo Finus,

probier dies mal.

  1. wenn du eine Personl.xls hast weiter mit Schritt 2) Ansonsten zeichne dir ein Makro auf, im Aufzeichnungsfenster wähhlst du aus Speichern in persönlicher Arbeitsmappe, dann kopierst du A1 nach B1 und beendest die Makroaufzeichnung. Nun wurde eine personl.xls erstellt. Den aufgezeichneten Code kannste löschen im Editor.

  2. Laß diese Prozedur laufen, vorher im Code Deinemappe.xls mit dem Namen deiner Mappe ersetzen:

    Sub NameErstellen()
    Workbooks(„personl.xls“).Names.Add Name:=„Hatformel“, RefersToR1C1:= _
    „=GET.CELL(48,INDIRECT(“„Deinemappe.xls!zs“",FALSE))"
    End Sub

  3. In der Mappe vergibst du den Namen
    Hatformel
    für =PERSONL.XLS!Hatformel

  4. Jetzt kannst du in bedingter Formatierung diese Formel benutzen:
    =Hatformel=WAHR
    und eine Zellfarbe dafür vergeben.

Bei den Namen kannst du auch andere, kürzere nehmen, Excel wird dir schon sagen wenn sie nicht erlaubt sind wie A1, B1, S, usw.

Gruß
Reinhard

#5

Hallo Reinhard,

habe alles so gemacht, wie von dir beschrieben.
Die blöde Meldung ist jetzt zwar weg, aber die bedingte Formatierung mit Hatformel funktioniert nicht, d.h. Zahlen und Formeln werden nicht unterschiedlich formatiert.

Gruß ratloser Finus
PS: Diese Lösung würde aber nur für diese eine Datei („Deinemappe.xls“) funktionieren, oder?

Hallo Finus,

probier dies mal.

  1. wenn du eine Personl.xls hast weiter mit Schritt 2)
    Ansonsten zeichne dir ein Makro auf, im Aufzeichnungsfenster
    wähhlst du aus Speichern in persönlicher Arbeitsmappe, dann
    kopierst du A1 nach B1 und beendest die Makroaufzeichnung. Nun
    wurde eine personl.xls erstellt. Den aufgezeichneten Code
    kannste löschen im Editor.

  2. Laß diese Prozedur laufen, vorher im Code Deinemappe.xls
    mit dem Namen deiner Mappe ersetzen:

Sub NameErstellen()
Workbooks(„personl.xls“).Names.Add Name:=„Hatformel“,
RefersToR1C1:= _
„=GET.CELL(48,INDIRECT(“„Deinemappe.xls!zs“",FALSE))"
End Sub

  1. In der Mappe vergibst du den Namen
    Hatformel
    für =PERSONL.XLS!Hatformel

  2. Jetzt kannst du in bedingter Formatierung diese Formel
    benutzen:
    =Hatformel=WAHR
    und eine Zellfarbe dafür vergeben.

Bei den Namen kannst du auch andere, kürzere nehmen, Excel
wird dir schon sagen wenn sie nicht erlaubt sind wie A1, B1,
S, usw.

Gruß
Reinhard

#6

Hallo Finus,

habe alles so gemacht, wie von dir beschrieben.
Die blöde Meldung ist jetzt zwar weg, aber die bedingte
Formatierung mit Hatformel funktioniert nicht, d.h. Zahlen und
Formeln werden nicht unterschiedlich formatiert.

ich hatte es bei mir, XL2000, getestet, da hat es funktioniert.

Manchmal ist Excel sehr sensibel in dem Punkt mal ist es wurscht, überprüfe mal alle Bezeichnungen auf exakte Gleichschreibung.
Gelegentlich ist HatFormel für Excel etwas völlig anderes als Hatformel, mal nicht.

Du kannst auch per FAQ:2861 deine personl.xls und eine Beispielmappe wo es nicht klappt hochladen, dann kann ich testen.

PS: Diese Lösung würde aber nur für diese eine Datei
(„Deinemappe.xls“) funktionieren, oder?

Ja. Du sagtest ja du hättest da nur eine Problemdatei. Und es sollte eine Lösung sein wo beim Öffnen dieser Datei keine Abfrage kommt.
Für jede vom Namen her bekannte Datei kann man da was in die Personl.xls schreiben.

PS: Excel4-Makros stammen von Excel 4.0, da gabs noch kein Vba, deshalb fandest du nix im VB-Editor, den es damals auch noch nicht gab.

Gruß
Reinhard

#7

güezi Finus

Ja, da hat es einen Namen „Hatformel“ mit einer Funktion (von
Dir?) drin:

=ZELLE.ZUORDNEN(48;INDIREKT(„zs“;FALSCH))

mit dieser Funktion formatiere ich Berechnungen und Werte mit
unterschiedlichen Farben.

Kann/muss ich die auf eine höhere Excel-Vers. umstellen? Wie?

Nein, das klappt nicht - sobald Du die Mappe weitergeben willst muss der Name in der Mappe definiert und verwendet werden.

Die dann ab bestimmten Versionen ausgegebene Meldung kannst Du nicht unterdrücken oder verhindern, das ist ein neues ‚Feature‘.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#8

Hallo Reinhard,

jetzt bin ich mal auf meinen Laptop gegangen, und da hat es funktioniert, als ich eine anonymisierte Version (Meinedatei.xls) zum Hochladen erstellen wollte.

Jetzt muss ich nur noch untersuchen, woran es liegt:

  • am Dateinamen mit oder ohne Bindestrich (Meine-datei.xls),
  • am PERSONL.XLS, das ja beim Laptop (Windows-Vista) woanders liegt als beim Tower (Windows-XP),
  • da ich die Datei (Meinedatei.xls) auf beiden Rechnern brauche, habe ich sie auf dem Tower abgelegt und öffne sie mir über WLAN auf dem Laptop zum Editieren/Lesen.
  • welche PERSONL.XLS wird auf dem jeweiligen Rechner werwendet? d.h. wird das über die EXCEL-Installation oder über die geöffnete Datei geregelt, welche PERSONL.XLS geöffnet/benutzt wird.

wie sagte Pink Floyd so schön: „Wish you were here“…

Gruß Finus

#9
  • welche PERSONL.XLS wird auf dem jeweiligen Rechner
    werwendet? d.h. wird das über die EXCEL-Installation oder über
    die geöffnete Datei geregelt, welche PERSONL.XLS
    geöffnet/benutzt wird.

Hallo Finus,

mit vernetzten PCs kenne ich mich nicht aus.

schreib doch in jede personl.xls zum Testen ins Modul „DieseArbeitsmappe“ diesen Code

Private Sub Workbook_Open()
MsgBox „Personl.xls laptop“
End Sub

Gruß
Reinhard

#10

Hallo Reinhard,

hat ein bisschen gedauert, aber jetzt habe ich es so gemacht, wie du es beschrieben hattest.

schreib doch in jede personl.xls zum Testen ins Modul
„DieseArbeitsmappe“ diesen Code

Private Sub Workbook_Open()
MsgBox „Personl.xls laptop“
End Sub

und zwar so:
auf dem Tower (mit Windows XP im UG):
Private Sub Workbook_Open()
MsgBox „Personl.xls tower“
End Sub

und auf dem Laptop (mit Windows Vista im 2. OG):
Private Sub Workbook_Open()
MsgBox „Personl.xls laptop“
End Sub

Wenn ich jetzt vom Tower-PC aus die Excel-Datei mit den bed.Formatierungen öffne, erscheint zwar die Meldung Personl.xls tower ,
wenn ich die gleiche Arbeitsmappe vom Laptop aus starte, erscheint dann zwar die die Meldung Personl.xls laptop ,

aber in beiden Fällen werden in der Arbeitsmappe die Formeln nicht richtig formatiert, laut der enthaltenen bed.Formatierung „Formel ist = Hatformel=WAHR“.

Was nun?

Finus