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

Tabbladen beveiliging

Status
Niet open voor verdere reacties.
Sytse1

Sytse1

Gebruiker
Lid geworden
9 aug 2007
Berichten
584
Office versie
miDer
In mijn werkmap zijn een aantal beveiligde werkbladen.
De inhoud van deze werkbladen kan middels deze code gewist worden.
Code: 
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range("B8:AF9,B11:AF12,B14:AF15,B17:AF18,B20:AF21,B23:AF24,B26:AF27,B29:AF30,B32:AF33,B35:AF36,B38:AF39,B41:AF42").ClearContents
Next ws

De werkbladen moeten dan eerst van hun beveiliging ontdaan worden.
Kan dit ook via vba?
En na het wissen direct de beveiliging weer instellen?
 
Probeer het zo eens :

Code: 
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
.Unprotect , Password:="Jou_Wachtwoord"
ws.Range("B8:AF9,B11:AF12,B14:AF15,B17:AF18,B20:AF21,B23:AF24,B26:AF27,B29:AF30,B32:AF33,B35:AF36,B38:AF39,B41:AF42").ClearContents
Next ws
.protect , Password:="Jou_Wachtwoord"
 
Loek010 en Excel amateur beide bedankt.
Gekeken bij de andere topic met de verwijzing van Ed Moor.

Maar ik zal met de oplossing van Loek beginnen.
 
Loek010,
ik krijg de volgende fout melding bij .Unprotect
Compileerfout. Ongeldige of niet gekwalificeerde verwijzing.
 
Ok probeer dit eens

Code: 
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
[COLOR="#FF0000"]ws[/COLOR].Unprotect , Password:="Jou_Wachtwoord"
ws.Range("B8:AF9,B11:AF12,B14:AF15,B17:AF18,B20:AF21,B23:AF24,B26:AF27,B29:AF30,B32:AF33,B35:AF36,B38:AF39,B41:AF42").ClearContents
Next ws
[COLOR="#FF0000"]ws[/COLOR].protect , Password:="Jou_Wachtwoord"
 
De komma moet weg. Dan werkt het.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan