Suojausmakro taulukoille ja kaavioille

Makromarko

Hei

Olen yrityksen ja erehdyksen kautta värkännyt makron, joka suojaa/purkaa suojauksen koskien kaikkia avoinna olevia taulukoita sekä toisen makron, joka tekee saman avoinna oleville kaavioille.

En kuitenkaan saa niitä toimimaan yhdessä siten, että samalla makrolla suojattaisiin/purettaisiin suojaus molemmista ilman, ettei tulisi jotain virheilmoitusta,

Olisiko joku (Kunde?) ystävällinen, ja kertoisi minulle, miten saan nuo yhdistettyä niin, että ne toimisivat loppukäyttäjäystävällisesti ilman virheilmoituksia. Kiitos.

Suojausmakrot

Sub suojaa()
Dim sh As Excel.Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next
Set sh = Nothing
End Sub

Sub SuojaaC()
Dim ch As Chart
For Each ch In ActiveWorkbook.Charts
ch.Protect
Next
Set ch = Nothing
End Sub

Purkumakrot

Sub pura()
Dim sh As Excel.Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect
Next
Set sh = Nothing
End Sub

Sub purac()
Dim ch As Chart
For Each ch In ActiveWorkbook.Charts
ch.Unprotect
Next
Set ch = Nothing
End Sub

2

233

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Sub Suojaa()
      Dim i As Long
      For i = 1 To Sheets.Count
      Sheets(i).Protect
      Next
      End Sub
      Sub PoistaSuojaus()
      Dim i As Long
      For i = 1 To Sheets.Count
      Sheets(i).Unprotect
      Next
      End Sub

      Keep EXCELing
      @Kunde

      • Makromarko

        Kiitos, Kundeen voi aina luottaa!


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      89
      5978
    2. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      3557
    3. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      161
      2101
    4. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      231
      2022
    5. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      177
      1768
    6. Martinan bisnekset rajusti tappiolla

      Seiska 28.7: nousukiito katkesi, yritykset C-luokkaa.
      Kotimaiset julkkisjuorut
      284
      1523
    7. Tiedätkö mitä kaivattusi harrastaa?

      Minä en tiedä.
      Ikävä
      67
      1041
    8. Voiko olla, onko se tosiaan niin että

      Kumpikin rakastetaan toisiamme. Nyt pitää sukeltaa pakastimeen ❤️🥵
      Ikävä
      57
      1041
    9. Metsa Man Extra kanava toimii hyvin

      ja sieltä voipi kahta vanhoja vitejoita pahimpaan puutteeseen. Peukalot ylös.
      Tuusniemi
      21
      1020
    10. Mitkä yleiset huonot tavat ihmisillä ärsyttävät sinua ?

      Aloitukseen saa vapaasti purkaa tuntojaan. Itseäni hiukan kiusaa, kun saman talon asukkaat eivät vastaa tervehdykseen.
      80 plus
      113
      971
    Aihe