pscheppers

Hallo

Hoe kan ik bestanden in exel beveiligen tegen wissen? Bestand staat niet in een map.

Bakerman

Ik heb een voorstel. Als u ni te ver van Mechelen woont wil ik wel langskomen zodat u kunt zien wat eigenlijk de bedoeling is als u dat ziet zitten.

Patrick

Bakerman

sorry voor de last maar van vba ken ik niks. Ik kan wel begrijpen dat het voor jou ook niet plezant is dat jij oplossingen post en het niet werkt bij mij. Misschien doe ik wel iets verkeerd zonder dat ik het weet. Het is altijd veel makkelijker als jezelf achter de pc zit om een probleem op te lossen dan hulp op afstand.

Patrick

Bakerman

Heb het pad verandert in d:\afgewerkte diensten. Dit pad bestaat

Patrick

Bakerman

Het pad dat ik u doorgegeven heb daar staat de map 'afgewerkte diensten' en de werkbladen. N u heb ik deze gekopieerd naar usb stick, omdat ik ni direct op de originele werkbladen wil uitproberen. Ik heb een copie genomen van de code en aangepast naar f:\ afgewerkte map. Misschien heeft dit ermee te maken dat uw pscheppers,xlms niet werkt bij. Wanneer ik de macro start wordt het werkblad weggeschreven naar f:\ afgewerkte diensten, de juiste map,dus het werkt wel.

Patrick

Heb verschillende keren geprobeerd en soms krijg ik dan weer de melding zoals hieronder te zien

Bakerman

Heb het aangevinkt en alle macro's toestaan maar blijf deze melding krijgen

Patrick

Bakerman

Wanneer ik klik op pscheppers.xlms word er mij gevraagd om opteslaan wat ik doe. Wanneer ik nu naar dat bestand ga en erop klik kom ik uit op een exel pagina waar een knop opstaat en 3 bladen, wanneer ik op die knop druk krijg ik de melding: de macro pscheppers.xlms! blad1.button1 kan niet worden uitgevoerd. de macro is wellicht niet beschikbaar in dit werkblad of alle macro's zijn uitgeschakeld. In macrobeveiling heb ik alle macro's toestaan aangevinkt maar geen resultaat.

Patrick

Heb bij de programmacode de maanden veranderd en voluit geschreven en heb dan de code gestart met het groene pijltje bovenaan in de balk (Sub/userform uitvoeren) en het werkt. Nu moet ik alleen de code nog verbinden met de knop op mijn formulier. Hoe doe je dat?

Patrick

de maandnamen worden voluit geschreven dus januari februari enz en de dagen 01-01-2017, 15-05-2017 enz

Bakerman

"c:\Top\info\schouwing\schouwdiensten\afgewerkte diensten\ is het volledige pad

Bakerman

Nee ik was efkes verkeerd, op elk van die 16 bladen moet een knop komen om op te slaan, want die moete ni allemaal op 1 dag opgeslagen worden. Ik heb vandaag eens geprobeerd, maar krijg een foutmelding bij 'SaveAs fname, 51.

Patrick

Bakerman

Bij sheets("naam van je werkbladformulier").copy. Ik heb zo 16 werkblad formulieren die genummerd zijn van 1 tot 16 moet ik die daar dan allemaal inzetten gescheiden met een komma?

Patrick

c:\Top\info\schouwing\schouwdiensten\afgewerkte diensten\maand\dag

 De mappen "afgewerkte diensten - maand- dag" zijn bestaande mappen. VB. op 10-1-2017 vul ik een formulier in en zou met 1 klik opgeslagen moeten worden in de map "afgewerkte diensten" in de juiste maand en op 10-1-2017. Vul ik een formulier in op 2-2-2017 dan zou dat opgeslagen moeten worden in de juiste maand en de juiste dag

En dat zou zo voor 365 dagen moeten zijn.

Patrick

Graag hulp

Ik heb een exel formulier dat ik alle dagen moet invullen en daarna opslaan in een map "afgewerkte diensten". Deze map is onderverdeeld in de maanden van het jaar en deze mappen zijn onderverdeeld in de dagen van de maand. Op zich is het geen probleem om het exel formulier op te slaan, na een 3 of 4 klikken staat het exel formulier op de juiste plaats. Nu komt mijn vraag. Ik zou op dat exel formulier een  knop willen plaatsen wanneer ik daar op klik het exel formulier direct op de juiste plaats in de map "afgewerkte dienst" komt. BV ik vul op 15-1-2017 een formulier in en dan moet dat in de map "afgewerkte diensten" moet dat in de map 15-1-2017 komen te staan vul ik een formulier in op 2-2-2017 moet dat in de map 2-2-2017 staan.

grts