Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makroaktivierung erzwingen

Forumthread: Makroaktivierung erzwingen

Makroaktivierung erzwingen
28.11.2007 18:29:24
Konni
Hallo Freaks,
in meiner Mappe, die ohne Makros kein Ergebnis bringt, sind mehrere Menuepunkte deaktiviert.
Das Ganze funktioniert nur, wenn beim Start der Mappe die Makros auch aktiviert werden.
Wie kann man den Start der Mappe bei deaktivierten Makros verhindern? Geht vermutlich nicht, oder doch?
Ich will damit erreichen, dass im Besonderen der Menuepunkt "Extras" nicht aktiviert wird (wegen Passwort .....; Ihr wisst schon).
Die Antwort ahne ich schon, doch ein Versuch im Forum ist es wert!
Vielen Dank und viele Grüße: Konni

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makroaktivierung erzwingen
28.11.2007 18:35:25
mumpel
Hallo!
Das geht indirekt schon. Darüber wurde hier schon sehr oft diskutiert, siehe Archiv.
1. Möglichkeit: Datei per Exe öffnen (VB-Kenntnisse erforderlich).
2. Möglichkeit: Ein Dummyblatt einfügen. Beim Schließen der Arbeitsmappe werden alle Blätter versteckt (xlVeryHidden) bis auf das Dummyblatt und die Arbeitsmappe mit einem Passwort versehen. Beim Öffnen dann umgekehrt (Workbook_open). Sind die Makros deaktiviert, dann ist nur das Dummyblatt sichtbar.
Gruß, Rene

Anzeige
AW: Makroaktivierung erzwingen
28.11.2007 18:56:10
Konni
Hallo Rene,
über Extras kann ein .... den Blattschutz aufheben. Kann man dann nicht auch die Blätter wieder einblenden?
Gruß: Konni

AW: Makroaktivierung erzwingen
28.11.2007 19:02:00
mumpel
Wenn die Blätter mit xlVeryHidden ausgeblendet sind und die Arbeitsmappe mit Passwort geschütz wurde, ist ein Einblendene über das Menü nicht möglich, da ja die Blätter versteck sind und nicht ausgeblendet (False). Wichtig ist allerdings das Arbeitsmappenkennwort. Anderenfalls lassen sich die Blätter mit externen Makros wieder sichtbar machen, was durch ein Passwort verhindert wird.

Anzeige
AW: Makroaktivierung erzwingen
28.11.2007 19:22:18
Konni
Hallo Rene,
nachstehend mein Code beim Mappenstart:
Option Explicit

Private Sub workbook_open()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="xxx"
Worksheets("A2").Visible = True
'Schaltflächen ausblenden
Worksheets("A2").Activate
ActiveSheet.Shapes("Button 33").Visible = True
ActiveSheet.Shapes("Button 34").Visible = False
ActiveSheet.Shapes("Button 36").Visible = False
Worksheets("A2").Protect Password:="xxx"
Worksheets("W1-W2").Protect Password:="xxx"
Worksheets("W3-W4").Protect Password:="xxx"
Worksheets("W5-W6").Protect Password:="xxx"
Worksheets("W7-W8").Protect Password:="xxx"
Worksheets("W9").Protect Password:="xxx"
Worksheets("E1 E2").Protect Password:="xxx"
Worksheets("A1").Protect Password:="xxx"
Worksheets("W6,W9").Protect Password:="xxx"
Worksheets("Baulstg.").Protect Password:="xxx"
Worksheets("LB Diagramm").Protect Password:="xxx"
Select Case Environ("UserName")
Case ("Username")
Worksheets("A2").Visible = True
'ActiveSheet.Protect Password:="xxx"
'xlVeryHidden
Case Else
Worksheets("A1").Visible = False
Worksheets("W6,W9").Visible = False
Worksheets("Baulstg.").Visible = False
Worksheets("LB Diagramm").Visible = False
End Select
ActiveWorkbook.Protect Password:="xxx"
Worksheets("A2").Select
ActiveSheet.Protect Password:="xxx"
Application.ScreenUpdating = True
End Sub


Ich kann kein VBA. Alles habe ich mit Hilfe von Forumsmitgliedern und teilweise Makrorekorder zusammengebastelt.
Mit einem zusätzlichen Tabellenblatt bekomme ich hin. Aber wie setze ich "xlveryHidden" ein?
Vielen Dank und Gruß: Konni

Anzeige
AW: Brauche zum Testen ein paar Tage Zeit
28.11.2007 19:56:20
Konni
Hallo Hajo,
nun treffen wir uns schon wieder.
Deine Lösungen sind wirklich toll, aber ich kann sie nicht (fehlende VBA-Kenntnisse) implementieren. Zu komplex für eine VBA-Niete wie mich.
Ich werde in den nächsten Tagen mal experimentieren und melde mich dann noch einmal.
Dank und Gruß: Konni

