Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SaveCopyAs mit Passwort

Forumthread: SaveCopyAs mit Passwort

SaveCopyAs mit Passwort
03.04.2003 13:37:00
Wolfgang
Hallo,
ich möchte eine Datei mit einem Kennwort schützen die ich wie folgt speichere:
Finde in der Onlinehilfe und der Recherche keinen Hinweis.

Workbooks.Add
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & sName & Datum & "Daten.xls"

Wie gehe ich dann vor?
Danke für jeden Tip.
Gruß
Wolfgang

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: SaveCopyAs mit Passwort
03.04.2003 14:24:02
geri

Hallo Wolfgang

aus Forum
ClassModule: DieseArbeitsmappe

Dim bln As Boolean

Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
If bln = False Then
Cancel = True
bln = True
ThisWorkbook.SaveAs _
FileName:=Range("B1").Value & "\test.xls", _
Password:="MeinPasswort"
End If
Application.DisplayAlerts = True
End Sub


gruss geri

Anzeige
Re: SaveCopyAs mit Passwort
03.04.2003 14:35:11
Wolfgang

Hallo Geri,
Danke für die Antwort. Dachte es geht einfacher! Dann mach ich es eben so.
Gruß
Wolfgang

Re: SaveCopyAs mit Passwort
03.04.2003 14:42:17
geri

Wolgang es geht sicher noch einfacher, diese Lösung habe ich aus Forum und funktioniert in Regel auf Anhieb
Anpassungen sind meist noch zu machen

gruss geri

Anzeige
Ok Geri und nochmals danke
03.04.2003 15:19:25
Wolfgang

Hallo Geri,
klar doch, hatte nur gemeint hinter meine Zeile Password:="" setzten zu können.
Gruß
Wolfgang

;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige