|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Excel Dateien konservieren |
29.06.2007 09:30:55 |
Christian |
|
|
|
29.06.2007 19:52:17 |
Sozu |
|
|
|
02.07.2007 12:58:08 |
Christian |
|
|
|
02.07.2007 17:33:26 |
Sozu |
|
|
|
03.07.2007 08:35:54 |
Christian |
|
|
Von:
Christian |
Datum:
29.06.2007 09:30:55 |
Views:
2425 |
Rating:
|
Antwort:
|
Thema:
Excel Dateien konservieren |
Hallo zusammen,
folgendes Makro benötige ich:
Das Makro muss aus einer Excel-Datei heraus alle Excel-Dateien eines definierten Ordners finden. (Das bekomme ich noch hin). Dann sollen alle eingeblendeten Tabellenblätter mit einem Blattschutz versehen werden. Dabei kann es sich auch um Diagramme handeln!!! Mein Problem ist zum einen das sich das Makro bei Diagrammen aufhängt, zum anderen hängt es sich auch auf wenn ausgeblendete Tabellenblätter mit in der Datei sind.
Sub Dateien_komplett_konservieren()
ChDrive "H:"
Pfad = "H:\Projekte\2007\"
If Pfad Like "" Then
Exit Sub
End If
With Application.FileSearch
.LookIn = Pfad
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Datei = .FoundFiles(i)
Workbooks.Open Datei
'alle Tabellenblätter Blattschutz setzen
For t = 1 To Application.Sheets.Count
Sheets(t).Select
ActiveSheet.Unprotect password:="zvfr"
Cells.Select
Selection.Locked = False
Selection.Locked = True
ActiveSheet.Protect password:="zvfr", DrawingObjects:=True, Contents:=True, Scenarios:=True
Cells(1, 1).Select
Next t
ActiveWorkbook.Protect password:="zvfr", Structure:=True, Windows:=False
ActiveWorkbook.Close savechanges:=True
Next i
End With
End Sub
Bin dankbar um jeden Ratschlag.
Herzlichen Dank
Grüße Christian |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Excel Dateien konservieren |
29.06.2007 09:30:55 |
Christian |
|
|
|
29.06.2007 19:52:17 |
Sozu |
|
|
|
02.07.2007 12:58:08 |
Christian |
|
|
|
02.07.2007 17:33:26 |
Sozu |
|
|
|
03.07.2007 08:35:54 |
Christian |
|
|