Anzeige
AW: Makroaktivierung erzwingen
28.11.2007 19:35:00
mumpel
Zum Beispiel
Beim Schließen der Arbeitsmappe (in DieseArbeitsmappe). Die Makros musst Du entsprechen anpassen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Unprotect "DeinKennwort" 'Kennwort in Anführungszeichen
With ThisWorkbook
.Sheets("Dummy").Visible = True
.Sheets("Tabelle1").Visible = xlVeryHidden
.Sheets("Tabelle2").Visible = xlVeryHidden
End With
ThisWorkbook.Protect "DeinKennwort"
ActiveWorkbook.Save
End Sub


Beim Öffnen


Private Sub Workbook_Open()
ThisWorkbook.Unprotect "DeinKennwort" 'Kennwort in Anführungszeichen
With ThisWorkbook
.Sheets("Tabelle1").Visible = True
.Sheets("Tabelle2").Visible = True
.Sheets("Dummy").Visible = False
End With
ThisWorkbook.Protect "DeinKennwort"
End Sub


Anzeige
Nachtrag
28.11.2007 19:36:38
mumpel
Da war einer schneller ;)

AW: Kann erst später testen.
28.11.2007 20:05:00
Konni
Hallo Rene,
vielen, vielen Dank für Deine Unterstützung.
Ich kann Deinen Code jetzt nicht einbauen (sieht aber nachvollziehbar aus!), da ich weg muss. Melde mich bei Dir über's Forum, wenn es geklappt hat! Danke!
Viele Grüße: Konni

Anzeige
AW: Makroaktivierung erzwingen
28.11.2007 18:35:00
Jan
Hi,
öffne die Mappe extern mittels VBS, Exe, Bat.
mfg Jan

AW: Makroaktivierung erzwingen
28.11.2007 18:57:41
Konni
Hallo Jan,
dann kann keiner die Mappe öffnen, da man dazu Administratorenrechte braucht.
Gruß: Konni

AW: Makroaktivierung erzwingen
28.11.2007 19:01:26
Jan
Hi,
solch wichtigen Details gehören in die Frage, dann kann man sich gleich
die Antwort sparen.
mfg Jan

Anzeige
AW: Makroaktivierung erzwingen
28.11.2007 19:11:00
Konni
Hallo Jan,
siehe Antwort von "Mumpel". Ich habe nicht an "EXE" & Co gedacht. Kannst Du mir nochmal verzeihen?
Gruß: Konni

Klappt!! - Tausend Dank Rene und Hajo o.T.
29.11.2007 19:31:34
Konni
.

Forumthreads zu verwandten Themen

Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Anzeige
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Makro funktioniert nicht
Diegel,

Hallo,
ich bin schon fast am verzweifeln.
Ein Makro funktioniert in der einen Datei und in der anderen Datei nicht. Obwohl ich genau dasselbe hinein kopiert habe.
Woran kann es liegen?
Viele Grüße von der Nordsee
Peter
12.03.2009 17:20:12
Thread-ID: 1059586
3 Beiträge
Anzeige
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Anzeige
Makro funktioniert nicht
mike49

Hallo,
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E8:E38")) Then Cancel = True If Target = "" Then Target = "9:15" Else Target = "...
29.03.2009 11:08:37
Thread-ID: 1065018
5 Beiträge
Makro aus Excel 2003 funktioniert nicht in Ex 2007
Lene

Hallo zusammen,
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider dive...
07.04.2009 19:27:56
Thread-ID: 1067511
9 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Makro Daten übertrag funktioniert nicht
Chris

Hallo an alle Sonntagsfrühaufsteher,
ich habe ein Problem mit einem Makro zum Drucken und komme einfach nicht weiter.
Folgender Sachverhalt:
Ich habe eine Tabelle mit Daten für Überseecontainer. Kommt ein Container im Depot an oder wird abgeholt gibt es einen sogenannten "Inter Chan...
06.06.2010 09:32:50
Thread-ID: 1160481
23 Beiträge
aufgenommenes Makro funktioniert nicht
Isolde

Hallo Leute,
ich weis mir echt nicht mehr zu helfen und bräuchte DRINGEND ein paar Tipps!
Ich habe eine Tabelle mit vielen Spalten. 3 davon sollen aufsteigend sortiert werden. Wichtig ist: dass natürlich die restlichen Spalten dann Zeilenweise mit sortiert werden, da die Daten Zeile fü...
21.07.2010 10:36:23
Thread-ID: 1168042
23 Beiträge
aufgenommenes Makro funktioniert nicht
Isolde

