Blattschutz für definierten Bereich
25.11.2016 08:51:03
Al
ich würde gerne in einem Blatt eine Grafik einfügen und habe hierfür auch schon in unserem Forum das entsprechende Makro gefunden. Ich würde die Codezeilen dahingehend modifizieren wollen, dass nach dem Einfügen einer Grafik der Bereich A6:H63 weiterhin nicht gesperrt bleibt. Anbei der Code:
Sub Bild_einfügen()
Dim Zelle As Range
Dim ScaleA As Double
Set Zelle = Range("A8:H63") 'hier wird das bild eingefügt
If Application.Dialogs(xlDialogInsertPicture).Show Then
'ActiveSheet.Unprotect Password:="test"
With Selection.ShapeRange
.Top = Zelle.Top
.Left = Zelle.Left
ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
.Height = .Height * ScaleA
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
'ActiveSheet.Protect Password:="test"
End If
End Sub
Gruß