Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim rng As Range
   For Each rng In Target.Cells
     
If rng.HasFormula Then
         
ActiveSheet.Protect
       
Exit Sub
   
Else  
         ActiveSheet.Unprotect
      End If
   Next rng
End Sub

نظرات (1)
سه‌شنبه 17 بهمن‌ماه سال 1396 ساعت 10:38 ق.ظ
سلام ممنون
امتیاز: 0 0
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
نام :
پست الکترونیک :
وب/وبلاگ :
ایمیل شما بعد از ثبت نمایش داده نخواهد شد