Office: Makros per VBA deaktivieren

Heute bin ich aber wissbegierig:

Wie kann ich denn mittels VBA Befehl alle Makros einer Arbeitsmappe deaktivieren? Wichtig ist nur, dass sie beim Öffnen der Arbeitsmappe noch funktionieren.


Gruß
Mattin

:)

 

Hi,
wo kann ich die Makros überhaupt deaktivieren ? Im Menü Extras - Makro - Sicherheit hat keinen Einfluss Markros die selbst erstellt wurden. Falls es ein Option in einem Menü ist: Schon mal an SendKeys gedacht ?
mfg hans

 

Hallo Mattin

Definiere eine Variable im Modul mit PUblic BoZustand as Booelean und setzte diese Variable beim öffnen auf True. Jetzt in jedem Makro

If BoZustand =True then Exit Sub




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3

 

Hallo Hajo!

Was ist Public BoZustand?


Gruß
Mattin

 

Hallo Mattin

oh Fehler

Dim BoZustand as Boolean

Gruß Hajo

 

Hallo Hajo!

Es will einfach nicht funktionieren. Habe jetzt wie folgendes Modul erstellt:



Public Sub Zustand()

Dim BoZustand As Boolean

Frage = MsgBox("Möchten Sie einen neuen Monat eingeben?", vbYesNo, "Hinweis")

If Frage = vbYes Then
BoZustand = True
ElseIf Frage = vbNo Then
BoZustand = False
End If

End Sub




Und in meinem Makro steht wie folgt:


Private Sub Worksheet_Activate()

Dim BoZustand As Boolean

If BoZustand = False Then Exit Sub

MsgBox ("funktioniert")


End Sub






Aber die Messagebox will einfach nicht erscheinen, egal ob ich auf Ja oder Nein klicke...

 

Hallo Mattin

lese noch mal mein Beitrag. Du definierst die Variable in jedem Makro neu

Gruß Hajo

 

Das hatte ich eben vergessen:


Auch wenn ich die variable nicht neu definiere und nur

If BoZustand = False Then Exit Sub

schreibe, funktioniert es nicht.

 

Hallo Mattin

nicht im Makro

Gruß Hajo

Sehr wichtig

Das Forum ist auf der Seite Besucher-Award in der Rubrik Boards gelistet und nominiert.
Es liegt nun an dir ob unser Forum gut genug für die Nummer 1 ist.

Bitte besuche die Abstimmseite und vote für uns.
Man kann alle 3 Stunden neu abstimmen.
Wir danken Euch sehr herzlich

 

Also irgendwie scheine ich nicht zu verstehen, was ein Modul und was ein Makro ist:

"Dim BoZustand As Boolean" steht in meinem Modul "Public Sub Zustand()"

und

"If BoZustand = False Then Exit Sub" steht in meinem Makro "Private Sub Worksheet_Activate()"

 

Hallo Mattin


"Dim BoZustand As Boolean" ist eine Variablen Definition

Public Sub Zustand()" ist ein Makro

In einen Modul Direkt hinter Option Explicit also in der 2 Zeile

Die Dimensierung der Variablen.

Dim Bedeutet endsprechen wo es steht

hinter Sub ... nur für dieses Makro
im Modul also in keinem Makro Definition für alle Makros in dem Modul

Public ... Definition für die gesamte Arbeitsmappe allso alle Module, alle Tabellen, DieseArbeitsmappe, alle Klassemodule

Gruß Hajo

 

Hallo Hajo!

Ich glaube 50% habe ich jetzt verstanden. In meinem Modul steht jetzt wie folgt:

Option Explicit
Dim BoZustand As Boolean
-------------------------------------------------------------------------------------
Sub Zustand()

Dim Frage

Frage = MsgBox("Möchten Sie einen neuen Monat eingeben?", vbYesNo, "Hinweis")

If Frage = vbYes Then
BoZustand = True
ElseIf Frage = vbNo Then
BoZustand = False
End If

End Sub



Aber die anderen Makros befinden sich hinter den einzelnen Tabellenblättern, da diese durch Aktivierung der Tabellenblätter gestartet werden sollen. Wie mache ich das jetzt mit der "Public Dimensionierung"?


Gruß
Mattin

 

Hallo Mattin

Public Variablen werden nur im Modul definiert.

in den Tabelle wird also nicht mehr Definiert sonder nur noch der Zustand abgefragt.

Gruß Hajo

 

Hall Hajo!

Aber das ist ja genau das, was ich brauche, da der Rest meiner Makros sich hinter den Tabellenblättern verbirgt. Wie mache ich das mit dem Public?

Im Moment steht da:
Option Explicit
Dim BoZustand As Boolean
--------------------------------------------------------------

Aber das ist ja nicht public, oder?

 

Hallo Mattin

ich hatte schon paar mal geschrieben das Du Public nehmen sollst, warum schreibst Du immer Dim???

Ersetze Dim durch Public.

GRuß Hajo