Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1068to1072
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
Inhaltsverzeichnis

Ergänzen um "Read.Only" per VBA ?

Ergänzen um "Read.Only" per VBA ?
19.04.2009 18:26:37
Fabio
Hallo zusammen,
meine Datei (n) die ich auslese sind meist mit einem "Schreib-Passwort" geschützt. Per Herbes-Forum-VBA :-) kann ich nun Dateien auslesen, muss aber immer wieder "bestätigen"...Datei Schreibgeschützt öffnen "ja".
Wie muss ich den nachfolgenden Code um "read.Only" ergänzen - sprich - das Excel gar nicht erst manuel abfragt - sondern die Dateiabfrage "Schreibgeschützt öffnen" automatisch mit "ja" beantwortet. Dunkel habe ich da read.only in Erinnerung...aber wo..?
Danke!
Fabio

Auszug:
If strFile  ZielBook Then
'Workbook open
Workbooks.Open strPath & strFile
QuellBook = ActiveWorkbook.Name
For i = 1 To Workbooks(QuellBook).Sheets().Count()
Workbooks(ZielBook).Sheets(strTab).Cells(lngR, 2).Value = Workbooks( _
QuellBook). _
_
Sheets(i).Name
Workbooks(ZielBook).Sheets(strTab).Cells(lngR, 3).Value = Workbooks( _
QuellBook). _
_
Sheets(i).Cells(80, 4)
lngR = lngR + 1
Next i
Workbooks(QuellBook).Close


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ergänzen um "Read.Only" per VBA ?
19.04.2009 18:36:00
Reinhard
Hallo Fabio,
Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU)
findest du in der Hilfe zu open. Der Parameter readonly wird das sein was du suchst.
Gruß
Reinhard
AW: Ergänzen um "Read.Only" per VBA ?
19.04.2009 18:38:29
Ramses
Hallo
"..Dunkel habe ich da read.only in Erinnerung...aber wo..?..."
VBA Hilfe ! :-)
************************************
Open-Methode, wie sie auf das Workbooks-Objekt angewendet wird.
Öffnet eine Arbeitsmappe.
Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)
Ausdruck Erforderlich. Ein Ausdruck, der das Workbooks-Objekt zurückgibt.
FileName Erforderlicher String-Wert. Der Dateiname der zu öffnenden Arbeitsmappe.
UpdateLinks Optionaler Variant-Wert. Gibt an, wie Verknüpfungen in einer Datei aktualisiert werden. Wenn dieses Argument nicht angegeben ist, wird der Benutzer dazu aufgefordert, anzugeben, wie die Verknüpfungen aktualisiert werden sollen. Andernfalls hat dieses Argument einen der in der folgenden Tabelle aufgeführten Werte.
Wert Bedeutung
0 Keine Aktualisierung von Bezügen
1 Aktualisierung von externen Bezügen, jedoch nicht von Remotebezügen
2 Aktualisierung von Remotebezügen, jedoch nicht von externen Bezügen
3 Aktualisierung von externen Bezügen und Remotebezügen
Wenn Sie in Microsoft Excel eine Datei im WKS-, WK1- oder WK3-Format öffnen und das Argument UpdateLinks den Wert 2 hat, dann erstellt Microsoft Excel Diagramme aus den Grafiken, die der Datei angehängt sind. Wenn das Argument den Wert Null hat, werden keine Diagramme erstellt.
ReadOnly Optionaler Variant-Wert. Falls True, wird die Arbeitsmappe schreibgeschützt geöffnet.
Format Optionaler Variant-Wert. Wenn Sie in Microsoft Excel eine Textdatei öffnen, gibt dieses Argument die in der folgenden Tabelle aufgelisteten Trennzeichen an. Wenn dieses Argument nicht angegeben ist, wird das aktuelle Trennzeichen verwendet.
Wert Trennzeichen
1 Tabstopps
2 Kommas
3 Leerzeichen
4 Semikolons
5 Keine
6 Benutzerdefiniertes Trennzeichen (siehe Argument Delimiter)
Password Optionaler Variant-Wert. Eine Zeichenfolge, die das zum Öffnen einer geschützten Arbeitsmappe erforderliche Kennwort enthält. Fehlt dieses Argument und ist ein Kennwort für die Arbeitsmappe erforderlich, wird der Benutzer zur Kennworteingabe aufgefordert.
WriteResPassword Optionaler Variant-Wert. Eine Zeichenfolge, die das zum Schreiben in eine Arbeitsmappe mit Schreiberlaubnis erforderliche Kennwort enthält. Fehlt dieses Argument und ist ein Kennwort für die Arbeitsmappe erforderlich, wird der Benutzer zur Kennworteingabe aufgefordert.
IgnoreReadOnlyRecommended Optionaler Variant-Wert. Falls True, wird von Microsoft Excel keine Meldung angezeigt, die den schreibgeschützten Zugriff empfiehlt (falls die Arbeitsmappe mit der Option Schreibschutz empfehlen gespeichert wurde).
Origin Optionaler Variant-Wert. Wenn es sich um eine Textdatei handelt, wird mit diesem Argument der Dateiursprung angegeben (damit Codeseiten und Wagenrücklauf/Zeilenvorschub (CR/LF) richtig umgesetzt werden können). Dies kann eine der folgenden XlPlatform-Konstanten sein: xlMacintosh, xlWindows oder xlMSDOS. Wenn dieses Argument nicht angegeben ist, wird das aktuelle Betriebssystem verwendet.
Delimiter Optionaler Variant-Wert. Wenn es sich um eine Textdatei handelt und das Argument Format den Wert 6 hat, gibt diese Zeichenfolge das zu verwendende Trennzeichen an. Zum Beispiel Chr(9) für Tabstopps, "," für Kommas, ";" für Semikolons oder ein benutzerdefiniertes Zeichen. Verwendet wird nur das erste Zeichen der Zeichenfolge.
Editable Optionaler Variant-Wert. Wenn die Datei ein Microsoft Excel 4.0-Add-In ist, wird das Add-In als sichtbares Fenster geöffnet, falls das Argument den Wert True hat. Wenn das Argument den Wert False hat oder ausgelassen ist, wird das Add-In ausgeblendet geöffnet, und es ist auch nicht möglich, es einzublenden. Diese Option gilt nicht für Add-Ins, die in Microsoft Excel, Version 5.0 oder höher, erzeugt wurden. Wenn die Datei eine Excel-Vorlage ist, wird durch Angabe von True die angegebene Vorlage zur Bearbeitung geöffnet und durch die Angabe von False eine neue Arbeitsmappe auf der Grundlage der angegebenen Vorlage geöffnet. Die Standardangabe lautet False.
Notify Optionaler Variant-Wert. Wenn die Datei nicht im Lese-/Schreibzugriff geöffnet werden kann, wird die Datei durch die Angabe von True zu der Benachrichtigungsliste hinzugefügt. Microsoft Excel öffnet die Datei schreibgeschützt, versucht weiterhin, die Datei zu öffnen und benachrichtigt dann den Benutzer, wenn die Datei im Lese-/Schreibzugriff geöffnet werden kann. Wenn das Argument den Wert False hat oder ausgelassen ist, wird keine Benachrichtigung angefordert, und eine nicht zur Verfügung stehende Datei kann nicht geöffnet werden.
Converter Optionaler Variant-Wert. Gibt den Index des ersten Dateikonvertierungsprogramms an, das verwendet werden soll, um eine Datei zu öffnen. Das angegebene Konvertierungsprogramm wird zuerst verwendet. Wenn es die Datei nicht lesen kann, wird mit allen anderen Konvertierungsprogrammen versucht, die Datei umzuwandeln. Der Index des Konvertierungsprogramms besteht aus seinen Zeilennummern, die von der FileConverters-Eigenschaft zurückgegeben werden.
AddToMru Optionaler Variant-Wert. Falls True, wird diese Arbeitsmappe zu der Liste der zuletzt geöffneten Dateien hinzugefügt. Der Standardwert ist False.
Local Optionaler Variant-Wert. True speichert Dateien in der Sprache von Microsoft Excel (einschließlich der Einstellungen der Systemsteuerung). False (Standard) speichert Dateien in der Sprache von Visual Basic für Applikationen (VBA) (normalerweise US-Englisch, außer bei dem VBA-Projekt, über das Workbooks.Open ausgeführt wird, handelt es sich um ein altes internationalisiertes XL5/95 VBA-Projekt).
CorruptLoad Optionaler Variant-Wert. Dies kann eine der folgenden Konstanten sein: xlNormalLoad, xlRepairFile und xlExtractData. Das Standardverhalten ist im Allgemeinen "Normal", wenn kein Wert angegeben wurde. Es kann jedoch auch das sichere Laden oder die Datenwiederherstellung verwendet werden, wenn Excel bereits versucht hat, die Datei zu öffnen. Der erste Versuch ist "Normal". Wenn Excel beim Öffnen der Datei abstürzt, erfolgt der zweite Versuch mit dem sicheren Laden. Wenn Excel dabei wiederum abstürzt, erfolgt der nächste Versuch mit der Datenwiederherstellung.
OpenConflictDocument Optionaler Variant-Wert. True, um das lokale Konfliktdokument zu öffnen. Der Standardwert ist False.
******************************
Gruss Rainer
Anzeige
Wo einfügen ?
19.04.2009 18:50:09
Fabio
Hallo,
erstmal Danke - es ist der Befehl: " ReadOnly=True" .
Nur irgendwie weiß ich nicht wo ich den einfügen soll, dachte zu erst so:
Workbooks.Open strPath & strFile ReadOnly=true
Dann kommt aber die Meldung "erwarte Anweisungsende..." ?
Hmm jemand Hilfe für mich hat ?
Fabio - der ziemlich wenig bis keine Ahnung von VBA hat...
AW: Ergänzen um "Read.Only" per VBA ?
19.04.2009 18:50:10
Rainer
So in etwa:
Workbooks.Open Filename:=strPath & strFile, readonly:=True
Gruß
Rainer
Danke
19.04.2009 18:50:39
Fabio
Hallo,
jetzt hat sich die Antwort überschnitten. Vielen lieben Dank!
Fabio

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen