Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Makros in der Liste inaktiv setzen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ InputBox
Bild

Betrifft: Makros in der Liste inaktiv setzen?
von: Korl

Geschrieben am: 14.03.2005 21:00:29
Hallo allerseits,
wie kann ich die Ausführung der Makros, die über "Menü/Extra/Makro/Makros" angezeigt werden, unterdrücken?
Ich habe dort noch Makros stehen, die ich individuell benutze und vom Anwender nicht ausgeführt werden dürfen.
Der Anwender darf nur über Steuerelemente an die Makros gelangen.
In der Recherche konnte ich bis jetzt noch nichts finden.
Ich habe schon Blattschutz, Arbeitsmappenschutz und den Codeschutz aktiviert und trotzdem kann ich die Makros aus der Liste ausführen!
Kann mir da jemand einen Tipp geben?
Gruß Korl
Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: Ramses
Geschrieben am: 14.03.2005 21:06:08
Hallo
dazu sind Makros halt da :-)
Bau doch in die speziellen Makros die nur für Dich sind eine Passwortabfrage.
Gruss Rainer
Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: Korl
Geschrieben am: 14.03.2005 21:16:28
Hallo Rainer,
danke für Deinen Tipp, da aber VBA im speziellen noch immer eine Hürde für mich ist, muß ich hierfür aber noch edliche male probieren, probieren...
Kannst Du mir vielleicht einen Ansatz dafür geben?
Gruß Korl
Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: Ramses

Geschrieben am: 14.03.2005 21:22:57
Hallo
mal ein Beispiel

Sub Dein_Makro()
Dim pw As String
pw = Inputbox("Bitte Passwort eingeben","Passwort","")
If pw <> "DeinPasswort" Then Exit Sub
'Hier kommt dein restliches Makro
End Sub

Gruss Rainer
Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: BigWoelfi

Geschrieben am: 14.03.2005 21:18:12
Frag am Anfang des Makros ab, wer als Benutzer Environ("username") angemeldet ist und akzeptiere nur Dich.
Alle anderen bedienst Du mit einer höflichen Verweigerungsmeldung und verlässt mit "Exit Sub" Dein Makro.
Mit Passwort würde ich das eher nicht machen, weil Du das ja im Makro hinterlegen musst. Spielt da jemand mit so einem Passwortknacker rum, nützt Dir ein solcher Schutz gar nichts.
Gruß, Wolfgang
Gruß, Wolfgang
Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: Korl
Geschrieben am: 14.03.2005 21:27:53
Hallo Wolfgang,
danke für Deinen Hinweis. Meine Excelmappe habe ich nur für meine Sippe erstellt, mache das ganze nur aus Spaß an der Freude.
Es soll nur vor neugierige Kinderhände schützen!
Gruß Korl
Bild

Betrifft: ...FindControls(ID:=186).Item(c).Enabled = False
von: ransi

Geschrieben am: 14.03.2005 21:23:16
hallo korl
hilft dir das weiter?
disabled den Schalter "Makros"
Public 

Sub test()
Dim c As Integer
For c = 1 To Application.CommandBars.FindControls(ID:=186).Count
Application.CommandBars.FindControls(ID:=186).Item(c).Enabled = False
Next
End Sub

ransi
Bild

Betrifft: ... und "Alt"+"F8" :-))
von: Ramses
Geschrieben am: 14.03.2005 21:25:57
Hallo ransi
ich würde ihm aber auch die Auflösung mitgeben.
Siehe VBA-Level :-)
Gruss Rainer
Bild

Betrifft: ups, auflösung, sorry !! here it is
von: ransi

Geschrieben am: 14.03.2005 21:32:50
hallo 

Sub zurueck()
Dim c As Integer
For c = 1 To Application.CommandBars.FindControls(ID:=186).Count
Application.CommandBars.FindControls(ID:=186).Item(c).Enabled = true
Next
End Sub

gegenteil von false ist true oder <>false. in diesem Fall true.
die inputbox ist hier wahrscheilich ebenso wie environ("username") die bessere alternative.
ransi
Bild

Betrifft: AW: ups, auflösung, sorry !! here it is
von: Korl

Geschrieben am: 14.03.2005 21:58:58
Hallo Rainer,
Danke für Deine Code, er funktioniert, nur wenn man mir über die Schulter schaut, ist das Passwort verbrannt, da ja der Klarname gezeigt wird. Lässt es sich vieleicht noch verbessern, indem bei der Eingabe nur Sternchen angezeigt werden? Daran interessiert wäre ich schon. Man weis ja nie, wann man es vielleicht noch brauchen könnte. ;-)
Hallo ransi,
Danke auch Dir, es funktioniert genau so wie ich es mir ursprünglich gedacht habe.
Es sollte auch kein professioneller Schutz werden.
Gruß Korl
Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: K.Rola

Geschrieben am: 14.03.2005 22:02:10
Schreib oben im Deklarationsteil:
Option Explicit
Option Private Module

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde


Bild

Betrifft: AW: Makros in der Liste inaktiv setzen?
von: Korl

Geschrieben am: 14.03.2005 22:12:55
Hi K.Rola,
ja,ja, ich muß diesbezüglich noch einiges lernen. Das fängt schon mit dem englischen bei mir an.
Ob ich das noch packe, ich werd auch schon vergesslich.
Wenn jetzt die Sonne etwas höher kommt, ist wieder schluß mit den Abenden am Computer, dann gehts ab in den Garten! ;-))
Gruß Korl
Bild

Betrifft: Hi K.Rola
von: Korl
Geschrieben am: 14.03.2005 22:25:49
Hi K.Rola,
was Deine zwei Zeilen doch so ausmachen. Tsis, Tsis, Tsis
Ich denke es reicht gegen Kinderneugier!
Danke nochmal und Gruß
Korl
 Bild
Excel-Beispiele zum Thema "Makros in der Liste inaktiv setzen?"
Start des Makros nach Laden der Arbeitsmappe Makros in Abhängigkeit vom Zellennamen aufrufen
Makros zeitgesteuert aufrufen CommandBar in Abhängigkeit vorhandener Makros erstellen
Makrostart bei Auswahl einer Zelle in Zeile 3 Makros aus einem Standardmodul in ComboBox einlesen
Farbpalette auf Graustufen setzen Menüs zurücksetzen
Einige Zeilen in einer sequentiellen Datei ersetzen Alle nichtnumerischen Werte auf Null setzen
Bewerten Sie hier bitte das Excel-Portal