Makro stopt in verband dat de sheet is beveiligd

[athestreet]

Hallo allen,
Ik heb een probleempje wat betreft het draaien van 2 kleine makro's.
Het betreft het verzamelen van getallen en het maken van een grafiek. Wanneer ik op het blad de beveiliging er af haal werkt het goed, zodra de makro "verzamelen getallen" beveiligd is loopt het vast op aangegeven regel. Deze makro opent een vorige maand map en stopt enige gegevens in lopende maand. Beide sheets zijn beveiligd en horen ook zo te blijven. Steeds blijft het hangen bij de regel ActiveSheet.Paste Link:=True.

Workbooks.Open Filename:= _
"P:\IBV2011\IBV-Februari.xls"
Sheets("HOOFDBLAD").Select
Range("D317:G328").Select
Selection.Copy
Windows("IBV-Maart.xls").Activate
Range("D317:G328").Select
ActiveSheet.Paste Link:=True
Windows("IBV-Februari.xls").Activate
ActiveWorkbook.Close False
' maand van

Range("F303").Select
Selection.Copy
Range("D327").Select
ActiveSheet.Paste Link:=True
Range("E291:F291").Select
Application.CutCopyMode = False
Selection.Copy
Range("E327").Select
ActiveSheet.Paste Link:=True
Range("E296:F296").Select
Application.CutCopyMode = False
Selection.Copy
Range("F327").Select
ActiveSheet.Paste Link:=True
Range("F301").Select
Application.CutCopyMode = False
Selection.Copy
Range("G327").Select
ActiveSheet.Paste Link:=True
Range("G313").Select


Wat betreft grafiek zelfde probleem alleen stopt het bij het aanmaken van grafiek op een nieuw blad.


