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

229

    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. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      138
      10722
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      52
      5140
    3. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      45
      2353
    4. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      108
      2170
    5. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      29
      2053
    6. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1661
    7. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      41
      1482
    8. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      29
      1164
    9. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      34
      1123
    10. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      55
      1024
    Aihe