Een KopieOpslaanOpDatum

[Jarodxxx]

Onderstaande code werkt bij mij wel, alleen als er al een zelfde bestand bestaat en ik klik op annuleren of nee krijg ik: "Toegang tot het VBA project op programmeerniveau is niet betrouwbaar"), heeft iemand een idee hoe dat kan?

Private Sub KnopKopieOpslaanOpDatum()
'Kopie Opslaan van de Module op Basis van een Naam en Datum'
Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyName = "Retouranalyse "
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "\" + MyName + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Thanks!

 

[Jarodxxx]

Is de vraag te moeilijk/niet duidelijk

is de vraag wel duidelijk?

 

[koosl]

Jarodoxxx,

Public Sub KnopKopieOpslaanOpDatum()
'Kopie Opslaan van de Module op Basis van een Naam en Datum'
    Dim MyDate, MyFile, MyPath
        MyPath = ActiveWorkbook.Path
        MyName = "TestKopieOpslaan "
        MyDate = Format(Date, "yyyymmdd")
        MyFile = MyPath + "\" + MyName + MyDate + ".xls"
  [B]  Application.DisplayAlerts = False[/B]
    ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
End Sub

Je code bevat geen regels wat het programma verder moet doen, als je op Nee of
Annuleren klikt. Vandaar de foutmelding

Ik heb er het vetgedrukte tussen gezet.
Nu krijg je de melding niet meer dat het bestand al bestaat.

Koosl

 

[Jarodxxx]

Toppie

Juistemz,

da's duidelijk toppie, gebeurd nog wel wat geks:

Als ik mijn computer lock en daarna weer inlog krijg ik de VBA Script Editor voor. Het heeft te maken met de code die achter het eerste werkblad slaat (beperkt de scrolllarea)
Waarom het optreed weet ik alleen niet.

Private Sub Worksheet_Activate()
Application.ActiveSheet.ScrollArea = "F1:Q45"
End Sub

Euh hij slaat als de datum verandert nu dus wel een nieuwe op tsja dan moet ik idd dus defineren wat die knoppen gaan doen, lijkt me oke!


Thanks!

 

[koosl]

Jarodxxx,

Ik krijg geen foutmelding. Ook komt bij mij de VBA Visual Script Editor niet naar voren.

Eigenlijk is dit wel raar. Ik zou zelfs willen zeggen, dat kan hier niet aan liggen.

Private Sub Worksheet_Activate()

is een event dat wordt gestart als het werkblad geactiveerd wordt. Als je het programma afsluit en daarna weer opent, dan wordt
het werkblad niet geactiveerd en dus de code ook niet gestart.
Je kunt dit uitproberen door bv een MsgBox in je code te verwerken.

Private Sub Worksheet_Activate()
    Application.ActiveSheet.ScrollArea = "F1:Q45"
    MsgBox "werkblad is geactiveerd"
End Sub

Maar je hebt het over de VBA Script Editor. ( voor webpagina's )
Dit is niet hetzelfde als de Visual Basic Editor.

Is er dan iets anders mis??

Koosl

 

[Jarodxxx]

Visual Basic Editior opent bij unlocken pc

Bij het locken van mijn pc en bij het daarna weer inloggen
krijg ik de visual basic editor zomaar voor, dit is bij een module niet de bedoeling

iig bij het volgende bestand gebeurd dat bij mij wel.

 

[koosl]

Jarodxxx,

bij mij gaat alles goed.

Geef eens een omschrijving van hoe jij je pc locked.... (en waarmee)

Koosl

 

[Jarodxxx]

Locken pc en = VB-scherm?

Koosl,

Lock mijn pc via ctrl+Alt+del
of Statbar
=> Lock Computer en daarna log ik weer in!
het gebeurd op al mijn pc's en gebeurd alleen bij toepassen van vba...

Anders nog?

Jarod

extra: weet na wat 't gebeurd: als ik de programma code van een worksheet voor heb gehad en weer gesloten heb gebeurd dit wel bij locken computer en weer inloggen, zonder deze actie niet.... vaag

 

[koosl]

Jarodxxx,

Treedt dit bij iedere sheet op waarachter een macro zit?
Of alleen bij een sheet met een event?

Misschien een macro in je persoonlijke werkmap die je op meerdere pc's hebt staan?

Misschien alle invoegtoepassingen afsluiten en 1 voor 1 weer inschakelen?

Zoiets is moeilijk op te lossen

offtopic:
Als ik op mijn werk Excel opstart en ik draai te vroeg met het scrollwieltje, dan hangt Excel ook gelijk.
(Ook al zoiets)

Ik geef het op.


Ik zou zeggen, nog veel succes ermee.


Koosl

 

[Jan van Asseldonk]

Heb je toevallig automatische backup aanstaan binnen Excel en start deze tijdens de periode dat je PC gelocked staat? Dat zou het probleem kunnen veroorzaken als je de code open hebt staan.
Automatische backup is feitelijk een invoegtoepassing (speciale macro!) en er zouden dan twee macros elkaar in de weg kunnen zitten.

Overigens: Welke versie Excel draai je?

 

[Jarodxxx]

Late reactie, maar toch

Bedankt voor de input

sorry voor laat antwoord. ik = ziek. Toch maar even wat vragen beantwoorden.

ik gebruik excel 2003
het gebeurd bij gebruik van code (wat dan ook) achter een sheet anders niet
Het gebeurd enkel als ik al eens in de vb editor heb gezeten. Dat had ik eerst niet in de gaten.

Het vormt geen probleem voor mijn programma's zo te zien!
Ik heb inderdaad automatische backup aanstaan, maar dat lijkt het mij ook niet te zijn, aangezien je kunt locken en unlock gelijk weer en 't gebeurd ook!


iig bedankt!
JC.