Werkbladen in 1 keer beveiligen behalve werkblad

[arienlans]

Beste helpers

Ik gebruik deze code om de werkbladen te beveiligen.

Sub Opheffen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Unprotect "54321"
Next
End Sub
Sub beveiligen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "54321"
Next
End Sub

nu wil ik het werkblad met alle data juist niet beveiligd hebben. Kan ik hier een uitzondering voor maken en hoe doe ik dit?

Arien

 

[AHulpje]

Zo:

Sub Opheffen()
    For Each sht In Worksheets
        If sht.Name <> "Data" Then sht.Unprotect "54321"
    Next
End Sub

Sub beveiligen()
    For Each sht In Worksheets
        If sht.Name <> "Data" Then sht.Protect "54321"
    Next
End Sub

 

[arienlans]

aHulpje,
Super mooie code.
Precies wat ik nodig had en werkt top.
Dankjewel

Arien

 

[mvdvlist]

En evt knop(pen) op werkblad met wachtwoord:

Sub beveiligen()
 If Range("A1").Value = "54321" Then 'Of
  If  Inputbox("Wachtwoord?") = "54321" Then
    For Each sht In Worksheets
        If sht.Name <> "Data" Then sht.Protect "54321"
    Next
      else
       Exit Sub
 End If
End Sub

Uiteraard aanpassen bij beide codes, of alles in EEN knop..