Ich möchte gerne in einer geschützten Arbeitsmappe ein spezielles Registerblatt kopieren und am Ende einfügen, den Blattschutz aufheben lassen und die Werte einfügen. Ansätze hierfür habe ich gefunden, benötige aber Modifikationen und somit eure Hilfe:
1.) Der Blattschutz muss aufgehoben werden
2.) Es soll lediglich ein bestimmtes Register wertkopiert werden und nicht nach allen gefragt werden.
Ansonsten ist das eigentlich super:
Sub Wertkopie_DBR_DBS_TM1()
Dim Z, Bl
Dim Alle
Calculate
Alle = MsgBox("Sollen alle Blätter wertkopiert werden?", vbYesNo, "TM1 -Wertkopie")
If Alle = vbYes Then
For Each Bl In Sheets
Call DBR(Bl)
Next
Else
Set Bl = ActiveSheet
Call DBR(Bl)
End If
Calculate
MsgBox ("Alle Funktionen wurden wertkopiert")
End Sub
Private Sub DBR(Bl)
Dim Z
On Error Resume Next
For Each Z In Bl.Cells.SpecialCells(xlCellTypeFormulas)
Select Case Left(Z.Formula, 4)
Case "=DBR", "=DBS", "=SUB", "=VIE", "=DIM"
Z.Value = Z.Value
End Select
Next Z
End Sub