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

SendKeys VBAProject schützen

Forumthread: SendKeys VBAProject schützen

SendKeys VBAProject schützen
05.09.2007 09:21:00
Joe
Hallo,
mit folgendem VBA Code kann ich das VBA Project für die Anzeige sperren (schützen). Ich möchte von Arbeitsmappe A den Code aufrufen und das VBAProject der Arbeitsmappe B sperren. Leider wird immer nur das VBAProject aus dem auch der Code aufgerufen wurde gesperrt. Hat jemand eine Idee, ich bekomme es nicht hin?
SendKeys "%XI{Tab 9}^{RIGHT}%A%K123456%S123456{ENTER}"
Gruß
Joe

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SendKeys VBAProject schützen
05.09.2007 10:13:05
sergiesam
Hi,
du musst vorher das zu schützende Projekt aktivieren. Dazu solltest du einen anderen Namen für das Projekt als "VBAProject" nehmen. Markiere dazu im Projektbaum deine Excelmappe (z.B. VBAProjekt (Mappe1)) und drück F4 - damit bekommst du die Eigenschaften. Wähle hier als (Name) z.B. "MeinProjekt"
dann hat es bei meinem Projekt geklappt, wenn gleich man sagen muss, dass das Sendkeys-Objekt ein doch unzuverlässiges ist, da man nie weiß, ob die Tastenanschläge wirklich zur richtigen Zeit ausgeführt werden.
Im Code merke ich mir das aktuelle Modul, dann wechsle ich in das andere Modul, sperre das Projekt und kehre wieder zum aktuellen Modul zurück.
ich habe auch den WAIT-Parameter beim Sendkeys auf TRUE gesetzt, damit er mit den Tastenanschlägen wartet, bis das andere Projekt wirklich sichtbar ist. Hier kannst du ja experimentieren.

Sub test()
Dim activePane As Object
Set activePane = Application.VBE.ActiveCodePane
Application.VBE.VBProjects("MeinProjekt").VBComponents("Modul1").CodeModule.CodePane.Show
SendKeys "%XI{Tab 9}^{RIGHT}%A%K123456%S123456{ENTER}", True
activePane.Show
End Sub


lg,
Sam

Anzeige
;

Forumthreads zu verwandten Themen

Application.Sendkeys
Benoit

Hat jemand von euch die VBA-Funktion
Application.Sendkeys ("+{F9}", True)
erfolgreich implementiert?Ohne den "True" geht es! Aber ich brauche eben mit "True"Vielen dank für hilfeBenoitHintergrund:
diese Funktion simuliert das Tastatureingabe von
Shift + F9, das die Neuberech...
10.04.2002 17:41:02
Thread-ID: 112210
3 Beiträge
SendKey nach Tabelle2
Rolf

Hi,Leute
wie kann ich mit Makro den Inhalt der Zelle A1 in Tabelle 1,
der aus anderer Anwendung sich continuirlich erneuert,
als Tastenfolge nach Zelle A1 in Tabelle 2 senden(SendKey)
dabei zu jedem Datenpaket sollte am ende die Taste"Eingabe"
zusaetzlich angebunden sein.
...
25.04.2002 20:28:34
Thread-ID: 116424
3 Beiträge
VBA Button finden im Internetexplorer + sendkeys
chris

Hallo VBA Experten,
ich benötige wieder einmal eure Hilfe. Würde mich sehr freuen wenn es eine Lösung für mich gibt ?!
Ich will mal wieder Excel VBA Missbrauchen für eine andere Anwendung.
Den InternetExplorer oder OPERA.
Ich will mit VBA z.b alle 15 Minuten einen Button drücken...
09.09.2010 20:56:24
Thread-ID: 1176503
3 Beiträge
Application.Sendkeys
Frank

Hallo Leute,
ich sende mit Application.SendKeys ("%+(BVWS)") den Befehl zum updaten der Verknüpfungen an Excel.
Obwohl ich das Makro mit Application.Screenupdating = false eingefasst habe, ist der Vorgang am Bildschirm zu sehen. Kann man das Abschalten?
VG,
Frank
PS: Ich bra...
18.02.2011 09:50:46
Thread-ID: 1201638
5 Beiträge
Anzeige
Tabellen Spalte aufsteigend sortieren mit VBA
Malcolmp

