Opgelost Bij openen en opslaan datum en gebruikersnaam plaatsen in cel 2

[malawi]

Hallo ik heb onlangs deze vraag gesteld. maar kom nu nog 2 probleemjes tegen die ik niet opgelost krijg. Misschien kan iemand mij helpen

Probleem 1. Het test bestand werkte het goed, maar ik deze overzet naar het originele bestand komt ik het volgende tegen. Het originele bestand is een excel sjabloon(.xltm). Vanuit dit sjabloon open ik elke keer een nieuw bestand. (.xlsm) Wanneer ik vanuit de sjabloon een nieuw xlsm bestand aanmaak moet alleen de aanmaak datum en naam worden ingevuld. Dus geen wijzigingsdatum en naam. Pas wanneer laten dit nieuwe bestand wordt gewijzigd wel. Kan ik dit aanpassen?

2e probleem is dat wanneer ik het nieuwe bestand wil "opslaan als" krijg ik een foutmelding dat ik geen cel kan wijzigen in een beveiligd blad, terwijl ik in de macro wel eerst de beveiliging eraf haal. Wat gaat hier verkeerd? Zie bijlage

Ik kan geen .xltm toevoegen, dus het bestand in .xlsm als bijlage toegevoegd. Deze dient dan als eerst als .xltm opgeslagen te worden dan kom ik probleem 1 tegen.

 

[emields]

Waar zijn die macro's?

 

[malawi]

Het is via VBAproject "Thisworkbook"

 

[malawi]

Kan mij iemand verder helpen met bovenstaande vraag?

 

[AHulpje]

Verwijder Sub Workbook_BeforeSave en wijzig Opslaanals():

Sub Opslaanals()
    With Sheets("Blad1")
        If Not ThisWorkbook.Saved Then
            .Unprotect Password:="ww"
            .Range("E16") = Now()
            .Range("E17") = Environ("username")
            .Protect Password:="ww"
        End If
    End With
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[HSV]

een nieuw xlsm bestand aanmaak moet alleen de aanmaak datum en naam worden ingevuld.

.range("e16")= ThisWorkbook.BuiltinDocumentProperties(11)

Pas wanneer laten dit nieuwe bestand wordt gewijzigd wel.

.range("e16") = FileDateTime(ThisWorkbook.FullName)

 

[malawi]

Heren,

Voor mij geldt nog 1 opmerking. Als bijlage heb ik mijn laatste testbestand toegevoegd. Er is een knop toegevoegd voor het tussendoor opslaan. Datum en tijdstip wijzigd netjes mee. Maar als ik buiten de knoppen om opsla met opslaan knop in lint snelle toegang of de sneltoets ctrl+s helaas niet. Hoe kan ik dit nog inpassen zodat de wijzigingsdatum altijd wordt aangepast is ik het opsla?

Bij voorbaat dank,

Ewald

 

[edmoor]

Dat kan je doen in de ThisWorkbook module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 

[malawi]

Dan kom ik weer bij mijn eerste probleem uit. De wijzigingsdatum moet alleen werken bij een nieuw bestand. (.xlsm) Die vanuit een Excel sjabloon is aangemaakt. met de opslaan button in het formulier, opslaan knop in lint snelle toegang of de sneltoets ctrl+s. Dus niet in een Excel sjabloon(.xltm).

 

[HSV]

Sub hsv()
Workbooks.Add
With ActiveWorkbook
 .Sheets(1).Cells(1) = CDate(.BuiltinDocumentProperties(11))
 .Sheets(1).Cells(2) = Environ("username")
   With .VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule
     .InsertLines .CountOfLines + 1, "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" & vbCrLf & "sheets(1).cells(1) = now" & vbCrLf & "End Sub"
   End With
End With
End Sub

 

[HSV]

Er moet nog wel een coderegel toegevoegd worden boven "With .VBProject" zodat het bestand ergens wordt opgeslagen.
Iets van:

.saveas "c:\users\malawi\map1\nieuw bestand",52

 

[malawi]

Is dit misschien in mijn laatste testbestand te integreren? Ik kom er niet uit.

Gr. Ewald

 

[HSV]

Het originele bestand is een excel sjabloon(.xltm). Vanuit dit sjabloon open ik elke keer een nieuw bestand. (.xlsm)

In je laatste testbestand staat geen code hoe jij een nieuwe bestand aanmaakt.

 

[malawi]

ok, zie bijlage.

 

[malawi]

Harry kun je mij nog verder helpen?

 

[HSV]

In Thisworkbook-module plaatsen en opslaan.
Daarna kan je het opslaan.als(....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
 With Application.FileDialog(msoFileDialogSaveAs)
   If .Show Then .Execute
  End With
 With ActiveWorkbook
  .Sheets(1).Cells(1) = Now
  .Sheets(1).Cells(2) = Environ("username")
    With .VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule
      .DeleteLines .ProcStartLine("Workbook_BeforeSave", 0), .ProcCountlines("Workbook_BeforeSave", 0)
      .InsertLines .CountOfLines + 1, "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" & vbCrLf & "sheets(1).cells(1) = now" & vbCrLf & "End Sub"
    End With
 End With
Cancel = True
End If
End Sub

 

[malawi]

Krijg helaas een foutmelding bij het invullen van de data. Bestand aangepast en opgeslagen als sjabloon. Foutmelding volgt na het "opslaan als" als nieuw bestand. Zie Laatste bestand is toegevoegd.

 

[HSV]

Niet mijn code de schuld geven als je het zelf verkeerd aanpast.

 

[malawi]

Sorry als dit zo overkomt, als ik maar wist wat ik er verkeerd heb aangepast als alleen de celverwijzing en toevoeging van de ww regel

 

[edmoor]

Je denkt dat dit goed is?

.Sheets(Blad1).Cells(E16) = Now

Kijk eens naar het verschil tussen Cells en Range.