schreibschutz auflösen per Makro
27.12.2020 10:10:41
Roger
Irgendwie stehe ich auf dem Schlauch, das Blatt ist schreibgeschützt und soll trotzdem _ bearbeitet werden können durch das unten stehende Makro, wo habe ich den zusatz einzufügen damit es funktioniert?
Public Sub Übertragen_auf_Rechnung()
Sheets(4).Select
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Value = Date & ", " & Format(Time, "hh:mm:ss")
Dim raFund As Range
With Sheets(4)
Set raFund = .Columns(2).Find(what:=Sheets(3).Range("D5"), LookIn:=xlValues, _
lookat:=xlWhole)
If Not raFund Is Nothing Then
raFund.Offset(, 2) = Sheets(3).Range("L16")
End If
End With
Set raFund = Nothing
Sheets(3).Select
Range("G1").Select
Selection.ClearContents
End Sub