• 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.

Blad wordt onbeveiligd na kopiëren

Status
Niet open voor verdere reacties.

HMDH

Gebruiker
Lid geworden
11 jun 2010
Berichten
180
Beste Forum,

ik heb een probleempje.
Met een VBA code in een macro kopieer ik twee bladen.
Deze kopieën worden wel beveiligd, maar van het hoofddocument is de bladbeveiliging weg. (?)
Hoe kan ik de VBA code aanpassen zodat het te kopiëren blad ook blijft beveiligd?


Code:
Sub Bladkopieren()
'
' Bladkopieren Macro
'
    
    Sheets("Wedstrijdblad").Unprotect
    Sheets("Vandaag").Unprotect
    
    Sheets(Array("Wedstrijdblad", "Vandaag")).Copy
    Sheets("Wedstrijdblad").Buttons(1).Delete
    Sheets("Wedstrijdblad").Buttons(1).Delete
        
    
    Columns("AO:AW").Hidden = True
           
    With Worksheets("Vandaag").UsedRange
   .Value = .Value
    Sheets("Wedstrijdblad").Protect
    ActiveSheet.Protect

End With
    Sheets("Vandaag").Protect
    Sheets("Wedstrijdblad").Protect
    
   
End Sub
 
Ik weet niet of wij dezelfde taal spreken maar begrijpen doe ik je niet.
Je bent toch niet in de veronderstelling dat ik maar wat vraagt om mezelf en jou bezig te houden?
Ik ben behoorlijk aan het zoeken geweest. Maar niets kan ik 1 op 1 gebruiken.
Mijn kennis van Excel is maar beperkt.
Als jij er geen zin in hebt dan moet je maar niet reageren.
Hopelijk is er wel iemand die mij even wil helpen.
 
Tuurlijk wil ik dat en anderen ook wel.
De intentie was je te bewegen tot het zelf plaatsen van voorbeeld document.

De .Copy maakt een nieuw document.
Dus wat wil je precies in welk document gedaan hebben.
 
Laatst bewerkt:
Ik heb een voorbeeld doc. gemaakt.
Hierin start ik met een beveiligd blad.
Na het kopiëren is de kopie wel beveiligd maar het hoofd document niet meer.
Ik zou graag hebben dat beide documenten zijn beveiligd.

Graag een aanpassing in de VBA code.
 

Bijlagen

  • Vraag Forum.xlsx.xlsm
    36,4 KB · Weergaven: 10
Volgens mij is dit voldoende:
Code:
Sub PrintbladKwartaal1()
    Sheets("Printblad 1e kwartaal").Copy
    ActiveSheet.Unprotect
    Sheets("Printblad 1e kwartaal").Buttons(1).Delete
    Columns("L:N").Delete Shift:=xlToLeft
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
End Sub
 
Bedankt,
maar nu is het gekopieerde blad niet meer beveiligd.
Wel het hoofd document.
 
Dan zet je dit onder de End With:
Code:
ActiveSheet.Protect

Vandaar mijn vraag wat je precies gedaan wilt hebben.
 
Ik krijg nu een melding als ik terug gaat naar het hoofd document.

Zie bijlage
 

Bijlagen

  • Melding na kopieeren.png
    Melding na kopieeren.png
    12,2 KB · Weergaven: 18
In je voorbeeld document staat geen actie die op het hoofddocument moet worden uitgevoerd en deze is nog steeds beveiligd.
 
Het probleem doet zich voor op mijn hoofd document en niet op mijn voorbeeld document.
Het hoofd document is wel aardig groot en deze kan ik om privacy reden niet delen.
Ik weet ander ook niet hoe dit op te lossen.
 
Voordat je iets op een werkblad in je hoofd document doet moet moet deze eerst UnProtect zijn.
In het voorbeeld ga je overigens niet van de kopie terug naar het hoofd document.
Dat kan je doen met ThisWorkbook.Activate
 
Laatst bewerkt:
Op het moment dat je terug wilt naar het hoofd document.
In het voorbeeld inderdaad onderaan.
 
met zo weinig gegevens kunnen we natuurlijk niet veel doen. maar ik weet wel als je een volledig blad kopieert en plakt dan al uw andere gegevens op het doelblad weg zijn.
 

Bijlagen

  • Vraag Forum.xlsx.xlsm
    43,8 KB · Weergaven: 7
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan