Sheet "Isi Nama"

Private Sub Worksheet_Activate()
'====membuka kunci protect=========

Worksheets("isinama").Unprotect "1"
 

   '===menentukan cell yang bisa diedit=========
   Range("H4:K53").Locked = False
   
   
   
    
   Range("H3").Select
      
    
   
    
      
    ActiveWindow.Zoom = 100
    ActiveWindow.ScrollColumn = 1
   
   
   
  
 
   
Worksheets("isinama").Protect "1", userinterfaceonly:=True
 
End Sub