Hallo Supportnet-Team,
ich probiere seit gestern mehrere schreibgeschützte zu öffnen und sie zu verändern.
Der Schritt sollte in etwa so sein:
Passwortgeschützte Datei öffnen - Blattschutz entfernen - zwei Spalten ausblenden - Fensterfixierung aufheben - Im Tabellenblatt Zelle A10 auswählen - Blattschutz wieder reinsetzen und schließen mit speichern.
Mit dem Code habe ich mich versucht, wobei das keine Schleife ist. Der zukünftige Code sollte alle gefüllten Zeilen durchgehen. Routinen sind für mich sowieso unmöglich.
Code passwortgeschütztes Öffnen:
Sub Dateienoeffnen()
Application.ScreenUpdating = False
Workbooks.Open Filename:=Workbooks("PW").Sheets("PW").Range("L2").Value & "\" & Workbooks("PW").Sheets("PW").Range("K2").Value, Password:=Workbooks("PW").Sheets("PW").Range("X2").Value, WriteResPassword:=Workbooks("PW").Sheets("PW").Range("X2").Value
Hier kommt der erste Fehler, auch ohne Schleife:
Ich bekomme es nicht hin, dass das Passwort aus der vorherigen Datei genommen wird...
Code Blattschutz entfernen:
Workbooks(Workbooks("PW").Sheets("PW").Range("L2").Value & "\" & Workbooks("PW").Sheets("PW").Range("X2").Value).Sheets("Data").Protect Workbooks("PW").Sheets("PW").Range("X2").Value
Dann weiter mit dem, was aufgrund des o.g. Fehlers nicht mehr ging:
With Workbooks(Workbooks("PW").Sheets("PW").Range("L2").Value & "\" & Workbooks("PW").Sheets("PW").Range("X2").Value).Sheets("Data")
.Columns("Z:AA").EntireColumn.Hidden
.ActiveWindow.FreezePanes = False
.Range("A10").Select
.Sheets("Blatt 1").Protect Workbooks("PW").Sheets("PW").Range("X2").Value
Workbooks(Workbooks("PW").Sheets("PW").Range("L2").Value & "\" & Workbooks("PW").Sheets("PW").Range("X2").Value).Close SaveChanges:=True
End Sub
Wenn das durch ist = die nächste Zeile.
Kann jemand hier helfen?
Ich bin absoluter Anfänger, weshalb die Codes sicherlich alles andere als gut sind :)
Einen schönen Abend und Danke
Sven