Hallo,
ich muss mal eine absolute Anfängerfrage stellen:
Ich möchte in einem Excel Dokument die Zoom-Funktion per VBA Makro sperren.
(
http://www.herber.de/forum/archiv/900to9...ieren.html)
Wie kann ich diesen Code einfügen und aktivieren?
Wenn ich in den Entwickleroptionen auf Visual Basic klicke und den Code einfach nur einfüge, passiert nichts..
Hallo,
Zitat:Private Sub Worksheet_Activate()
diese Art von Makros gehören
nicht in ein Modul. Sie gehören, wie der Name ja schon ziemlich deutlich sagt,
hinter das Tabellenblatt, in dem sie wirken sollen.
was heißt "hinter das Tabellenblatt"?
Ich verstehe nicht ansatzweise, wie du das meinst, und wo ich es einfügen muss.
Hi Georgh,
mit "hinters Arbeitsblatt" ist folgendes gemeint:
Mit Alt-F11 öffnest du die VBA-Umgebung. Links siehst du u.a. den Projektexplorer. Hier suchst du dir deine Mappe aus. Im ScrShot zeige ich dir, wie das aussehen könnte:
[
attachment=17249]
Mach einen DK auf das entsprechende Tabellenblatt und rechts siehst du dein Eingabefeld, in das du den Code reinkopierst.
(19.04.2018, 17:26)WillWissen schrieb: [ -> ]Hi Georgh,
mit "hinters Arbeitsblatt" ist folgendes gemeint:
Mit Alt-F11 öffnest du die VBA-Umgebung. Links siehst du u.a. den Projektexplorer. Hier suchst du dir deine Mappe aus. Im ScrShot zeige ich dir, wie das aussehen könnte:
Mach einen DK auf das entsprechende Tabellenblatt und rechts siehst du dein Eingabefeld, in das du den Code reinkopierst.
So habe ich das gemacht - dennoch funktioniert das Skript aus meinem Eingangspost nicht..
Geht das bei dir? Muss ich das noch irgendwie aktivieren?
Hallo Georg,
sowas kommt von sowas ...
Du hast in Deinem Eingangspost einen Link angegeben. Bei Deiner Anfrage tauchte damals dann
ein einsames Makro auf, auf das ich dann auch geantwortet habe. Wenn ich diesen Link jetzt anklicke,
dann bekomme ich Einsicht in einen ellenlangen Thread mit etlichen Makros. Jetzt kann ich mir
genüßlich aussuchen, welchen der Codes Du gemeint haben könntest.
Meine Frage also: War es dieser?
Zitat:Private Sub Worksheet_Activate()
ActiveWindow.Zoom = 100
Dim entry As CommandBarControl
For Each entry In CommandBars("View").Controls
If InStr(1, entry.Caption, "Zoom") Then
entry.Delete
End If
Next entry
End Sub
Private Sub Worksheet_Deactivate()
MenuBars(xlWorksheet).Reset
End Sub
Eine Antwort brauche ich, um auf Deine jetzige Frage vernünftig
Zitat:So habe ich das gemacht - dennoch funktioniert das Skript aus meinem Eingangspost nicht..
Geht das bei dir? Muss ich das noch irgendwie aktivieren?
antworten zu können.
Es gibt nämlich in Deinem Eingangspost nicht wirklich ein eindeutiges Skript.
Und vorsichtshalber die Frage... hast Du den Code auch wirklich in das richtige
Klassenmodul kopiert?
Hallo,
Ja, genau, gemeint ist der Code, den du gepostet hast.
Ich habe den Code genau so eingefügt, wie "WillWissen" es einen Post vorher beschrieben hatte. Doppelklick auf das richtige Tabellenblatt, und dann einfach in das aufgehende Code-Fenster eingefügt.
In welches Klassenmodul ich das einfügen muss, weiß ich nicht! Hab mal einen Screen angehängt, der das verdeutlichen soll..
Hallo,
Ich sage es mal so. Ich kann beim Helfen keine Bilder gebrauchen.
Schon gar nicht dann, wenn mehrere Dateien geöffnet sind.
Ich habe meine Vorgehensweise doch zusätzlich beschrieben - oder ist noch etwas missverständlich?
Hallo Georg,
... und ich habe keinen Bock, endlos lange zu diskutieren.
Für mich sieht es so aus, als sei der Code in einem Allgemeinen Modul.