AddIn to delete sheet

[Soniya]

Is it possible to restrict use of an addin to certain sheets?

for eg If the active workbook contains sheet ABC or DEF then delete the
sheet else run the function.

Thanks

 

[Guest]

This seems a reasonibly strange (if not dangerous) thing to want to do but:

Public Sub removeSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Debug.Print ws.Name
If ws.Name <> "Sheet1" Then
Application.DisplayAlerts = False
Worksheets(ws.Name).Delete
Application.DisplayAlerts = True
End If
Next
End Sub


You might consider opening the workbooks as read-only so you don't
accidentally lose data.


- Rm

 

[Soniya]

I think this wont work...

what i am looking for is to restrict the use of a function which is
available through a running Add In which is availbale globally.

the function gives a calculated result. I just want this function not
to work in certain sheets. for eg. if the sheet name is "abc" then
instead of the calculated result an "error" result will also do. in any
other case it shud give the result.

thanks

 

[Guest]

sorry I think I misunderstood....

for eg If the active workbook contains sheet ABC or DEF then delete the
sheet else run the function.

The code I posted will delete sheets in a workbook depending on their name.

the function gives a calculated result. I just want this function not
to work in certain sheets......

In this situation you could potentially use Activesheet.Name to get the name
of the sheet that is being used:

if activesheet.name <> "ABC" then
'Return a value
else
'Return error
end if

This isn't a perfect solution because there is the potential to use this
call calculate on sheet ABC with another sheet selected.

sheets("ABC").calculate

That could potentially return an undesirable result.

That's the best that I can think of. If it's really essential that the
function is not run on the wrong sheet. Say if you want to protect
confidental information, I suggest that you think about redesigning your
system and using the protection of private functions. I know this is what
you're trying to avoid.

The problem with using the sheet name to protect a function is that there is
nothing to stop a user renaming a sheet.


- Rm