Ga naar inhoud

Macro uitvoeren op beveiligde bladen


Rob Embrace
 Delen

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites

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 

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.