Delete Macro

[Pamela]

Hi Guys!!!
I added this code this code and now I want to delete it:

Private Sub Workbook_Open()
'If you have different passwords
'for each Worksheet.
Sheets(1).Protect Password:="Secret", _
UserInterFaceOnly:=True


Sheets(3).Protect Password:="Secret", _
UserInterFaceOnly:=True


'Repeat as needed.
End Sub

I when inside (alt F11) and selected and delete but when I reopen the
workbook still is protected.
How I can delete the proteccion from the workbook?

thank you:
Pamela xoxo

 

[Gord Dibben]

The last statement in your now-deleted code protected the worksheets.

Deleting the code does not unprotect them.

Run this macro to unprotect all the sheets then save the workbook again.

Sub UnprotectAllSheets()
Application.ScreenUpdating = False
Dim N As Single
For N = 1 To Sheets.Count
Sheets(N).Unprotect Password:="Secret"
Next N
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

 

[Pamela]

The last statement in your now-deleted code protected the worksheets.

Deleting the code does not unprotect them.

Run this macro to unprotect all the sheets then save the workbook again.

Sub UnprotectAllSheets()
    Application.ScreenUpdating = False
    Dim N As Single
    For N = 1 To Sheets.Count
        Sheets(N).Unprotect Password:="Secret"
    Next N
    Application.ScreenUpdating = True
End Sub

Gord Dibben  MS Excel MVP








- Show quoted text -

Thank you!!!