taulukossani on monta pienempää taulukkoa joihin loikitaan commandbuttoneilla.
-Kuinka saan taulukon lukittua siten, että taulukossa ei voi liikkua muulla tavalla kuin commandbuttoneilla?
-Voiko taulukon suojata tallentamiselta? Haluaisin, että kun taulukko suljetaan, niin se ei kysyisi, että tallennetaanko?
Sitten vielä haluaisin, että kun taulukko avataan, niin avautuisi pelkkä taulukko.. ei mitään työkalurivejä/palkkeja näytön yläreunaan... ainoastaan taulukko koko näytöllä.
Onnistuuko?
-Kuinka saan taulukon lukittua siten, että taulukossa ei voi liikkua muulla tavalla kuin commandbuttoneilla?
-Voiko taulukon suojata tallentamiselta? Haluaisin, että kun taulukko suljetaan, niin se ei kysyisi, että tallennetaanko?
Sitten vielä haluaisin, että kun taulukko avataan, niin avautuisi pelkkä taulukko.. ei mitään työkalurivejä/palkkeja näytön yläreunaan... ainoastaan taulukko koko näytöllä.
Onnistuuko?
Vastaukset 1
Vanhimmat
Lisää moduuli ja liitä allaolevat koodit sinne
poista rukseja tarpeen mukaan Työkalut/Asetukset/Näkymä välilehdellä kuten esim. kaavarivi ja tilarivi jne.
Suojaa VBAprojekti (lue edellisistä postauksista)
Sitten vaan teet taulukoihin nappeja,joilla liikutaan taulukosta toiseen
Sub Auto_open()
Application.ScreenUpdating = False
Application.Caption = "@Kunde "
PoistaValikot
Worksheets("Taul1").Activate
Application.ScreenUpdating = True
End Sub
Sub Auto_Close()
PalautaValikot
Application.DisplayAlerts = False
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.ScreenUpdating = True
Application.Quit
End Sub
Sub PoistaValikot()
Application.ScreenUpdating = False
Dim cbBar As CommandBar
For Each cbBar In CommandBars
If cbBar.Enabled And cbBar.Type = msoBarTypeNormal Then
cbBar.Visible = False
End If
Next cbBar
CommandBars("Worksheet Menu Bar").Enabled = False
Application.OnKey "%-", ""
ActiveWindow.DisplayHeadings = False
Application.ScreenUpdating = True
End Sub
Sub PalautaValikot()
CommandBars("Worksheet Menu Bar").Enabled = True
Application.OnKey "%-"
CommandBars("Standard").Visible = True
CommandBars("Formatting").Visible = True
ActiveWindow.DisplayHeadings = True
Application.ScreenUpdating = True
End Sub