Macro werkt niet na beveiliging werkblad

[Marrosi]

Volgend mooi stukje code (afkomstig van Ingrid B.) sorteert een tabel bij het rechts-klikken op een kolom-header.

Private Sub
Worksheet_BeforeRightClick(byVal Target As Range, Cancel As boolean)
If Intersect(Target, Range”A1:C1”)) Is Nothing Then Exit Sub
Selection.CurrentRegion.Sort Key1:=Target, Order1:=xlAscending, Header:=xlYes
Cancel = True
End Sub

Alles werkt schitterend tot wanneer ik het werkblad beveilig (met uitzondering van de cellen A1 tot en met C1) dan geeft de code een foutmelding wanneer ik op de cellen A1, B1 of C1 klik.

Is dit op te lossen? en vooral ..... HOE?

Dank bij voorbaat voor alle sugesties.

Marrosi

 

[#1Hans?]

bladbeveiliging

Zet aan het begin van de macro:
ActiveSheet.Unprotect
en aan het eind:
ActiveSheet.Protect

Dan zou het moeten lukken

Hans

 

[Ingrid B]

In plaats van Unprotect kan je ook volgende methode gebruiken:

Private Sub Workbook_Open()
  Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub

Kopieer de macro naar ThisWorkbook.

Met deze code wordt het werkblad enkel beveiligd voor normaal gebruik, de macro's kunnen blijven werken.

 

[Marrosi]

Bedankt, Ingrid en Hans, daarmee kan ik weer verder!