Proteger folhas de Excel
Se pretender proteger todas as suas folhas de Excel de uma só vez….aqui fica o código! 😉
Depois de executar basta inserir a password!
Sub ProtegerFolhas()
Dim ws As Worksheet
Dim ps As String
ps = InputBox(“Digite a password!”, vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=ps
Next ws
End Sub
