Se deseja proteger todas as suas planilhas de uma só vez, aqui está um código.
Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps
Ao executá-lo, receberá uma caixa de entrada para inserir uma senha. Depois de inserir sua senha, clique em OK. E não deixe de ter cuidado com o CAPS.
Sub ProtectAllWorskeets()
Dim ws As Worksheet
Dim ps As String
Let ps = InputBox("Digite o Password.", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=ps
Next ws
End Sub
PUDIM PROJECT
Conheça também:
Veja outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário