Macro uitvoeren op beveiligde bladen

[Rob Embrace]

Hallo Experts,

In een Exel project heb ik een macro opgenomen, deze werkt perfect maar niet meer als de bladen en de werk map beveiligt zijn.

Het is de bedoeling dat de macro onder de knop "nieuw project invoegen" op tab jaar planning 2020 blijft werken als de bladen en werkmap beveiligt is.

Kan iemand mij vertellen wat ik hier aan kan doen?

 

Voor de duidelijkheid is het bewuste bestand bijgevoegd.

 

Mvg,

Rob

 

Planning 2020 1.0.xlsm

[Haije]

Lukt het hiermee wel?

Sub Macro1()
'
' Macro1 Macro
' project invoegen
'
With ActiveSheet
    .Unprotect
    .Range("$A$1:$OM$295").AutoFilter Field:=1
    .Range("$A$1:$OM$295").AutoFilter Field:=2
    .Range("$A$1:$OM$295").AutoFilter Field:=3
    .Protect
End With
    Sheets("Blad1").Select
    Rows("4:48").Select
    Selection.Copy
    Sheets("Jaar planning 2020").Select
    ActiveWindow.SmallScroll Down:=21
    Rows("41:41").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=-24
    ActiveSheet.Range("$A$1:$OM$340").AutoFilter Field:=3, Criteria1:="="
    Range("D41").Select
End Sub

[emielDS]

Als je deze macro een beetje vlot wil laten lopen begin dan eerst met alle samengevoegde cellen te verwijderen.

 

 

[emielDS]

om te laten zien hoe simpel het kan zijn.

andere planning.xlsm

[Rob Embrace]

Heren,

 

bedankt voor de zeer welkome en leerzame input.

De oplossing die is aangedragen werkt zeker, echter ben ik vergeten te melden dat dit bestand gedeeld wordt en gelijktijdig door diverse mensen wordt gebruikt. En dan wordt er een fout melding gegeven.

Is hier nog een oplossing voor?

 

Alvast heel erg bedankt voor de input.

 

Rob 

[Rob Embrace]

Is er iemand die mij wil/kan helpen?

[emielDS]

blijkbaar zullen we zelf moeten komen kijken welke foutmelding hij geeft?

[Rob Embrace]

Excuus, het is inderdaad handig om het een en ander uit te leggen.

Op het moment dat het bestand op een ander pc wordt geopend komt er een fout melding "Fout 1004 tijdens uitvoering Door de toepassing of door object gedefinieerde fout."

En als ik dan deze foutmelding beëindig en de macro ga uitvoeren komt de volgende foutmelding "Fout 1004 tijdens uitvoering Methode unprotect van klasse Worksheet is mislukt.

 

Lukt het hiermee of is er nog meer info nodig?

Alvast bedankt voor het kijken,

 

Rob

 

[emielDS]

Als we nu nog weten welke macro je gebruikt zal er wel een oplossing volgen.

[Rob Embrace]

Excuus, het is inderdaad handig om het een en ander uit te leggen.

Op het moment dat het bestand op een ander pc wordt geopend komt er een fout melding "Fout 1004 tijdens uitvoering Door de toepassing of door object gedefinieerde fout."

En als ik dan deze foutmelding beëindig en de macro ga uitvoeren komt de volgende foutmelding "Fout 1004 tijdens uitvoering Methode unprotect van klasse Worksheet is mislukt.

 

Lukt het hiermee of is er nog meer info nodig?

Alvast bedankt voor het kijken,

 

Rob