Blattschutz externer Datei
kirsche34
ich brauch mal Eure Hilfe. Im Archiv habe ich leider keinen passenden Eintrag gefunden.
Ich möchte ein Tabellenblatt in einer neuen Datei speichern, die 2 Commandbutton daraus löschen und dann den Blattschutz aktivieren, wobei die gesperrten Zellen nicht ausgewählt werden dürfen.
Nun habe ich mir ein Makro zusammen gebastelt. Dies funktioniert auch soweit ganz gut, bis auf den Blattschutz. Hier bekomme ich es nicht hin, dass die gesperrten Zellen nicht anwählbar sind.
Public Sub Blatt_speichern()
Dim h, i, j, k
'speicherort
j = "D:\Eigene Dateien\Dispokarten\"
'dateiname
k = Left(Range("J7"), 1)
h = Format(Date, "yymmdd") & "_" & Format(Time, "hhmmss")
i = Range("N9").Value & "_" & Range("C9").Value & "_" & k & "_" & h & ".xls"
'tabelle kopieren
Tabelle8.Copy
'mappe speichern unter
ActiveWorkbook.SaveAs j & i
Range("E7").Select
'hier hakt es
' blattschutz ein ohne zellenformatierung und gesperrte zellen nicht auswählen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
' neue mappe schliessen
ActiveWorkbook.Close SaveChanges:=False
'datei nochmals öffnen und button löschen
Workbooks.Open Filename:=j & i
' ActiveSheet.Unprotect
ActiveSheet.Shapes("CommandButton1").Delete
ActiveSheet.Shapes("CommandButton2").Delete
'speichern
ActiveWorkbook.Save
'schliesen
ActiveWindow.Close
End Sub
Ich hab nun alles versucht, manchmal klappt es, aber leider nur 1x von 10.
freundliche Grüße
Dörte