Functie resetten door macro te stoppen

[PR3D4T0R]

Hallo,

Ik heb in Excel een macro gemaakt voor een blokkering over het hele werkblad. Dit ziet er als volgt uit

Private Sub Workbook_Open()
Dim x As Long
For x = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(x)
.Protect Password:="Password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next x
End Sub

Deze macro werkt perfect, maar het kan voorkomen dat we het hele bestand moeten bewerken. Nu moeten we per blad de blokkering opheffen, is het mogelijk om dit via één knop te doen?

 

[Peter B]

Iets vergelijkbaars maar dan de code aan een knop hangen. En i.p.v. .protect natuurlijk .unprotect

Dus iets als (niet getest):

Private Sub Button_Click()
Dim x As Long
For x = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(x)
.UnProtect Password:="Password"
End With
Next x
End Sub

 

[PR3D4T0R]

Iets vergelijkbaars maar dan de code aan een knop hangen. En i.p.v. .protect natuurlijk .unprotect

Dus iets als (niet getest):

Private Sub Button_Click()
Dim x As Long
For x = 1 To ActiveWorkbook.Sheets.Count
With ActiveWorkbook.Sheets(x)
.UnProtect Password:="Password"
End With
Next x
End Sub

Dit werkt perfect, dank je wel. Ik heb het alleen wel gekoppeld aan een knop.