Sub VB_Schutz()
'prfen ob VBA-Projekt einer Datei geschtzt ist
 'Extras - Eigenschafte von VBA-Projekt - Schutz
 Dim Datei As String

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

 'Ausgewhlte Datei ffnen
 Workbooks.Open Filename:=Datei

'1 = VB-Projekt geschtzt
 '0 = VB-Projekt nicht geschtzt
 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
