Schreibschutz per Makro

Forumthread: Schreibschutz per Makro
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Schreibschutz per Makro

04.02.2005 19:30:40

Torben

Hallo,
ich brauche Euren Rat.
Ich brauche ein Makro, mit dem ich eine undefinierte Anzahl von Exceltabellen, aus einem bestimmen Verzeichnis (z.B. C:\Excel), mit einem Schreibschutz versehen kann.
Vielen Dank vorab!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schreibschutz per Makro

JL
AW: Schreibschutz per Makro

Torben

AW: Schreibschutz per Makro

müßte ungefähr so gehen:
Protect_Workbooks()
Dim FName$
FName = Dir("C:\Excel\*.xls") ' zum Beispiel
While FName ""
SetAttr "C:\Excel\" & FName , vbReadOnly
FName = Dir()
Wend
End sub
Gruß Jörg

AW: Schreibschutz per Makro

Torben

Vielen Dank Jörg,
doch leider ist mir damit nicht geholfen. Habe mich falsch ausgedrückt.
Ich brauche ein Marko mit dem ich eine undefinierte Anzahl von Exceltabellen aus einem bestimmten Verzeichnis mit einem Schreibschutzkennwort versehen kann, ohne das ich jede Tabelle per Hand öffnen bzw. neu speichern (Speicheroption) muss.

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