Opphev beskyttelse Grupper av regneark

Excel lar deg beskytte og fjerne beskyttelse regneark. Hensikten, selvfølgelig, er å la andre bruke arbeidsboken, men ikke til å endre visse celler i hvert regneark.

Siden beskyttelse er gjort på et regneark nivå, kan det være stor smerte å gå gjennom hvert regneark i en arbeidsbok og enten eller fjerne beskyttelse dem. Hvis du har 25 regneark, må du aktivere hvert regneark, gjør eller fjerne beskyttelse, og gå videre til neste.

En mindre tidkrevende metode for å beskytte hvert regneark i en arbeidsbok, er å bruke en makro til å gjøre selve arbeidet. Følgende makro vil gjøre triks:

Sub ProtectAllSheets ()
Dim ws As regneark
Dim sOrigSheet As String
Dim sOrigCell As String
Dim J As Integer

Application.ScreenUpdating = False
sOrigSheet = ActiveSheet.Name
sOrigCell = ActiveCell.Address

For hver ws i regneark
ws.Select
ws.Protect Passord: = "passord"
Neste ws

Application.GoTo Annonse: = Regneark ("" _
& SOrigSheet & "") .Range ("" & sOrigCell & "")
Application.ScreenUpdating = True
End Sub

Makro å oppheve alle regnearkene er bare litt annerledes:

Sub UnProtectAllSheets ()
Dim ws As regneark
Dim sOrigSheet As String
Dim sOrigCell As String
Dim J As Integer

Application.ScreenUpdating = False
sOrigSheet = ActiveSheet.Name
sOrigCell = ActiveCell.Address

For hver ws i regneark
ws.Select
ws.Unprotect Passord: = "passord"
Neste ws

Application.GoTo Annonse: = Regneark ("" _
& SOrigSheet & "") .Range ("" & sOrigCell & "")
Application.ScreenUpdating = True
End Sub

Mens disse makroene vil fungere helt fint, det er et par advarsler. Først må du sørge for at Passord variabel i hver makro er satt til riktig passord for regnearkene. (Dette forutsetter selvsagt at alle regnearkene bruker samme passord.) Det andre forbeholdet er at siden makroen har å inkludere passord, kan den generelle sikkerheten til arbeidsboken bli kompromittert-noen som kan vise makroene vil vite hva passordene er for arbeidsbøkene dine.

Som en løsning på dette siste problemet, kan du endre makroer, slik at de ber om et passord for å bruke i sitt arbeid. Følgende vil være den versjonen av makroen som beskytter regneark:

Sub ProtectAllSheetsPass ()
Dim ws As regneark
Dim sOrigSheet As String
Dim sOrigCell As String
Dim J As Integer
Dim sPWord As String

Application.ScreenUpdating = False
sOrigSheet = ActiveSheet.Name
sOrigCell = ActiveCell.Address

sPWord = InputBox ("Hva passord?", "Protect All")
Hvis sPWord> "" Then
For hver ws i regneark
ws.Select
ws.Protect Passord: = sPWord
Neste ws
End If
Application.GoTo Annonse: = Regneark ("" _
& SOrigSheet & "") .Range ("" & sOrigCell & "")
Application.ScreenUpdating = True
End Sub

Makroen viser en inngang boks som spør etter passordet. Det samme passordet brukes deretter til å beskytte alle regneark i arbeidsboken. Den samme typen endring kan gjøres for å makroen som opphever beskyttelse alle regnearkene.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (13075) gjelder for Microsoft Excel 2007, 2010, og 2013. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: Opphev beskyttelse Grupper av regneark.