Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern

Speichern
Hans
Hallo Leute,
ich habe eine Datei die einen Leseschutz hat, diese soll ich nun auf ein anders Laufwerk als Kopie abspeichern, allerdings soll sie hier einen Schreibschutz und keinen Leseschutz haben.
Durch mein Makro speicher ich zwar die Datei unter dem vorgegebenen Namen auf dem richtigen Laufwerk, sie speichert den Leseschutz aber immer mit. Kann man das überhaupt ändern?
Gruß Hans

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

Betreff
Benutzer
Anzeige
AW: Speichern
13.09.2009 13:26:26
Tino
Hallo,
teste mal ob es geht.
Sub SaveCopy()
Dim strPfad As String
'Deine Passwörter anpassen
Const sPasswort As String = "hans"
Const sSchreibLesePasswort As String = "hans"
With ThisWorkbook
'Pfad und Dateiname anpassen
strPfad = "D:\Ordner\Copy.xls"
.Password = "" 'Passwort
.WritePassword = sSchreibLesePasswort   'Schreib- Lese- Kennwort löschen
.SaveCopyAs strPfad 'kopie speichern
.Password = sPasswort                 'wieder setzen
.WritePassword = sSchreibLesePasswort 'wieder setzen
End With
End Sub
Gruß Tino
Suuuper Genial, vielen Dank
13.09.2009 14:04:39
Hans
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige