Passwort aufheben im Makro
Tim
ich habe ein Makro welches soweit auch wunderbar funktioniert. Allerdings nur solange kein Passwortschutz auf meinem Registerblatt liegt. Hier brauche ich nun eure Hilfe:
Das Makro müsste ergänzt werden, dass bevor die Wertkopie erstellt wird, das Passwort aufgehoben wird und am Ende wieder reingesetzt wird:
Sub Wertkopie()
Calculate
Dim Bereich As Range
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Endspalte = Selection.Columns(Selection.Columns.Count).Column
EndZeile = Selection.Rows(Selection.Rows.Count).Row
Startspalte = 1
Startzeile = 1
Set Bereich = Range(Cells(Startzeile, Startspalte), Cells(EndZeile, Endspalte))
For Each z In Bereich
On Error Resume Next
' Wertkopie für DBRn, DBSn, SUBNM, VIEW und DIMNM - Funktionen:
If InStr(z.Formula, "DBR") Or _
InStr(z.Formula, "DBS") Or _
InStr(z.Formula, "SUBNM") Or _
InStr(z.Formula, "VIEW") Or _
InStr(z.Formula, "DIMNM") Then
z.Value = z.Value
End If
Next z
Range("A1").Select
Für eure Hilfe bedanke ich mich im Voraus.
Tim