Auto Refresh and Protecting a Sheet

[eighthman11]

Hello Everyone,

Using excel 2003.

Quick Question - I have an excel spreadsheet that is "sheet
protected". I have an ODBC connection that refreshes the spreadsheet
when it is opened, so in the On_Open event of the
workbook I have code to unprotect the sheet so the refresh will work.

Here's the question. Where in the world can I place the code to
reprotect the workbook after the
user clicks the "Enable automatic refresh' button. Any help
appreciated. Thanks Ray

 

[Alex Simmons]

Hello Everyone,

Using excel 2003.

Quick Question - I have an excel spreadsheet that is "sheet
protected".  I have an ODBC connection that refreshes the spreadsheet
when it is opened, so in the On_Open event of the
workbook I have code to unprotect the sheet so the refresh will work.

Here's the question.  Where in the world can I place the code to
reprotect the workbook after the
user clicks the "Enable automatic refresh' button.  Any help
appreciated.  Thanks Ray

Ray,

Could you copy your code so we can see what the automatic refresh
does? Ie how often it refreshes and so on? It'll be much easier to see
what you're asking then.

Regards,

Alex

 

[eighthman11]

Ray,

Could you copy your code so we can see what the automatic refresh
does? Ie how often it refreshes and so on? It'll be much easier to see
what you're asking then.

Regards,

Alex

Alex,
I did an "Import Data" from the "Data" tab and then clicked on the
"Data Range Property" so I could select to have the spreadsheat
refreshed when it is opened. The spreadsheet is protected so I had to
unprotect it with code when the spreadsheet is opened. Now after the
refresh I need to reprotect it but I don't know where to place the
code.

 

[Alex Simmons]

Alex,
I did an "Import Data" from the "Data" tab and then clicked on the
"Data Range Property" so I could select to have the spreadsheat
refreshed when it is opened.  The spreadsheet is protected so I had to
unprotect it with code when the spreadsheet is opened.  Now after the
refresh I need to reprotect it but I don't know where to place the
code.

It should be the last part of the procedure - just add something like:

Worksheets("Sheet1").Protect "password"

Which will then re-protect the sheet.