Boa tarde!!

Use nossa base de dados (pesquisa)
Leia:
http://www.globaliconnect.com/excel/ind ... Itemid=475
Proteja seu projeto VBA e leia também:
http://www.tomasvasquez.com.br/forum/vi ... hzTA5K1Fcg

Private Sub Workbook_Open()
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        wks.Protect Password:="SuaSenha", UserInterfaceOnly:=True
    Next wks
End Sub

################

Sub Workbook_Open()
    Dim wSheet As Worksheet
     
    For Each wSheet In Worksheets
        wSheet.Protect Password:="SuaSenha", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        UserInterFaceOnly:=True, _
        AllowFiltering:=True
         
    Next wSheet
    MsgBox ("Planilhas protegidas")
End Sub
Sub Workbook_Open()
    Dim wSheet As Worksheet
     
    For Each wSheet In Worksheets
        wSheet.Unprotect Password:="SuaSenha"
    Next wSheet
    MsgBox ("Planilhas desprotegidas")
End Sub