به من گفتند اینجا من جواب سوالم رو میگیرم ولی کسی جوابی نداده ؟؟؟؟

Private Sub CommandButton1_Click()
end sub
Private Sub CommandButton1_Click()
end sub
Sub Protect()
Set oSheet = ActiveSheet
For Each oShape In oSheet.Shapes
oShape.Locked = True
Next oShape
oSheet.Protect PassWord:="SECRET", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
کامنت