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

Oscarbord 3

Status
Niet open voor verdere reacties.
Ik heb het nogmaals geprobeerd met het beveiligde blad en dan krijg ik bijgevoegde melding in het geel.

Knipsel2.PNG
 
Cel K7 staat nog steeds op Geblokkeerd.
 
Dat ik dat niet gezien heb.

Ik dacht dat ik van de bewuste cellen de codering af had gehaald.

Bedankt, nu werkt het wel.

Gerrit
 
Sh*t happens... ;)
 
Ik heb de volgende regel nog toegevoegd aan de code om het bestand als het leeg is gemaakt om altijd op te slaan als sjabloon.
Dat werkt ook, alleen krijg ik de melding dat het bestand al bestaat en of ik het wil overschrijven.
Ik wil nu dat hij automatisch ja gebruikt en het bestaande sjabloon bestand overschrijft.

Kan dat ook in deze code verwerkt worden.

Code:
 ActiveWorkbook.SaveAs Filename:="c:\Users\Gerrit\Oscarbord TK3 Sjabloon .xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
Dat kan:
Code:
 Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs Filename:="c:\Users\Gerrit\Oscarbord TK3 Sjabloon .xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 Application.DisplayAlerts = True
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan