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

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

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