From: OMER on
Is there a way to know (using VBA code) if a workbook's VBA project is
password protected?
In other words, I want to be able to know if the workbook's macros are
running on a password protected or un-protected VBA Poject?

From: Dave Peterson on
Dim wkbk As Workbook
Set wkbk = Workbooks("yourworkbooknamehere.xls")

If wkbk.VBProject.Protection = vbext_pp_locked Then
MsgBox "it's locked"
Else
MsgBox "It's not"
End If

==========
I _think_ that this was added in xl2k. But you'll want to test it in all the
versions of excel that you're supporting.

OMER wrote:
>
> Is there a way to know (using VBA code) if a workbook's VBA project is
> password protected?
> In other words, I want to be able to know if the workbook's macros are
> running on a password protected or un-protected VBA Poject?

--

Dave Peterson
From: OMER on
Thank You Dave. It worked.
I changed vbext_pp_locked to 1 because the reference to VB extensibility is
not set.


"Dave Peterson" wrote:

> Dim wkbk As Workbook
> Set wkbk = Workbooks("yourworkbooknamehere.xls")
>
> If wkbk.VBProject.Protection = vbext_pp_locked Then
> MsgBox "it's locked"
> Else
> MsgBox "It's not"
> End If
>
> ==========
> I _think_ that this was added in xl2k. But you'll want to test it in all the
> versions of excel that you're supporting.
>
> OMER wrote:
> >
> > Is there a way to know (using VBA code) if a workbook's VBA project is
> > password protected?
> > In other words, I want to be able to know if the workbook's macros are
> > running on a password protected or un-protected VBA Poject?
>
> --
>
> Dave Peterson
> .
>