|
 Essas macro e Função do Aplicativo Microsoft Excel VBA, verifica se o Projeto VBA está ou não protegido, e retorna uma mensagem, a senha da do Projeto VBA exemplo é: [ 1 ] , para acessar tecle [Alt + F11]
Sub retorna_projeto_protegido()
If ProtegidoVBProject(ActiveWorkbook) Then 'Exit Sub
MsgBox ("Projeto VBA Workbook protegido")
Else
Exit Sub
End If
End Sub
Function ProtegidoVBProject(ByVal wb As Workbook) As Boolean
Dim SABER As Integer
SABER = -1
On Error Resume Next
SABER = wb.VBProject.vbComponents.Count
On Error GoTo 0
If SABER = -1 Then
ProtegidoVBProject = True
Else
ProtegidoVBProject = False
End If
End Function
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
|