VBA-Beispiel 083
mail schreiben
mail schreiben

prüfen ob VBA-Projekt einer Exceldatei geschützt ist

Exceldatei öffnen und prüfen ob VBA-Projekt mit einem Passwort geschützt ist.
Sub VB_Schutz()
'prüfen ob VBA-Projekt einer Datei geschützt ist
'Extras - Eigenschafte von VBA-Projekt - Schutz
Dim Datei As String

'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")

'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei

'1 = VB-Projekt geschützt
'0 = VB-Projekt nicht geschützt
If Application.ActiveWorkbook.VBProject.Protection = 1 Then
  MsgBox "Projekt gesperrt:   " & ActiveWorkbook.Name
Else
  MsgBox "Projekt NICHT gesperrt:   " & ActiveWorkbook.Name
End If

ActiveWorkbook.Close savechanges:=False

End Sub

Download:   vba083.zip