Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anpassenfunkt. in 2000, 2002 und 2003 deaktivieren

Anpassenfunkt. in 2000, 2002 und 2003 deaktivieren
04.01.2007 18:48:13
Kasimir
Hallo Leute,
ich habe da ein kleines Problem, hoffe zumindest, dass es ein kleines ist. Also, ich möchte die Anpassenfunktion deaktivieren. Das bekomme ich ja zu fast 100% hin. Allerdings hänge ich im Moment an der Anpassenfunktion, die man auswählen kann, wenn man am Ende einer Symbolleiste (ab Excel2002) auf den Pfeil klickt und dass dann in dem PopUp- Menü steht.
Nun habe ich in der Recherche folgenden Code dafür gefunden.
Application.CommandBars.DisableCustomize = True
Damit bekomme ich die Funktion ja auch bei Excel 2002 bzw. Excel 2003 deaktiviert. Allerdings soll die Datei auch unter Excel 2000 funktionieren. Und da beginnt mein Problem, denn Excel 2000 kennt den Befehl „.DisableCustomize“ leider noch nicht. Somit erhalt ich immer einen Kompilierungsfehler, wenn das Makro, in dem die Zeile steht, ausgeführt wird.
Hat jemand eine Idee, wie ich den Befehl einarbeiten kann, so dass Excel 200 darauf nicht reagiert, aber Excel 2002 und Excel 2003 schon? Oder gibt es gar noch einen Befehl, mit dem ich diese Anpassenfunktion in 2002 und 2003 deaktivieren kann, aber auch Excel 2000 damit klar kommt?
Bin für jede Hilfe dankbar.
Gruß,Kasimir

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anpassenfunkt. in 2000, 2002 und 2003 deaktivi
04.01.2007 18:56:11
Ramses
Hallo
Auf die andere Art
If CInt(Application.Version) &gt 9 Then
Application.CommandBars.DisableCustomize = True
End If
Dann wird das unter E2000 nicht ausgeführt
Gruss Rainer
AW: Anpassenfunkt. in 2000, 2002 und 2003 deaktivi
04.01.2007 19:05:39
Kasimir
Hallo Rainer,
danke Dir für Deine Antwort. Leider erscheint der gleiche Fehler, weil eben die Methode
.DisableCustomize
Excel 2000 noch nicht bekannt ist. Ich hatte das auch schon mit einer Abfrage der Versionsnummer versucht, aber mit gleichen Ergebnis. Gibt es noch eine andere Möglichkeit? Wäre super.
Danke nochmal und Gruß,
Kasimir
AW: Anpassenfunkt. in 2000, 2002 und 2003 deaktivi
04.01.2007 19:23:10
Gerd
Hi,
sieh dir mal die bedingte Kompilierung in der Hilfe an.
mfg Gerd
Anzeige
AW: Anpassenfunkt. in 2000, 2002 und 2003 deaktivi
04.01.2007 19:58:14
Kasimir
Hallo Gerd,
danke Dir für Deine Antwort. Also mit dem Code aus der Hilfe funktioniert das schon mal. Allerdings, wie Frage ich das genaze denn nun auf die Version ab. Mit folgendem Code geht das leider nicht. Es erscheint zwar kein Fehler, aber der Befehl in der If-Abfrage wird nicht ausgeführt.
#Const Vers = 10

Sub XP_Anpassen_deaktivieren()
Dim ActVersion As Integer
ActVersion = Mid(Application.Version, 1, 2)
#If Vers < ActVersion Then
Application.CommandBars.DisableCustomize = True
#End If
End Sub

Kann da nochmal jemand rüber schauen? Danke!
Gruß,
Kasimir
Anzeige
AW: Anpassenfunkt. in 2000, 2002 und 2003 deaktivi
04.01.2007 20:26:29
Gerd
Hi,
#If Val(application.version) &gt 10 Then
DeinCode
#End If
mfg Gerd
AW: Anpassenfunkt. in 2000, 2002 und 2003 deaktivi
04.01.2007 20:38:50
Kasimir
Hallo Gerd,
danke Dir für Deine erneute Antwort, aber leider funktioniert das nicht. Es kommt eine Fehlermeldung mit dem Text "Fehler beim Kompilieren: Unzulässige Verwendung eines Objekts" und in dem Code wird
application
blau markiert. Noch eine Idee?
Gruß,
Kasimir
Keine Idee oT
04.01.2007 21:34:03
Gerd
oT
Zu einfach
04.01.2007 22:43:16
Nepumuk
Hi,
einfach zu einfach für die Experten :-)
Public Sub test()
    Dim objBars As Object
    If Val(Application.Version) > 9 Then
        Set objBars = Application.CommandBars
        objBars.DisableCustomize = True
    End If
End Sub

Gruß
Nepumuk
Anzeige
Du bist der wahre Meister! oT
04.01.2007 22:53:30
Konni
oT
AW: Zu einfach
05.01.2007 07:21:42
Kasimir
Guten Morgen Nepumuk!
Danke Dir für Deine Antwort, die war, wen wunderts, Gold wert. Es funktioniert. Was mich nur noch interessieren würde, warum stört sich Excel 2000 nun nicht mehr an der Eigenschaft "DisableCustomize"? Kannst Du mir das wenn möglich relativ einfach erklären? Denn dass es funktioniert ist super, aber ich möchte auch verstehen warum.
Nochmal Danke an alle, die mir geholfen haben. Einen schönen Tag noch,
Kasimir
AW: Zu einfach
05.01.2007 09:55:49
Nepumuk
Hallo Kasimir,
Excel prüft beim kompilieren, ob die angegebenen Eigenschaften, Methoden und Ereignisse dem angegebenen Objekt überhaupt bekannt sind. Da die Variable aber als Objekt deklariert ist, kann Excel nicht feststellen, ob das Objekt die Eigenschaft kennt.
Das ist die selbe Methode, wie sie beim Zugriff auf fremde Objekte angewendet wird, welche nicht mir early Binding (ein Verweis auf dessen Objektbibliothek wird gesetzt) in die Application eingebunden werden. Das nennt sich dann late Binding und der Zugriff erfolg per CreateObject oder GetObject.
Gruß
Nepumuk
Anzeige
Danke Dir für die nochmalige Antwort, o.T.
05.01.2007 13:37:12
Kasimir

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige