resmi kilitlemek

[hakpin]

Aşağıdaki kodda ToggleButton ' a bağlı olan resmi ("Picture 644"). kullanıcıların yanlışlıkla üzerine tıklayarak silmemesi için kilitlemek istiyorum. Bunun için yardımcı olursanız sevinirim.Şimdiden çok teşekkür ederim. Not :Kilitlendiği zaman resmi ToggleButton tıkladığımda çağırabilmeliyim.
Ayrıntı ekteki dosyada mevcut

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Onay Aç / Kapa"
ActiveSheet.Shapes("Picture 644").Select
Selection.ShapeRange.IncrementLeft -578#
Selection.ShapeRange.IncrementTop 0.01
Range("o16").Select
Else
ToggleButton1.Caption = "Onay Aç / Kapa"

ActiveSheet.Shapes("Picture 644").Select
Selection.ShapeRange.IncrementLeft 578#
Selection.ShapeRange.IncrementTop 0.01
Range("o16").Select
End If

End Sub