Hallo Leute,
ich weis mir echt nicht mehr zu helfen und bräuchte DRINGEND ein paar Tipps!
Ich habe eine Tabelle mit vielen Spalten. 3 davon sollen aufsteigend sortiert werden. Wichtig ist: dass natürlich die restlichen Spalten dann Zeilenweise mit sortiert werden, da die Daten Zeile fü...
21.07.2010 11:27:46
Thread-ID: 1168064
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Makroaktivierung erzwingen in Excel

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. DieseArbeitsmappe auswählen: Im Projekt-Explorer wählst du "DieseArbeitsmappe" aus.

  3. Code einfügen: Füge den folgenden Code in das Fenster ein:

    Private Sub Workbook_Open()
    ThisWorkbook.Unprotect "DeinKennwort" 'Kennwort einfügen
    With ThisWorkbook
        .Sheets("Dummy").Visible = False
        .Sheets("Tabelle1").Visible = True
        .Sheets("Tabelle2").Visible = True
    End With
    ThisWorkbook.Protect "DeinKennwort"
End Sub

  4. Blätter schützen: Achte darauf, dass du die Blätter entsprechend schützt, um unbefugtes Einblenden zu verhindern.

  5. Makros aktivieren: Stelle sicher, dass die Makros aktiviert sind, wenn du die Datei öffnest.

Häufige Fehler und Lösungen

  • Excel-Makros lassen sich nicht aktivieren: Überprüfe die Einstellungen unter Datei > Optionen > Trust Center > Einstellungen für das Trust Center. Stelle sicher, dass die Makros aktiviert sind.

  • Excel-Makro aktivieren funktioniert nicht: Möglicherweise ist die Datei im falschen Format gespeichert. Speichere sie als .xlsm, um Makros zu ermöglichen.

  • Excel-Makros deaktiviert obwohl aktiviert: Überprüfe, ob das Dokument möglicherweise in einem geschützten Modus geöffnet wurde.

Alternative Methoden

  • Datei extern öffnen: Du kannst die Excel-Datei auch über eine VBS-Datei oder ein Batch-Skript öffnen, um die Makroaktivierung zu erzwingen. Hier ein Beispiel für eine VBS-Datei:

    Set xl = CreateObject("Excel.Application")
xl.Visible = True
xl.Workbooks.Open "Pfad\zur\deiner\Datei.xlsm"

  • Dummy-Blatt verwenden: Ein Dummy-Blatt kann hinzugefügt werden, das standardmäßig sichtbar ist. Wenn die Makros deaktiviert sind, sieht der Benutzer nur dieses Blatt.

Praktische Beispiele

Hier ist ein Beispiel für den Code, den du in "DieseArbeitsmappe" einfügen kannst, um die Sichtbarkeit der Blätter zu steuern:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Unprotect "DeinKennwort"
    With ThisWorkbook
        .Sheets("Tabelle1").Visible = xlVeryHidden
        .Sheets("Tabelle2").Visible = xlVeryHidden
    End With
    ThisWorkbook.Protect "DeinKennwort"
    ActiveWorkbook.Save
End Sub

Diese Methode sorgt dafür, dass die Blätter beim Schließen der Mappe versteckt werden.

Tipps für Profis

  • Makros dauerhaft aktivieren: Um Makros dauerhaft zu aktivieren, kannst du die Arbeitsmappe in einem vertrauenswürdigen Speicherort speichern.

  • Eingabeaufforderungen minimieren: Verwende Application.DisplayAlerts = False im Code, um Eingabeaufforderungen während des Makroablaufs zu minimieren.

  • Debugging: Nutze Debugging-Tools im VBA-Editor, um Fehler im Code schnell zu identifizieren und zu beheben.

FAQ: Häufige Fragen

1. Warum kann ich meine Excel-Makros nicht aktivieren? Stelle sicher, dass deine Excel-Einstellungen die Ausführung von Makros zulassen. Überprüfe die Trust Center-Einstellungen.

2. Was ist der Unterschied zwischen "xlHidden" und "xlVeryHidden"? xlHidden versteckt das Blatt, kann jedoch über die Benutzeroberfläche wieder sichtbar gemacht werden. xlVeryHidden macht das Blatt unsichtbar, selbst wenn der Benutzer die Blätter aufruft.

3. Wie kann ich Makros deaktivieren, obwohl sie aktiviert sind? Überprüfe, ob deine Sicherheitsstufe für Makros auf "Alle Makros deaktivieren" gesetzt ist und ändere sie gegebenenfalls.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige