Opgelost beveiliging blad

[lsc.b]

je kan het standaard blad zodanig beveiligen dat is me duidelijk
maar wanneer het blad beveiligd is
toch info naar een ander regen kan kopijere zie voorbeeld dit is niet het originele macro hoe kan ik ( we ) dit oplossen

 

[edmoor]

Een .xlsx bestand bevat per definitie geen macro's.

Wat die moet doen is de beveiliging eraf halen, de gewenste actie uitvoeren en dan de beveiligng er weer op zetten.

 

[lsc.b]

Een .xlsx bestand bevat per definitie geen macro's.

Wat die moet doen is de beveiliging eraf halen, de gewenste actie uitvoeren en dan de beveiliging er weer op zetten.

Sorry Edmoor
vergeten om het op te slaan als xlsm maar ik snap het nog niet helemaal er zijn straks cellen die toegankelijk zijn om in te vullen zodra ik een copy wil maken komt die dus te staan in cellen die beveiligd zijn en beveiligd moeten blijven dus is het wel het goed bestand ( Sorry )

 

[edmoor]

Ok dit bestand bevat niet je macro.

 

[edmoor]

 

[lsc.b]

klopt ik ben even in de war de macro die er in zou moeten staan werkt dus wel maar het origineel niet

 

[edmoor]

Dan is het geen relevant voorbeeld.

 

[lsc.b]

Sub copygegevens()
'copygegevens
Rij = Range("B86:B113").Find(Range("B1").Value).Row
Range("F41:H41,M41:O41,T41:V41,AA41:AC41,AH41:AJ41,AO41:AQ41").Copy
Cells(Rij, 8).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Rij = Range("B86:B113").Find(Range("B1").Value).Row
Range("F79:H79,M79:O79,T79:V79,AA79:AC79,AH79:AJ79,AO79:AQ79").Copy
Cells(Rij, 26).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False


dit is een originele macro die een fout melding geeft op de eerste regel en misschien nog wel meer regels

End Sub


Sub Paste_SingleCell()
Range("b3").Copy Range("F5")
End Sub
dit zou in mijn voorbeeld moeten staan maar werkt dus wel als het blad beveiligd is
wat moet er boven veranderd worden dat het dus ook werkt in een beveiligd
blad

 

[edmoor]

Wat is er zo moeilijk aan het plaatsen van een relevant document?

 

[lsc.b]

weer een nieuwe poging hier zie je wat er fout gaat in #8 eerste macro is het origineel

 

[edmoor]

Maak er eens dit van:

Sub copygegevens()
    ActiveSheet.Unprotect "123"
    Set c = Range("B86:B113").Find(Range("B1").Value, , , xlWhole)
    If Not c Is Nothing Then Cells(c.Row, 6).Resize(, 7) = Range("F39:l39").Value
    ActiveSheet.Protect "123"
End Sub

 

[lsc.b]

helaas copyeerd niks

 

[edmoor]

Ik plaats natuurlijk niet iets dat niet werkt.
Het werkt hier prima in je eigen document dat je plaatste In #10.

 

[lsc.b]

snap ik dat je dat niet doet ik ga dit verder onder zoeken
kan deze code dan ook gebruikt voor de eerste code van #8

 

[edmoor]

Ja, dat kan.
Dan moet je uiteraard wel de ranges aanpassen.
Een goed begrip van wat de code doet is ook belangrijk.

 

[lsc.b]

thanks