Blattschutz
13.08.2018 11:13:04
kai
hoffe mir kann jemand von euch mal schnell helfen.
Ich haben hier eine Code über das einfügen einer Grafik.
Beim klicken des Buttons ensperrt der Blattschutz und nach dem einfügen der Grafik wird der Blattschutz wieder gesetzt. Soweit alles TOP :-)
Mein Problem:
Sollte ich den Button klicken und doch keine Grafik auswählen bzw. abbrechen bleibt der Blattschutz deaktiviert.
Es ist bestimmt nur eine Kleinigkeit, aber ich komme nicht drauf.
schonmal danke für jede Hilfe
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect Password:="xxx"
Dim Path As String
Dim pic As Picture
Path = Application.Dialogs(xlDialogInsertPicture).Show
If Path = True Then
Set pic = ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
With Selection.ShapeRange
.LockAspectRatio = False
.Width = Me.OLEObjects("Commandbutton2").Width
.Height = Me.OLEObjects("Commandbutton2").Height
.Left = Me.OLEObjects("Commandbutton2").Left
.Top = Me.OLEObjects("Commandbutton2").Top
End With
ActiveSheet.Protect DrawingObjects:=False 'Password:="xxx"
End If
End Sub
Gruß Kai