Hallo Forum,
mit folgendem Code Schreibe ich einen Datensatz in die erste freie Zelle einer Spalte in Tabelle2:
Tabelle2.Cells(Tabelle2.Cells(Rows.Count, FzgSP.Column).End(xlUp).Row + 1, FzgSP.Column) = _
CLng(DATE1) & " " & Left(CDate(TIME1), 2) & " " & CLng(DATE2)...
27.07.2011 13:22:31
Thread-ID: 1223854
5 Beiträge
VBA-Spaltenvergleich in zwei Tabellen
Peter

Hallo,
ich vergleiche die Spalte 2 der Tab. „Bestand“ mit der Spalte 4 der Tab. „GesDaten“.
Bei Übereinstimmung werden die Werte in die Tab. „GesDaten“ übernommen und mit „Aktuell“ gekennzeichnet. –Funktioniert soweit-
Da die Tab. „Bestand“ Leerzeilen enthält werden diese mit in di...
06.08.2013 07:08:59
Thread-ID: 1325856
3 Beiträge
Aktivierung und Sendkeys bei Notepad per VBA-Excel
Markus

Hallo,ich möchte gerne eine Datei in Notepad öffnen. Anschließend diese aktivieren und per Sendkeys Tastaturbefehle absetzen. Danach sollte die Datei unter gleichem Namen gespeichert werden und die Anwendung notepad geschlossen.
Das ganz natürlich per VBA in Excel. Ich habe derzeit folgenden...
16.07.2002 09:11:34
Thread-ID: 136884
2 Beiträge
Tabelleninhalt mittels vba übertragen
Klet

Hallo,
ich komme mit meinem zusammengefrickelten Code nicht weiter.
Ich habe zwei Excel-Tabellen. In der liste.xlsx stehen die Werte, die in die stat.xlsm beim klick auf "Schaltfläche" ausgegben werden sollen.
Ich möchte allerdings, dass die Werte ab der nächsten freien Zelle einget...
03.12.2014 14:30:40
Thread-ID: 1395938
6 Beiträge
VBA alte Tabellenblätter löschen
Chris

Hey Leute,
per VBA muss ich ein neues Tabellenblatt erstellen, sobald dies erstellt ist sollen alle anderen Tabellenblätter gelöscht werden.
Wie kriege ich das mit einem VBA Makro hin?
Danke im voraus
Gruß Chris
28.09.2016 18:19:21
Thread-ID: 1517011
4 Beiträge
VBA Inhalte in Tabellenblatt einfügen
Andreas

Guten Abend,
Ist es dennoch möglich, mittels VBA Makro in Zellen "Nur" Werte einzufügen, auch wenn auf dem Tabellenblatt Verbundene Zellen sind- in denen aber nichts eingefügt wird?
Meine Tabelle hat bis zu 5000 zeilen, wobei der Bereich zur Bearbeitung eingeschränkt wurde.
Das...
04.10.2016 22:55:02
Thread-ID: 1518026
3 Beiträge
VBA: Inhalte aus spez. Tabellenblättern kopieren.
Michael

Hallo,
ich habe nach langer Zeit mal wieder ein Anliegen, da ich mich VBA-technisch für mich mal wieder auf Neuland begeben habe. Ich habe folgendene Fragestellungen, bei denen ich nicht weiter weiß und mich auch googlen nicht weiterbrachte (aber vllt. war ich auch einfach zu doof):
Ich...
08.11.2017 19:07:39
Thread-ID: 1590315
6 Beiträge
Anzeige
VBA-Vergleich 2er Spalten in zwei Tabellenblättern
Christoph

Hallo liebe VBA Gemeinde,
ich hoffe das ihr mir weiterhelfen könnt, da ich bei einem Problem nicht weiterkomme.
Und zwar möchte ich aus zwei gleich aufgebauten Tabellenblätter 2 Spalten vergleichen, sind diese identisch so mach nichts, sind sie unterschiedlich so kopiere die Zeile aus d...
15.08.2018 16:33:34
Thread-ID: 1639656
9 Beiträge

Beliebteste Forumthreads (12 Monate)

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