Lock Unlock (vba)

Sub Desprotege_Planilhas() Dim i As Integer ' faz um loop nas planilhas padr�o do excel ' caso haja mais do que 03 planilhas a serem desprotegidas altere o numero 3 pra a quantidade desejada For i = 1 To 13 Sheets(i).Unprotect Password:="" ' onde 123 � a senha informada Next i MsgBox "Planilhas desprotegidas com sucesso!!!" ' mensagem opcional End Sub Sub Protege_Planilhas() Dim i As Integer ' faz um loop nas planilhas padr�o do excel ' caso haja mais do que 03 planilhas a serem desprotegidas altere o numero 3 pra a quantidade desejada For i = 1 To 13 Sheets(i).Protect Password:="" ' onde 123 � a senha informada Next i MsgBox "Planilhas protegidas com sucesso!!!" ' mensagem opcional End Sub