Worksheet protection
The code below is what I want to use to protect my worksheets (if a certain
condition is met) Everything works well in that the Protect sub prevents the selection of any cells. My problem is with the UnProtect routine. When it runs it asks for a password (which I would prefer not to have) and it displays each worksheet as it runs. When the Protect code runs it does not display each worksheet yet each one is protected. Dim Shts As Worksheet Sub UnProtectAllSheets() Shts.Unprotect Next End Sub Sub ProtectAllSheets() For Each Shts In ThisWorkbook.Worksheets Shts.Protect EnableSelection = xlNoSelection Next End Sub |
Worksheet protection
Sub UnProtectAllSheets()
Application.Screenupdating = False for each Shts in Sheets Shts.Unprotect password:="Put the password here" Next Application.Screenupdating = True End Sub Bob Umlas Excel MVP "ordnance1" wrote: The code below is what I want to use to protect my worksheets (if a certain condition is met) Everything works well in that the Protect sub prevents the selection of any cells. My problem is with the UnProtect routine. When it runs it asks for a password (which I would prefer not to have) and it displays each worksheet as it runs. When the Protect code runs it does not display each worksheet yet each one is protected. Dim Shts As Worksheet Sub UnProtectAllSheets() Shts.Unprotect Next End Sub Sub ProtectAllSheets() For Each Shts In ThisWorkbook.Worksheets Shts.Protect EnableSelection = xlNoSelection Next End Sub . |
Worksheet protection
Thanks sir
I entered your code see below, and I protected each sheet with the password snow but when the code runs I am prompted to enter the password for each sheet. Sub UnProtectAllSheets() Application.ScreenUpdating = False 'Unprotects ALL worksheets For Each Shts In ThisWorkbook.Worksheets Shts.Unprotect Password:=snow Next Application.ScreenUpdating = True End Sub "Bob Umlas, Excel MVP" wrote in message ... Sub UnProtectAllSheets() Application.Screenupdating = False for each Shts in Sheets Shts.Unprotect password:="Put the password here" Next Application.Screenupdating = True End Sub Bob Umlas Excel MVP "ordnance1" wrote: The code below is what I want to use to protect my worksheets (if a certain condition is met) Everything works well in that the Protect sub prevents the selection of any cells. My problem is with the UnProtect routine. When it runs it asks for a password (which I would prefer not to have) and it displays each worksheet as it runs. When the Protect code runs it does not display each worksheet yet each one is protected. Dim Shts As Worksheet Sub UnProtectAllSheets() Shts.Unprotect Next End Sub Sub ProtectAllSheets() For Each Shts In ThisWorkbook.Worksheets Shts.Protect EnableSelection = xlNoSelection Next End Sub . |
All times are GMT +1. The time now is 04:39 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com