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
Suojausmakro taulukoille ja kaavioille
Makromarko
2
254
Vastaukset
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
Kaivatullesi viesti ensi vuoteen?
Kerro meneekö naiselle vai miehelle ja vähintään yksi tunniste, esim. kirjain.1486941Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois
Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul363885Nyt Yle otti silmätikukseen sisäministeri Rantasen
Aivan erinomaista työtä tehnyt sisäministeri Mari Rantanen on saanut paljon aikaiseksi. Maahanmuuttoon ja maahanmuuttaji3103276Ylen juttu sisäministeristä oli selvän tarkoitushakuinen
haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota712852Suomalaista yrittäjää ei kommunistista erota
Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma82317- 211893
Liikaa vauhtia
Nuorukainen 17v. on ajanut 114 km/h 60 km:n alueella Nesteen kohdalla ja onneksi poliisi oli paikalla ja hurjastelu lopp481765- 151686
Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"
"– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri51644Kuka kävi Vaattunkikönkäällä ampumassa ilmakiväärillä matkailuautosta ikkunoita rikki?
25 päivänä tätä kuuta jouluyönä 3-4 aikoihin721470