Wurde das aktive VBA-Projekt geöffnet?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Wurde das aktive VBA-Projekt geöffnet?
von: Peter
Geschrieben am: 08.07.2002 - 13:42:28

Liebe VBA-Experten,

weiss jemand, ob sich per VBA feststellen lässt, ob das geschützte aktive VBA-Project (z.B. nach Knacken des Project-Passwortes unberechtigterweise) geöffnet wurde?
Bin für jeden Hinweis dankbar.
Gruss
Peter


nach oben   nach unten

Re: Wurde das aktive VBA-Projekt geöffnet?
von: Hans W. Herber
Geschrieben am: 09.07.2002 - 07:42:52

Hallo Peter,

wie folgt:


Sub IsVbaOpen()
   Dim iCount As Integer
   On Error Resume Next
   iCount = ThisWorkbook.VBProject.VBComponents.Count
   If Err > 0 Then
      Err.Clear
      MsgBox "VBProjekt ist gesperrt!"
   Else
      MsgBox "VBProject ist offen!"
   End If
End Sub

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wurde das aktive VBA-Projekt geöffnet?"