Rakensin itselleni pienen palkanlaskentaohjelman excelillä. Excel-taidot ovat suht koht onnettomat, mutta onneksi excelin helpin avulla pääsee pitkälle. Makrot olen vain nauhoittanut, koska VB:stä en ymmärrä oikein mitään. Sitten ongelmaan. Omaan versioon palkanlaskentaohjelmasta olen laittanut vain makron, joka poistaa ruudulta kaiken ylimääräisen (full screen ja vähän optioneista tilpehööriä makron avulla pois). Kuitenkin perustyöpalkki (standard) jää aina näkyviin. Mitenkähän tämän saisi myös poistettua niin, että olisi todella hankalaa vahingossa ryssiä mitään taulukosta.
työkalurivin poisto ja muuta
tero
10
1479
Vastaukset
- Kunde
Pistä moduuliin allaolevat koodit ja asetuksissa poista scrollit ja tilarivit yms...
Sub Auto_open()
PoistaValikot
End Sub
Sub Auto_Close()
PalautaValikot
NäytäTyökirjat
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()
Application.ScreenUpdating = False
CommandBars("Worksheet Menu Bar").Enabled = True
Application.OnKey "%-"
CommandBars("Standard").Visible = True
CommandBars("Formatting").Visible = True
ActiveWindow.DisplayHeadings = True
Application.ScreenUpdating = True
End Sub- tero
Tätä juuri hain. Kiitoksia. Sitten olisi vielä yksi kysymys kun vähän hätiköin. Mitenkäs se työkalurivi palautetaan kun hätiköin ja ajoin vain tuon poistokoodin ja nyt en saa sitä työkaluriviä takasin :).
- tero
tero kirjoitti:
Tätä juuri hain. Kiitoksia. Sitten olisi vielä yksi kysymys kun vähän hätiköin. Mitenkäs se työkalurivi palautetaan kun hätiköin ja ajoin vain tuon poistokoodin ja nyt en saa sitä työkaluriviä takasin :).
Jaahas. Ei auttanut edes officen poisto ja uudelleenasennus. Näinköhän pitää tehdä uusi työkirja toisella koneella joka sitten palauttaa työkalurivin. On se hienoa, että aina pitää hätiköidä.
- tero
tero kirjoitti:
Jaahas. Ei auttanut edes officen poisto ja uudelleenasennus. Näinköhän pitää tehdä uusi työkirja toisella koneella joka sitten palauttaa työkalurivin. On se hienoa, että aina pitää hätiköidä.
No löytyihän se apu wordin puolelta. ALT F11 päästi Visual Basic editoriin ja sain työkalurivin takaisin.
- poistaa
Mene työkalut > asetukset > näkymä lehdeltä voit tarpeen mukaan poistaa krukseja, mutta ylimmäinen Tiedosto Muokkaa jne. ovat aina kyllä näkyvissä ja niitä et voi poistaa paitsi jos haluat asentaa Office paketin kokonaan uudelleen,jolloin nuo poistetutkin palaavat taas käyttöön.
- tero
Juu nuo oli jo tehty. Tarkoitinkin lähinnä sitä ylimmäistä juuri. Tiedän kyllä, että senkin saa poistettua ilman, että tarvitsee jälkeenpäin asennella exceliä uudestaan. Se oli pätkä VB-koodia (sain sen jonkun keskusteluryhmän kautta). Sen koodin kun laitoin sellaisen makron sisään joka ajetaan aina workbookin käynnistyttyä niin se poisti sen työkalurivin siihen asti kunnes workbook suljettiin. Ja seuraavalla excelin käynnistyskerralla se oli jälleen omalla paikallaan.
Olipas sekavasti sanottu. Toivottavasti joku tietävä ymmärsi mitä haen takaa. - Kunde
tero kirjoitti:
Juu nuo oli jo tehty. Tarkoitinkin lähinnä sitä ylimmäistä juuri. Tiedän kyllä, että senkin saa poistettua ilman, että tarvitsee jälkeenpäin asennella exceliä uudestaan. Se oli pätkä VB-koodia (sain sen jonkun keskusteluryhmän kautta). Sen koodin kun laitoin sellaisen makron sisään joka ajetaan aina workbookin käynnistyttyä niin se poisti sen työkalurivin siihen asti kunnes workbook suljettiin. Ja seuraavalla excelin käynnistyskerralla se oli jälleen omalla paikallaan.
Olipas sekavasti sanottu. Toivottavasti joku tietävä ymmärsi mitä haen takaa.Lisää moduuli ja laita allaolevat koodit sinne ja tallenna. Tarvittaessa poista asetuksissa scrollit ja tilarivit,kaavarivit yms...
Kun avaat työkirjan makro Sub Auto_open()suoritetaan ja se poistaa KAIKKI valikot ja kun suljet työkirjan Auto_Close() suoritetaan ja se palauttaa valikot
Sub Auto_open()
PoistaValikot
End Sub
Sub Auto_Close()
PalautaValikot
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()
Application.ScreenUpdating = False
CommandBars("Worksheet Menu Bar").Enabled = True
Application.OnKey "%-"
CommandBars("Standard").Visible = True
CommandBars("Formatting").Visible = True
ActiveWindow.DisplayHeadings = True
Application.ScreenUpdating = True
End Sub
- Kunde
Sitten käyttäjällä ei ole enää paljon vaihtoehtoja...
lisää Auto_Open ja Auto_Close proseduureihin nämä vielä niin ei voi käyttää näppiksen kopioi/leikkaa/liitä komentojakaan ja lisäksi hiiren oikeakin menu poistetaan kun lisäät taulukon moduuliin.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Sub Auto_Open()
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "^x", ""
End Sub
Sub Auto_Close()
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "^x"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub- tero
Nyt toimii juuri niin kuin pitääkin. Kiitoksia.
- Anonyymi
Moi, excelin työkaluriville ilmestyi harmaat kirjainneliöt. Mistä ne saa pois?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi
Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit986118KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!
STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti3495555Huono päivä
Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja222757Mikä siinä on ettei persuille leikkaukset käy?
On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei522639Lääppijä Lindtman jäi kiinni itse teosta
Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-20000117808521042026Juuri nyt! Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
Ai että mä nautin, Tytti erot vireille! "Käytös on kohdistunut avustajia ja toisia kansanedustajia kohtaan, uutisoi STT1071758- 1141621
Puolen vuoden koeaika
Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro181583seurakunnan talouspäällikön valinta meni perseelleen
Nyt on ihan pakko kyseenalaistaa tuo Kemijärven seurakunnan päätös talouspäälliköstä. Valitulla ei ole talouspuolen osaa1241494Olen ihmetellyt yhtä asiaa
Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm1361459