VB Script entwickelt mit dem mann ein
Blatt einer Mappe Automatisch kopieren
kann, ohne veränderung der Spalten, Zeilen, Zellen,
Farben, Schriften und Größen aber ohne
das Kopieren der Formeln sondern nur die
Tatsächlichen Tabellen inhalte laut Vorschau.
Nun zum Problem:
Ohne Blattschutz funzt das Tool 1a
aber wenn mann jetzt das Blatt schützt weil es
eine Eingabemaske ist und nur 5 Zellen veräderbar
sind kommt dieser Fehler :
Laufzeitfehler 1004:
Die Zelle oder das Diagramm, das Sie versuchen zu ändern,
ist geschützt und somit schreibgeschützt.
Der Code:
Public Sub Blattkopie()
Dim Anzahl As Byte, Tabelle As Worksheet, Adresse As String
With Application
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
End With
ActiveSheet.Copy
ActiveSheet.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value
ActiveWorkbook.SaveAs Filename:= _
"D:\Berechnungen\" & Range("E7") & Format(Now, " hh-dd.mm.yy") & ".xls"
ActiveWorkbook.Close False
With Application
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
End With
End Sub
Im Debugger ist diese Zeile daran schuld:
ActiveSheet.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value
kann mann diese zeile ergänzen damit mann in einem geschützten
Dokument speichern kann, oder das dieses Tool kurz den Schutz
aufhebt, speichert und dan gleich wieder schützt ?!
Ist das machbar ???
Vielen Dank im vorraus Bernd Schneider