Moi, mitä muutoksia alla oleva vaatii jottei jo tallennettua tiedostoa avaamisen&sulkemisen jälkeen tallenna uudelleen ? Vaan sulkee jättäen sellaiseksi kuin oli.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Worksheets("XXXX").Visible = xlSheetVisible
For Each ws In Worksheets
If ws.Name "XXXX" Then ws.Visible = xlSheetVeryHidden
Next
Me.Save
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Worksheets("XXXX").Visible = xlSheetVisible
For Each ws In Worksheets
If ws.Name "XXXX" Then ws.Visible = xlSheetVeryHidden
Next
Me.Save
End Sub
Vastaukset 3
Vanhimmat
vaiha toi me.save tähän If Me.Saved = False Then Me.Save
se pitaa olla nain jos ei tallenneta muutoksia
Me.Saved = True
Kiitos vastaajille, mutta kumpikaan ei pelitä halutun lailla ( saattaa johtua muista makroista)
Me.Saved = True. Tiedostoni on xlt muotoa ja kyselee käyttäjältä käyttäjätunnuksen ja salasanan.
Kun olen luonut pohjasta uudella nimellä tiedoston yllä oleva koodi ei piilota kaikkia haluttuja taulukoita.
Ylempi If Me.Saved..jne...
Jos avaan xlt pohjan hyväksyn makrot, mutta peruutan avaamisen, koodi luo aina omiin tiedostoihin saman nimisen kuin mallipohjankin xls tiedoston.
Oisko tähän helppiä ?