werkblad beveiliging

[RobYol]

Als ik handmatig een werkblad beveilig met ww 112 dan werkt onderstaande code NIET en krijg een 1004 foutmelding die aangeeft dat het wachtwoord onjuist is.

Sub Standaard_kopieren()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password = "112"
[Standaard!A8:B47].Copy
[A8].PasteSpecial
ActiveSheet.Protect Password = "112"
[Standaard!C8:E47].Copy
[C8].PasteSpecial xlPasteValues
[Standaard!G8:I47].Copy
[G8].PasteSpecial xlPasteValues
[Standaard!K8:M47].Copy
[K8].PasteSpecial xlPasteValues
[Standaard!O8:Q47].Copy
[O8].PasteSpecial xlPasteValues
[Standaard!S8:U47].Copy
[S8].PasteSpecial xlPasteValues
[Standaard!W8:Y47].Copy
[W8].PasteSpecial xlPasteValues
[Standaard!AA8:AC47].Copy
[AA8].PasteSpecial xlPasteValues
Range("A8").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Als ik het werkblad NIET beveilig en deze code start dan werkt hij wel maar kan ik vervolgens het werkblad NIET meer van de beveiliging afhalen met ww 112.

Begrijp niet wat er fout gaat.

Wie kan mij helpen.

Gr Robert:thumb::thumb:

 

[Revdutchie]

Als je gewoon

Private Sub Workbook_Open()
Sheets("jouwsheet").Protect UserInterfaceOnly:=True
End Sub

neer zet hoef je niet te protecten en unprotecten, je vba loopt gewoon door

 

[RobYol]

Beste Revdutchie,

Heb alleen 55 werkbladen.

Gr Robert

 

[Revdutchie]

Beste Revdutchie,

Heb alleen 55 werkbladen.

Gr Robert

Ja dus ???

 

[RobYol]

Code wordt op elk werkblad aangeroepen adhv een knop dus wat moet ik dan bij jouwsheet invullen?

Private Sub Workbook_Open()
Sheets("jouwsheet").Protect UserInterfaceOnly:=True
End Sub

Gr Robert

 

[bandito bob]

Beste Revdutchie,

Heb alleen 55 werkbladen.

Gr Robert

[flauwe modus] ....dan hebben wij er samen 57 [/flauwe modus]

 

[bandito bob]

Code wordt op elk werkblad aangeroepen adhv een knop dus wat moet ik dan bij jouwsheet invullen?



Gr Robert

Ga in VBA naar thisworkbook en plak daar de code.
Na het (opnieuw) openen van het workbook zullen alle VBA ongestraft door de werkblad beveiliging lopen.

 

[Revdutchie]

Code wordt op elk werkblad aangeroepen adhv een knop dus wat moet ik dan bij jouwsheet invullen?
Gr Robert

Nou ik ben alles behalve een VBA ster, maar ik denk dat je met

Private Sub Workbook_Open()
Sheets.Protect UserInterfaceOnly:=True
End Sub

Er bent

Maar er zal zo wel een VBA goroe dit bevestigen of verbeteren.

 

[RobYol]

Werkt niet maar bedankt voor de moeite.

 

[bandito bob]

Heb je het bestand opgeslagen en opnieuw geopend?

 

[Revdutchie]

Werkt niet maar bedankt voor de moeite.

Ik wil niet meteen zeggen het moet werken, maar volgens mij moet het werken

 

[Roncancio]

Je bent de dubbele punt vergeten bij password:=

Met vriendelijke groet,


Roncancio

 

[RobYol]

De dubbele punt is de oplossing. BEDANKT weer.

:thumb::thumb::thumb: