Hi,
I need to ensure that users keep updating software in VBA. So I need to warn
them, say 1 month in advance and past that, I need to disable their access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

Hi Paul
I wouldn't recommend this.
First: Easy to circumvent by an experienced user by disabling this code part
Second: Not sure if you're allowed to do 'deleting' code and the possible
legal consequences.

Bottom line: In Excel there's no real way to protect/secure your code

"count" wrote:

Hi,
I need to ensure that users keep updating software in VBA. So I need to warn
them, say 1 month in advance and past that, I need to disable their access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

Thanks Frank,
I still need the answer though.
The app and code are mine and users agree that it's better for them to have
dead application rather than one that lies about tax rebate rates - stuff is
serious!
They can disable that code, you say - that's why I prefer app to castrate
itself. They can still use backup and reimport missing module but in this
case my butt is safe.
So question is still open
Paul

U¿ytkownik "Frank Kabel" napisa³ w wiadomo¶ci
...
Hi Paul
I wouldn't recommend this.
First: Easy to circumvent by an experienced user by disabling this code
part
Second: Not sure if you're allowed to do 'deleting' code and the possible
legal consequences.

Bottom line: In Excel there's no real way to protect/secure your code

"count" wrote:

Hi,
I need to ensure that users keep updating software in VBA. So I need to
warn
them, say 1 month in advance and past that, I need to disable their
access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

If you must do it, you could hide the sheet, but in VBA you can hid to a
state of xlVeryHidden, which stops them un hiding in Excel itself as it
doesn't even show in the list of hidden worksheets.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"count" wrote in message
...
Thanks Frank,
I still need the answer though.
The app and code are mine and users agree that it's better for them to
have
dead application rather than one that lies about tax rebate rates - stuff
is
serious!
They can disable that code, you say - that's why I prefer app to castrate
itself. They can still use backup and reimport missing module but in this
case my butt is safe.
So question is still open
Paul

U¿ytkownik "Frank Kabel" napisa³ w wiadomo¶ci
...
Hi Paul
I wouldn't recommend this.
First: Easy to circumvent by an experienced user by disabling this code
part
Second: Not sure if you're allowed to do 'deleting' code and the
possible
legal consequences.

Bottom line: In Excel there's no real way to protect/secure your code

"count" wrote:

Hi,
I need to ensure that users keep updating software in VBA. So I need to
warn
them, say 1 month in advance and past that, I need to disable their
access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

http://groups.google.com/groups?thre...%40tkmsftngp07


''Needs a reference to the VB Extensibility library set
'Removes from active workbook all:
''Regular modules
''Class modules
''Userforms
''Code in sheet and workbook modules
''Non built-in references
''Excel 4 macro sheets
''Dialog sheets
Sub RemoveAllCode()
Dim VBComp As Object, AllComp As Object, ThisProj As Object
Dim ThisRef As Reference, WS As Worksheet, DLG As DialogSheet
Set ThisProj = ActiveWorkbook.VBProject
Set AllComp = ThisProj.VBComponents
For Each VBComp In AllComp
With VBComp
Select Case .Type
Case vbext_ct_StdModule, vbext_ct_ClassModule, _
vbext_ct_MSForm
AllComp.Remove VBComp
Case vbext_ct_Document
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
End Select
End With
Next
For Each ThisRef In ThisProj.References
If Not ThisRef.BuiltIn Then ThisProj.References.Remove ThisRef
Next
Application.DisplayAlerts = False
For Each WS In Excel4MacroSheets
WS.Delete
Next
For Each DLG In DialogSheets
DLG.Delete
Next
End Sub

above previously posted by Jim Rech.

--
Regards,
Tom Ogilvy

"count" wrote in message
...
Thanks Frank,
I still need the answer though.
The app and code are mine and users agree that it's better for them to
have
dead application rather than one that lies about tax rebate rates - stuff
is
serious!
They can disable that code, you say - that's why I prefer app to castrate
itself. They can still use backup and reimport missing module but in this
case my butt is safe.
So question is still open
Paul

U¿ytkownik "Frank Kabel" napisa³ w wiadomo¶ci
...
Hi Paul
I wouldn't recommend this.
First: Easy to circumvent by an experienced user by disabling this code
part
Second: Not sure if you're allowed to do 'deleting' code and the
possible
legal consequences.

Bottom line: In Excel there's no real way to protect/secure your code

"count" wrote:

Hi,
I need to ensure that users keep updating software in VBA. So I need to
warn
them, say 1 month in advance and past that, I need to disable their
access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

Tom,
Thanks, Danke, Merci!
wwwbwy?! (where will we be without you?)
Paul

U¿ytkownik "Tom Ogilvy" napisa³ w wiadomo¶ci
...
http://groups.google.com/groups?thre...%40tkmsftngp07


''Needs a reference to the VB Extensibility library set
'Removes from active workbook all:
''Regular modules
''Class modules
''Userforms
''Code in sheet and workbook modules
''Non built-in references
''Excel 4 macro sheets
''Dialog sheets
Sub RemoveAllCode()
Dim VBComp As Object, AllComp As Object, ThisProj As Object
Dim ThisRef As Reference, WS As Worksheet, DLG As DialogSheet
Set ThisProj = ActiveWorkbook.VBProject
Set AllComp = ThisProj.VBComponents
For Each VBComp In AllComp
With VBComp
Select Case .Type
Case vbext_ct_StdModule, vbext_ct_ClassModule, _
vbext_ct_MSForm
AllComp.Remove VBComp
Case vbext_ct_Document
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
End Select
End With
Next
For Each ThisRef In ThisProj.References
If Not ThisRef.BuiltIn Then ThisProj.References.Remove ThisRef
Next
Application.DisplayAlerts = False
For Each WS In Excel4MacroSheets
WS.Delete
Next
For Each DLG In DialogSheets
DLG.Delete
Next
End Sub

above previously posted by Jim Rech.

--
Regards,
Tom Ogilvy

"count" wrote in message
...
Thanks Frank,
I still need the answer though.
The app and code are mine and users agree that it's better for them to
have
dead application rather than one that lies about tax rebate rates - stuff
is
serious!
They can disable that code, you say - that's why I prefer app to castrate
itself. They can still use backup and reimport missing module but in this
case my butt is safe.
So question is still open
Paul

U¿ytkownik "Frank Kabel" napisa³ w wiadomo¶ci
...
Hi Paul
I wouldn't recommend this.
First: Easy to circumvent by an experienced user by disabling this code
part
Second: Not sure if you're allowed to do 'deleting' code and the
possible
legal consequences.

Bottom line: In Excel there's no real way to protect/secure your code

"count" wrote:

Hi,
I need to ensure that users keep updating software in VBA. So I need
to
warn
them, say 1 month in advance and past that, I need to disable their
access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

"count" wrote in message ...
Hi,
I need to ensure that users keep updating software in VBA. So I need to warn
them, say 1 month in advance and past that, I need to disable their access
to crucial module.
I thought of removing that module. How do I do that programmatically?
TIA
Paul

Rather than bothering to unload the xla I would just make sure that
all the functions generate an error, or return #Value, if it is out of
date.

To return #Value use the following:

Public Function FunctionErrVal() As Variant
FunctionErrVal = CVErr(2015)
End Function