työkalurivin poisto ja muuta

tero

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.

10

1439

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Persuja ei aluevaltuustoissa näy

      Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.
      Maailman menoa
      70
      3831

    2. Päivän Riikka: Uudenkaupungin autotehdas hiljeni

      Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j
      Maailman menoa
      88
      3209

    3. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

      Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
      Maailman menoa
      103
      2483

    4. Mikä ihme teitä savolaisia tuossa

      p*rs*reiässä niin kiinnostelee? Että siitä pitää päntönnään huutaa.
      Tuusniemi
      15
      1679

    5. Laita tunniste josta kaivattusi tietää sun kirjoittavan täällä

      Joku yksilöity yhteinen juttu joka on sun ja kaivattusi välillä. Tuntomerkkinä esim. punainen pipopää, tonttu-ukko tai m
      Ikävä
      74
      1475

    6. Mikä tekee naisesta

      Seksikkään ja viehättävän? Entä miehestä?
      Ikävä
      98
      1354

    7. Varusmiehen kuolema

      Ei ollut vahinko, ei aiheuttanut vaaraa muille, eikä ollut rikos, mitä jää jäljelle? Oliko kyseessä oman käden kautta lä
      Kajaani
      50
      1296

    8. Mitä ajattelet rakkaastasi tällähetkellä?

      Itse haluaisin jo hänen viereen..
      Ikävä
      55
      1093

    9. Huippu, kaupunki ostaa hotellin

      Hyvä juttu meillä on oma hotelli iloitsi Pirtihirmukin. Nyt vaan rekryt päälle ja uusi henkilökunta. Tarvitaan tekijöitä
      Ähtäri
      56
      1050

    10. Kumpaan rahat, mummojen vaippoihin vai Nalle WahIroosille?

      JOS siis sinä saisit päättää?
      Maailman menoa
      1
      1031
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt