|
Hallo,
dies habe ich schon versucht. Es klappt auch, aber wenn ich Speichern klicke und die Datei schließe und wieder neu öffne, steht der alte Autorenname wieder da...
Mit deinem VBA-Code hab ich es jetzt auch versucht. Dann bekomme ich aber leider die Rückmeldung, dass ich nicht berechtigt bin, Signaturänderungen durchzuführen..
Hier der VBA-Code:
Private Sub Worksheet_Activate()
On Error Resume Next
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="Protected"
Range("H2").ClearContents
Range("C9:E65536").Locked = False
Range("C9:E65536").FormulaHidden = False
Range("C9:E65536").NumberFormat = "@"
If ThisWorkbook.Sheets("Konfiguration").Range("J4").Value = False Then Kopieren_Ausschneiden_Aus
ActiveSheet.Protect Password:="Protected", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
Kopieren_Ausschneiden_Ein
Application.Calculation = xlCalculationAutomatic
End Sub
|