unprotect sheet macro
Hi All
I have a macro that is listed below It will be used for security keep people from unauthorized use of my excel file Anyways. The macro listed below works gret. However I need to add additional code to have the macro unprotect each sheet before it can clear the cells as stated in the original macro. Is anyone able to help with the code needed to unprotect each sheet. Private Sub Workbook_Open() Sheets(1).Activate If Date Range("A1").Value Then For Each sh In Sheets sh.Cells.Clear Next ActiveWorkbook.Save End If End Sub Thanks -- cruchnin numbers |
unprotect sheet macro
Is it always the same password:
Option Explicit Private Sub Workbook_Open() dim Sh as worksheet dim PWD as string pwd = "TopSecret If Date me.sheets(1).Range("A1").Value Then For Each sh In Sheets sh.unprotect password:=pwd sh.Cells.Clear sh.protect password:=pwd Next me.Save End If End Sub But it really won't stop too many people. The ones that want your workbook will just open a backup version with macros disabled (or just stop those autorunning macros). belvy123 wrote: Hi All I have a macro that is listed below It will be used for security keep people from unauthorized use of my excel file Anyways. The macro listed below works gret. However I need to add additional code to have the macro unprotect each sheet before it can clear the cells as stated in the original macro. Is anyone able to help with the code needed to unprotect each sheet. Private Sub Workbook_Open() Sheets(1).Activate If Date Range("A1").Value Then For Each sh In Sheets sh.Cells.Clear Next ActiveWorkbook.Save End If End Sub Thanks -- cruchnin numbers -- Dave Peterson |
unprotect sheet macro
Try adding sh.unprotect to your For/Next loop.
-- HTH, Barb Reinhardt "belvy123" wrote: Hi All I have a macro that is listed below It will be used for security keep people from unauthorized use of my excel file Anyways. The macro listed below works gret. However I need to add additional code to have the macro unprotect each sheet before it can clear the cells as stated in the original macro. Is anyone able to help with the code needed to unprotect each sheet. Private Sub Workbook_Open() Sheets(1).Activate If Date Range("A1").Value Then For Each sh In Sheets sh.Cells.Clear Next ActiveWorkbook.Save End If End Sub Thanks -- cruchnin numbers |
All times are GMT +1. The time now is 12:32 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com