Saltar para o conteúdo
Consultoria · Automação · Dados · Digital
← Blog

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

Da ideia à solução

Tem um desafio tecnológico ou digital para resolver?

Falamos sobre o contexto, identificamos opções e desenhamos uma abordagem pragmática.

Fale connosco
Show Buttons
Hide Buttons