Proteger Folhas Excel

Proteger Folhas Excel

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