Sub RefreshProtected()
ActiveWorkbook.Sheets("YourSheetName").Unprotect ("YourPassword")
ActiveWorkbook.RefreshAll
ActiveWorkbook.Sheets("YourSheetName").Protect("Yo urPassword")
End Sub

There are other more detailed levels of protection you can add to the
protection code, but this in its simplest form would do what you are
looking for.

You could assign this to an active control button within your sheet.

Celtic_Avenger


--
Celtic_Avenger
------------------------------------------------------------------------
Celtic_Avenger's Profile: http://www.excelforum.com/member.php...o&userid=14101
View this thread: http://www.excelforum.com/showthread...hreadid=273974