Bin neu hier und gespannt ob mir jemand helfen kann.
Folgendes Problem.
Ich habe eine Datei mit aufwendigen Formeln, die von vielen Personen genutzt werden soll. Um das unabsichtliche verändern dieser Datei zu verhindern, habe ich
die Datei über folgendes Makro (auch in einem Forum gefunden) geschützt.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("MyDefinedRange")) Is Nothing Then
ActiveSheet.Protect Password:="test", DrawingObjects:=False, Contents:=False, Scenarios:=False, UserInterfaceOnly:=True
'Blattschutz aufheben.
Else
ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
'Blatt schützen.
End If
End Sub
Damit bleiben meine Formeln sicher und andere können den definierten Bereich nach ihren Wünschen bearbeiten.
Nun möchte ich aber auch das kopieren von Daten in dem freigegebenen Bereich erlauben. Dies wird aber über dieses Makro verhindert, weil die Anwahl einer neuen Zelle, nach dem kopieren, die zu kopierende Zelle deaktiviert.
Kann mir jemand einen Tipp geben?
Danke schon mal
Peter