Proteger uma planilha do excel, mas permitir a edição de algumas céluas

Question

Estou desenvolvendo uma aplicação necessito proteger uma planilha do excel, porém algumas células e colunas devem ficar desprotegidas par permitir a edição.  Alguém sabe como fazer isso através de código VBA? ...range[A1].locked := False não funciona.

Desde já agradeço a ajuda.

Answer 1

Sérgio....

Segue código...

Sub Teste()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Sheets("Plan1")
  
  sht.Range("E7:G11,H13:K18").Locked = False
  sht.Protect
End Sub

---

Natan