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

VBAProject Schutz bei SaveCopyAs

Forumthread: VBAProject Schutz bei SaveCopyAs

VBAProject Schutz bei SaveCopyAs
19.11.2002 19:25:14
Volker Croll
Hallo zusammen,

eine schreibgeschuetzte Arbeitsmappen-Vorlage enthaelt mehrere Makros. Das ganze ist ueber die VBAProject-Eigenschaften mit einem Kennwort fuer die Anzeige gesperrt.

Waehrend der Laufzeit wird mit ThisWorkbook.SaveCopyAs FileName:= ... eine Kopie mit neuem Dateinamen erstellt.

Habe nun gerade festgestellt, dass der VBA-Code in der so entstandenen Kopie nicht mehr gesperrt ist. Die Makros sind voll einsehbar.

Habe weder auf Hans seiner CD, noch im Archiv-Download, noch in der Online-Hilfe hierzu etwas gefunden. Oder habe ich etwas uebersehen?

Freue mich auf Hinweise!

Gruss Volker

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBAProject Schutz bei SaveCopyAs
19.11.2002 19:58:39
Hans W. Herber
Hallo Volker,

kann es sein, dass Du das Speichern vorgenommen hast, bevor der VBA-Schutz durch speichern/schließen/öffnen aktiviert wurde?

hans

Sorry, Excel kann nichts dafuer ...
19.11.2002 21:51:25
Volker Croll
Hallo Hans,

das vermeintliche Phaenomen trat auf, weil versehentlich eine falsche (alte) Version der Vorlangen-Arbeitsmappe ins Netz gestellt wurde, und die war noch nicht geschuetzt.

Und ich such' mir hier den Wolf ... man soll wirklich immer erst die banalsten Dinge checken, bevor man auf Fehlersuche geht - sorry ...

Trotzdem 1000 Dank!

Gruss Volker

Anzeige
;

Forumthreads zu verwandten Themen

ActiveWorkbook.SaveAs
Larissa

Hallo,
jetzt habe ich doch noch eine Frage.
In meinem Makro habe ich die Funktion: ActiveWorkbook.SaveAs 'Name_Datum'
Die Datei wird dann in Eigene Dateien abgespeichert. Wenn an diesem Platz schon eine Datei mit diesem Namen vorliegt, kommt die typische Abfrage, ob die Datei übers...
12.09.2009 17:32:49
Thread-ID: 1102264
3 Beiträge
Anzeige
activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav
norman

Hi alle,
ich haben eine XLA-Datei geschrieben, die bei jedem Start von Excel aktiv ist. In dieser XLA-Datei wird
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
genutzt, um in einem zentralen DB-System einen Eintrag vorzunehmen und die Datei dann in der BeforeS...
13.03.2010 21:59:44
Thread-ID: 1145651
7 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
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
activesheet.saveas txt
Günter

Hallo,
kämpfe mich als Neuling durch VBA.
Ich habe ein xls-Arbeitsblatt mit x Zeilen.
Möchte nun jeweils 5 Zeilen als txt speichern.
Habe dazu folgenden code erstellt
Range("A2:A6").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application...
04.08.2013 11:32:56
Thread-ID: 1325650
4 Beiträge
VBA Outlook 2010 Fehler (xlDialogSaveAs).Show
Thorsten

Hallo,
ich versuche eMail-Anhänge zu speichern.
Der genaue Speicherpfad steht in den Anhängen(.xls) der eMail.
Leider ist der Name/ Bezeichnung immer anders.
Die Anhänge werden temporär gespeichert, geöffnet und dann kommt mein Problem:
der Benutzer soll das Speicherverzeich...
07.06.2014 07:21:41
Thread-ID: 1365046
4 Beiträge
Anzeige
ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
Thorben

Hallo alle zusammen,
folgender Code legt eine Kopie ab und bringt Excel dann zum Absturz!?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Filestring1 = "\Test1.xlsm" Filestring2 = "\Test2.xlsm" If ActiveSheet.Range("G1") = "Bestand 1" = True Then ThisWor...
23.06.2014 14:57:24
Thread-ID: 1367056
6 Beiträge
Workbook.SaveAs einer schreibgeschüzten Datei
Bernhard

Hallo xls-ler, ich habe mein Problem der Automatisierung mit Hilfe der Recherche fast gelöst. Ein letzter Punk ist leider offen:
Der Befehl ActiveWorkbook.SaveAs soll eine Datei die Schreibgeschützt ist überschreiben. Ich dachte dadurch, dass man das Argument WriteResPassword:="test" mit dem...
16.07.2002 15:15:53
Thread-ID: 137076
3 Beiträge
ActiveWorkbook.SaveAs Dateiname aus Strings
Ben

Hallo,
ich habe folgendes VBA Programm als Makro geschrieben:
Dim pfad As String
ActiveSheet.Unprotect
Dim kursbezeichnung As String
kursbezeichnung = range("F2").Value
Application.DisplayAlerts = False
pfad = "C:\1\" & kursbezeichnung & "\Moodlezugangsdaten....
31.03.2015 14:50:36
Thread-ID: 1418235
4 Beiträge
SaveAs (VBA)
Markus

Guten Morgen....
Ich habe ein kleines Problem und komme einfach nicht dahinter, woran es liegt...
Habe eine Exceldatei, die von verschiedenen Personen bearbeitet werden kann...
Diese liegt auf einem Gruppenlaufwerk im Intranet...
Ich möchte das die Originaldatei gespeichert wird...
26.08.2015 08:09:27
Thread-ID: 1444442
3 Beiträge
Fehler bei ActiveWorkbook.Save auf Netzwerk
Henner

Guten Abend zusammen,
ich habe folgende Anweisung im Modul "Diese Arbeitsmappe": Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save End Sub
Das funktioniert soweit auch sehr gut. Die Datei liegt in einem Netzwerk und wird auch von dort geöffnet. Hat man die Datei...
23.10.2015 20:53:56
Thread-ID: 1454065
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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