Share a workbook and protect sharing (VBA)

[XLtech]

HI everyone,

I have a workbook that consists of 3 sheets ("Log in", "Visible" and "Database"). At start I have an "Open event" that secure that the workbook is fully protected and shared. The sheet "Database" is hidden at start and outline is active in sheet "Visible".

Here is the macro:

Please Login or Register  to view this content.

The above macro is not working properly because it doesn't protect the sharing of the workbook.

Later on I have another macro to Unprotect the workbook, disable shared and make the worksheet "Database" visible and open for changes.

Here is the macro:

Please Login or Register  to view this content.

This macro is not working properly either. When running it displays numerous ERROR messages depending on the changes I make to the macro. It's very unstable and partially not working. So I hope to find someone with enough knowledge to help me solve the problem.

Many thanks