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

VBA Projekt per Makro schützen lassen

Forumthread: VBA Projekt per Makro schützen lassen

VBA Projekt per Makro schützen lassen
11.01.2005 15:16:41
Stephan
Liebes Forum,
ich habe eine Reihe von Dateien, bei denen ich über ein Makro die Passwörter, die im Code verwaltet werden, ändern lassen möchte. Dieses Makro besteht bereits.
Ist es nun auch möglich, im Rahmen dieses Makros das VBA-Projekt jeder einzelnen Datei mit einem Passwort zu versehen und zu schützen? Wie würde das gehen?
Besten Dank für Eure Hilfe!
Herzliche Grüße
Stephan Karl
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Projekt per Makro schützen lassen
11.01.2005 15:30:43
Matthias
Hallo Stephan,
das geht m.W. nur mit Application.SendKeys, d.h. du schickst die nötigen Tastaturbefehle und Eingaben in den Tastaturpuffer. Keine wirklich zufriedenstellende Lösung...
Gruß Matthias
P.S. Hast du schon mal überlegt, die Kennworter in eine separate Datei auszulagern?
Anzeige
;

Forumthreads zu verwandten Themen

mit Set Workbookname zuweisen - Syntaxprobleme?
Peter

Guten Tag
Ich versuche den Variablen wbQuelle und wbZiel via Set einen Wert zuzuweisen. Klappt beide Male nicht
1. mit ThisWorkbook.Name
2. über einen Funktionsaufruf, der einen String zurückgibt
Was mache ich falsch?
Danke für eine Antwort.
Gruss, Peter
Public Sub...
03.12.2008 16:23:31
Thread-ID: 1029887
4 Beiträge
Anzeige
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
ThisWorkbook.Name ohne Extention?
Jubro

Hallo zusammen,
Ich hoffe auf eure Hilfe bei folgendem Problem:
Mit folgendem Befehl hole ich den aktuellen Namen in eine TextBox was ja ohne weiteres auch kein Problem darstellt :o).
TextBox1.Value = ThisWorkbook.Name
Jetzt wir mir in der TextBox der name mit Extention .xls ang...
18.05.2009 19:02:57
Thread-ID: 1075972
4 Beiträge
Anzeige
Fehlermeldung bei "ActiveWorkbook.Names.Add "
k

Hallo, nur mal eben eine kurze Frage:
Habe eine Userform die beim Start einen Bereich mit einem Namen versehen soll (Dynamisch).
Ist der Name schon vorhanden - klappt alles super - wenn nicht erhalte ich immer an dieser Stelle eine Fehlermeldung ! "Angegebene Formel enthält ei...
11.08.2009 11:29:47
Thread-ID: 1094955
5 Beiträge
ActiveWorkbook.ThemeColorSchem Name auslesen
Sonnenpeter

Hallo,
ich versuche gerade (erfolglos) den Namen des aktuellen Colorschemas
auszulesen.
Sub Test() tester = ActiveWorkbook.ThemeColorScheme.Name 'tester = ActiveWorkbook.Theme End Sub Ist der Name des aktuellen Colorschemas überhaupt auslesbar?
Wenn ja wie? ;-)
Gruß SP
17.10.2009 16:10:12
Thread-ID: 1110320
4 Beiträge
ActiveWorkbook.Names.Add - nicht ausgew. Sheet
Peter

Guten Tag
Mit nachfolgender Codezeile definiere ich in im Sheet "Tabellenliste" den Bereich "XTabellen".
Leider funktioniert das jedoch nur, wenn die Tabelle "Tabellenliste" auch ausgewählt ist. Wie muss ich den Code anpassen, dass die Bereichsdefinition klappt, wenn eine andere Tabelle...
23.11.2010 11:53:02
Thread-ID: 1188279
3 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
Anzeige
VBA Makro ausführen bei Verlassen einer Zelle
KT

Hallo,
ich möchte gerne, dass mein Solver-Makro ausgeführt wird, wenn der Anwender die Zelle B1, B2, B3, B26, B27 oder B28 nach einer Veränderung verlässt. Zum besseren Verständnis habe ich hierzu meine Excel-Datei hochgeladen.
https://www.herber.de/bbs/user/74230.xls
Die Solverfun...
31.03.2011 14:28:47
Thread-ID: 1208514
3 Beiträge
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
With ThisWorkbook.Names(sRng).RefersToRange ??
Peter

Guten Abend
Ich habe die Lösung, versteht aber nicht ...
... weshalb mit untenstehnde Formel die letzte Spalten-Nr. korrekt ermittelt.
Weshalb erhalte ich mit der Funktion nLetzteSpalte die korrekte Spaltennumer der letzten Spalte eines Bereiches? .Cells.Count liefert doch die Anzah...
04.12.2012 16:41:30
Thread-ID: 1289285
7 Beiträge
VBA - ZellNAME auslesen
Stephan

Guten morgen und einen angenehmen Montag euch allen ;)
Sagen wir ich habe für die Zelle "A1" den Namen "Hallo" definiert.
Sag ich VBA jetzt: MsgBox Thisworkbook.ActiveSheet.Range("A1").Name
Dann kommt anstatt "Hallo" "A1" raus
was mach ich falsch?
28.01.2013 10:34:03
Thread-ID: 1296291
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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