Range("C316:G328").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("HOOFDBLAD").Range("C316:G328"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="HOOFDBLAD"
ActiveChart.Axes(xlValue).Select
ActiveChart.PlotArea.Select
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(2).ChartType = xlLineMarkersStacked


Bij onderstaande regel blijft het hangen.
ActiveChart.Location Where:=xlLocationAsObject, Name:="HOOFDBLAD"

Ik heb geen ervaring met VBA.

 

[sylvester-ponte]

overal waar staat:
ActiveSheet.Paste Link:=True
zet je :
ActiveSheet.Unprotect
ActiveSheet.Paste Link:=True
ActiveSheet.Protect

groet sylvester

 

[athestreet]

overal waar staat:
ActiveSheet.Paste Link:=True
zet je :
ActiveSheet.Unprotect
ActiveSheet.Paste Link:=True
ActiveSheet.Protect

groet sylvester

Hallo Sylvester,

Bedankt voor je snelle reactie. Wanneer ik dit invoeg, vraagt het systeem nu om het wachtwoord in te voeren via een pop up?
Wat kan hiervoor de oplossing zijn. Ook als ik daarna het ww intoets blijft het stranden bij de regel ActiveSheet.Paste Link

 

[athestreet]

makro problemen met beveiligde sheets

Hallo Sylvester,

Bedankt voor je snelle reactie. Wanneer ik dit invoeg, vraagt het systeem nu om het wachtwoord in te voeren via een pop up?
Wat kan hiervoor de oplossing zijn. Ook als ik daarna het ww intoets blijft het stranden bij de regel ActiveSheet.Paste Link

 

[Cobbe]

Kun je geen bestand posten om te zien wat er fout loopt?

Je hoeft die Unprotectcode maar eenmaal te gebruiken aan het begin van je macro.

ActiveSheet.Unprotect Passwrd:="GEHEIM"

ActiveSheet.Protect Passwrd:="GEHEIM"

en aan het einde.

Cobbe

 

[athestreet]

Kun je geen bestand posten om te zien wat er fout loopt?

Je hoeft die Unprotectcode maar eenmaal te gebruiken aan het begin van je macro.

ActiveSheet.Unprotect Passwrd:="GEHEIM"

ActiveSheet.Protect Passwrd:="GEHEIM"

en aan het einde.

Cobbe

 

[athestreet]

Helaas werkt het niet.
Ik heb de bestanden nu eindelijk kunnen plaatsen. Ik hoop dat u hier genoeg aan heeft.
Ik kom er nog steeds niet uit.

 

[Cobbe]

Hier is je code 'Test()'

Sub test()
'
'

ActiveSheet.Unprotect Password:="andre"
Workbooks.Open Filename:="c:\tiedelijk\Maart.xls"
    Sheets("HOOFDBLAD").Range("D317:G328").Copy
    Windows("April.xls").Activate
    Range("D317:G328").Select
    ActiveSheet.Paste Link:=True
    Windows("Maart.xls").Activate
    ActiveWorkbook.Close False
' maand van
    Range("F303").Copy
    Range("D320").Select
    ActiveSheet.Paste Link:=True
    Range("E291:F291").Copy
    Range("E320").Select
    ActiveSheet.Paste Link:=True
    Range("E296:F296").Copy
    Range("F320").Select
    ActiveSheet.Paste Link:=True
    Range("F301").Copy
    Range("G320").Select
    ActiveSheet.Paste Link:=True
 ActiveSheet.Protect Password:="andre"
End Sub

Ik weet niet echt wat die codes allemaal doen omdat ik niet het complete bestand heb in de juiste directory.
Maar het zou zo moeten werken.

Cobbe

 

[athestreet]

ongelooflijk bedankt

Hallo Cobbe,

Wat ontzettend snel heb je dit opgelost en met een heleboel regels minder.
Ik wil je hier graag voor bedanken.
Nog een klein vraagje kun je bij koppelingen bijwerken dit ook automatisch doorlaten gaan door een commando in VBA te zetten. Dit gaat door meerdere mensen worden gebruikt.
Ik wens alvast een heel gelukkig maar vooral gezond 2011 toe en nogmaals heel veel bedankt.

gr
Athestreet:thumb::thumb::thumb:

Hier is je code 'Test()'

Sub test()
'
'

ActiveSheet.Unprotect Password:="andre"
Workbooks.Open Filename:="c:\tiedelijk\Maart.xls"
    Sheets("HOOFDBLAD").Range("D317:G328").Copy
    Windows("April.xls").Activate
    Range("D317:G328").Select
    ActiveSheet.Paste Link:=True
    Windows("Maart.xls").Activate
    ActiveWorkbook.Close False
' maand van
    Range("F303").Copy
    Range("D320").Select
    ActiveSheet.Paste Link:=True
    Range("E291:F291").Copy
    Range("E320").Select
    ActiveSheet.Paste Link:=True
    Range("E296:F296").Copy
    Range("F320").Select
    ActiveSheet.Paste Link:=True
    Range("F301").Copy
    Range("G320").Select
    ActiveSheet.Paste Link:=True
 ActiveSheet.Protect Password:="andre"
End Sub

Ik weet niet echt wat die codes allemaal doen omdat ik niet het complete bestand heb in de juiste directory.
Maar het zou zo moeten werken.

Cobbe

 

[Cobbe]

Sub test()
' dit schakelt de schermvragen uit
[B][COLOR="red"]Application.DisplayAlerts = False[/COLOR][/B]
' dit voorkomt de schermflikkeringen
[COLOR="red"][B]Application.ScreenUpdating = False[/B][/COLOR]

' dit haalt de beveiliging weg
ActiveSheet.Unprotect Password:="andre"

Workbooks.Open Filename:="c:\tiedelijk\Maart.xls"
    Sheets("HOOFDBLAD").Range("D317:G328").Copy
    Windows("April.xls").Activate
    Range("D317:G328").Select
    ActiveSheet.Paste Link:=True
    Windows("Maart.xls").Activate
    ActiveWorkbook.Close False
' maand van
    Range("F303").Copy
    Range("D320").Select
    ActiveSheet.Paste Link:=True
    Range("E291:F291").Copy
    Range("E320").Select
    ActiveSheet.Paste Link:=True
    Range("E296:F296").Copy
    Range("F320").Select
    ActiveSheet.Paste Link:=True
    Range("F301").Copy
    Range("G320").Select
    ActiveSheet.Paste Link:=True

' dit zet de beveilging weer aan
 ActiveSheet.Protect Password:="andre"

' en dit schakelt de schermvragen weer in
[COLOR="red"][B]Application.DisplayAlerts = True[/B][/COLOR]

End Sub

Zonder garantie want ik kan het niet testen. maar ik denk dat het wel zal loslopen.

Cobbe