• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro toepassen in beveiligde Excelsheet

Status
Niet open voor verdere reacties.

Broere

Nieuwe gebruiker
Lid geworden
22 dec 2016
Berichten
2
Ik ben op zoek naar een oplossing in onderstaande macro waardoor deze toepasbaar blijft in een Excelsheet met beveiligde cellen.

Sub Zwanger()
'
' Zwanger Macro
'
Rows("13:13").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
ActiveSheet.Range("$A$13:$U$51").AutoFilter Field:=3, Criteria1:="<>"
End Sub
 
Haal de beveiliging in het begin van de macro eraf en aan het eind zet je de beveiliging er weer op.
Gebruik anders de Zoekmachine van Helpmij, staat rechtsboven - Doorzoek dit forum
 
Code:
Sub Zwanger()
'
' Zwanger Macro
'
Activesheet.Unprotect "wachtwoord"
Rows("13:13").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
ActiveSheet.Range("$A$13:$U$51").AutoFilter Field:=3, Criteria1:="<>"
Activesheet.Protect  "wachtwoord"
End Sub
Dat wachtwoord is optioneel.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan