Solun ehdollinen lukitus?

oikea koodi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
With ActiveSheet
.Unprotect Password:="Kunde"
If Range("A1") = 1 Then
Target.Locked = True
.Protect Password:="Kunde"
Else
MsgBox " Anna solun arvoksi 1"
Range("A1").Select
End If
End With
End If
End Sub

kunde kirjoitti:

oikea koodi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
With ActiveSheet
.Unprotect Password:="Kunde"
If Range("A1") = 1 Then
Target.Locked = True
.Protect Password:="Kunde"
Else
MsgBox " Anna solun arvoksi 1"
Range("A1").Select
End If
End With
End If
End Sub

Lue lisää

mutta en saa tätäkään toimimaan - ongelmani on kai että miten saan tuon moduulin aktivoitumaan kun käyttäjä menee kyseiseen soluun? Ei tapahdu mitään ja voin kirjoittaa soluun mitä vain eikä tapahdu mitään.
Makrot olen sallinut. Minulla on Excel 2007.

Tumpelo (siis tosi tumpelo...) kirjoitti:

mutta en saa tätäkään toimimaan - ongelmani on kai että miten saan tuon moduulin aktivoitumaan kun käyttäjä menee kyseiseen soluun? Ei tapahdu mitään ja voin kirjoittaa soluun mitä vain eikä tapahdu mitään.
Makrot olen sallinut. Minulla on Excel 2007.

Lue lisää

olet laittanut koodin tavalliseen moduuliin, kun se pitää olla sen taulukon moduulissa, missä haluat lukutksen tapahtuban. Siis TAULUKON MODUULIIN...

kunde kirjoitti:

olet laittanut koodin tavalliseen moduuliin, kun se pitää olla sen taulukon moduulissa, missä haluat lukutksen tapahtuban. Siis TAULUKON MODUULIIN...

Siis kun menen Kehitystyökalut / Visual basic / insert / niin mitä sitten - vai onko väärä reitti? Siell on joko inset module tai class module, ei auta.
Yhtä eksyksiin päädyn jos menen Nauhoita makro-nappulan kautta, sitten pitäisi valita pikanäppäin ja tämän pitäisi siis aktivoitua kun käyttäjä menee tähän taulukkoon.

Eli minulla ei ole tämä terminologia hallussa :(

se taulukon moduuli? kirjoitti:

Siis kun menen Kehitystyökalut / Visual basic / insert / niin mitä sitten - vai onko väärä reitti? Siell on joko inset module tai class module, ei auta.
Yhtä eksyksiin päädyn jos menen Nauhoita makro-nappulan kautta, sitten pitäisi valita pikanäppäin ja tämän pitäisi siis aktivoitua kun käyttäjä menee tähän taulukkoon.

Eli minulla ei ole tämä terminologia hallussa :(

Lue lisää

tapa 1
taulukkovalitsimesta klikkaa haluttu taulukko ja hiiren oikealla klikkaat ko taulukon valitsimmessa ja avautuvasta valikosta View Code/Näytä koodi. Avautuvaan moduuliin sitten liität koodin...

tapa 2
taulukkopuolella näppäinyhdistelmä CTRL F11 ja vasemmalta Projektinhallinnasta tuplaklikkaat haluamaasi taulukkomoduulia.
Varmista, että on oikea projekti laajennettuna (- merkki projektin edessä), jos siinä on -merkki niin laajenna projekti klikkaamalla merkkiä. Seuraavaksi pitäisi Microsoft Excel Objects olla näkyvissä ja jos ei ole niin toista ylläoleva. Nyt sieltä löytyy taulukkomoduulit tyyliin Sheet1 (Koe), missä eka on VBA koodissa käytettävä nimi, joka voidaan vaihtaa ominaisuuksista ja suluissa on taulukon nimi, joka näkyy taulukkovalitsimessa.
No nyt tuplaklikkaat sitten haluamaasi taulukkoa ja liität koodin sinne.
Kyllä koodin nyt pitäisi toimia...

kunde kirjoitti:

tapa 1
taulukkovalitsimesta klikkaa haluttu taulukko ja hiiren oikealla klikkaat ko taulukon valitsimmessa ja avautuvasta valikosta View Code/Näytä koodi. Avautuvaan moduuliin sitten liität koodin...

tapa 2
taulukkopuolella näppäinyhdistelmä CTRL F11 ja vasemmalta Projektinhallinnasta tuplaklikkaat haluamaasi taulukkomoduulia.
Varmista, että on oikea projekti laajennettuna (- merkki projektin edessä), jos siinä on -merkki niin laajenna projekti klikkaamalla merkkiä. Seuraavaksi pitäisi Microsoft Excel Objects olla näkyvissä ja jos ei ole niin toista ylläoleva. Nyt sieltä löytyy taulukkomoduulit tyyliin Sheet1 (Koe), missä eka on VBA koodissa käytettävä nimi, joka voidaan vaihtaa ominaisuuksista ja suluissa on taulukon nimi, joka näkyy taulukkovalitsimessa.
No nyt tuplaklikkaat sitten haluamaasi taulukkoa ja liität koodin sinne.
Kyllä koodin nyt pitäisi toimia...

Lue lisää

Kun tietää mitä tekee....

Taitaapa toimia :=)

Kiitos kun jaksat meitä Tumpeloita neuvoa. Yliopisto säästäisi pitkän pennin jos järjestäisi henkilökunnalle kunnon excel-kursseja, muttakunei. Opetellaan vaan yhteenlaskua ja talukoiden avaamista.

kunde kirjoitti:

tapa 1
taulukkovalitsimesta klikkaa haluttu taulukko ja hiiren oikealla klikkaat ko taulukon valitsimmessa ja avautuvasta valikosta View Code/Näytä koodi. Avautuvaan moduuliin sitten liität koodin...

tapa 2
taulukkopuolella näppäinyhdistelmä CTRL F11 ja vasemmalta Projektinhallinnasta tuplaklikkaat haluamaasi taulukkomoduulia.
Varmista, että on oikea projekti laajennettuna (- merkki projektin edessä), jos siinä on -merkki niin laajenna projekti klikkaamalla merkkiä. Seuraavaksi pitäisi Microsoft Excel Objects olla näkyvissä ja jos ei ole niin toista ylläoleva. Nyt sieltä löytyy taulukkomoduulit tyyliin Sheet1 (Koe), missä eka on VBA koodissa käytettävä nimi, joka voidaan vaihtaa ominaisuuksista ja suluissa on taulukon nimi, joka näkyy taulukkovalitsimessa.
No nyt tuplaklikkaat sitten haluamaasi taulukkoa ja liität koodin sinne.
Kyllä koodin nyt pitäisi toimia...

Lue lisää

Kiitos, Kunde kärsivällisistä neuvoista. Vielä on ihmeteltävää - tapahtuu nimittäin eri aisoita riippuen suojaanko taulukon sekä työkirjan rakenteen samalla vai eri salasanalla kuin vba-koodissa:

Kun nimittäin suojaan taulukon, niin en saa suojattua koodia ja solusuojauksissakin on edelleen ihmeteltävää. Kyseessä on siis taulu, jossa käyttäjä liikku tabuloimalla niissä soluissa joita hänen on tarkoitus muuttaa, muut on lukittu. Yksi solu on sellainen, että se lukittuu kun siihen syötetään haluttu arvo.

Suojaus eri salasanalla:
Syöte oikein: taulukko pysyy lukittuna, mutta kyseinen solu ei lukitu kuten piti
Syöte väärin: kuten edellä
Suojaus samalla salasanalla:
Syöte oikein: kaikkien solujen lukitukset poistuvat ja lukittuvat, kyseinen solu mukaan lukien, vasta kun kyseiseen soluun mennään toisen kerran
Syöte väärin: Kuten edellä
Kaikissa tapauksissa Näytä koodi –toiminto on käytettävissä koko ajan klikkaamalla hiiren oikealla nappulalla taulukonvalitsinta ja silloin pääsee koodia siis ropeloimaan ilman mitään salasanakyselyjä

Neuvoista taas kiitollinen :)

Tumpelo kirjoitti:

Kiitos, Kunde kärsivällisistä neuvoista. Vielä on ihmeteltävää - tapahtuu nimittäin eri aisoita riippuen suojaanko taulukon sekä työkirjan rakenteen samalla vai eri salasanalla kuin vba-koodissa:

Kun nimittäin suojaan taulukon, niin en saa suojattua koodia ja solusuojauksissakin on edelleen ihmeteltävää. Kyseessä on siis taulu, jossa käyttäjä liikku tabuloimalla niissä soluissa joita hänen on tarkoitus muuttaa, muut on lukittu. Yksi solu on sellainen, että se lukittuu kun siihen syötetään haluttu arvo.

Suojaus eri salasanalla:
Syöte oikein: taulukko pysyy lukittuna, mutta kyseinen solu ei lukitu kuten piti
Syöte väärin: kuten edellä
Suojaus samalla salasanalla:
Syöte oikein: kaikkien solujen lukitukset poistuvat ja lukittuvat, kyseinen solu mukaan lukien, vasta kun kyseiseen soluun mennään toisen kerran
Syöte väärin: Kuten edellä
Kaikissa tapauksissa Näytä koodi –toiminto on käytettävissä koko ajan klikkaamalla hiiren oikealla nappulalla taulukonvalitsinta ja silloin pääsee koodia siis ropeloimaan ilman mitään salasanakyselyjä

Neuvoista taas kiitollinen :)

Lue lisää

VBA editorin puolella valitse valikoista
Tools/VBAProject Properties -avautuu lomake ja siitä klikkaa Protection välilehti ja täppä kohtaa Lock Project for viewing ja salasanan kirjoitat pariin kertaa ja OK. Tallenna työkirja ja avaa uudelleen nyt koodit näkyvät vain salasanalla.

Muutin koodin solunmuutos tapahtumaan...
koodissa salasana on oltava sama kuin taulukon suojaus salasana.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
With ActiveSheet
.Unprotect Password:="Kunde"
If Range("A1") = 1 Then
Target.Locked = True

Else
MsgBox " Anna solun arvoksi 1"
Range("A1").Select
End If
.Protect Password:="Kunde"
End With
End If
End Sub

kunde kirjoitti:

VBA editorin puolella valitse valikoista
Tools/VBAProject Properties -avautuu lomake ja siitä klikkaa Protection välilehti ja täppä kohtaa Lock Project for viewing ja salasanan kirjoitat pariin kertaa ja OK. Tallenna työkirja ja avaa uudelleen nyt koodit näkyvät vain salasanalla.

Muutin koodin solunmuutos tapahtumaan...
koodissa salasana on oltava sama kuin taulukon suojaus salasana.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
With ActiveSheet
.Unprotect Password:="Kunde"
If Range("A1") = 1 Then
Target.Locked = True

Else
MsgBox " Anna solun arvoksi 1"
Range("A1").Select
End If
.Protect Password:="Kunde"
End With
End If
End Sub

Lue lisää

Toimii ja ei toimi. Eli kun tein tuon ensimmäisen kerran niin tuntui ensin että pelasi kuten piti. Mutta sitten aloin "leikkiä" tällä ja havaitsin:
1. Makro ei aktivoidu kun menee siihen soluun, missä piti näin olla, MUTTA se aktivoituu kun tuhoan siihen pistämäni syötteen
2. Solu ei lukitu, mutta muut solut, jotka ovat alunperinkin lukittuja, pysyvät lukittuina kuten tarkoitus on

Vaikuttaako se että tämä on excel 2007? Jotenkin epävarman tuntuisia nämä excelin makrot ja suojaukset.

Tumpelo kirjoitti:

Toimii ja ei toimi. Eli kun tein tuon ensimmäisen kerran niin tuntui ensin että pelasi kuten piti. Mutta sitten aloin "leikkiä" tällä ja havaitsin:
1. Makro ei aktivoidu kun menee siihen soluun, missä piti näin olla, MUTTA se aktivoituu kun tuhoan siihen pistämäni syötteen
2. Solu ei lukitu, mutta muut solut, jotka ovat alunperinkin lukittuja, pysyvät lukittuina kuten tarkoitus on

Vaikuttaako se että tämä on excel 2007? Jotenkin epävarman tuntuisia nämä excelin makrot ja suojaukset.

Lue lisää

ja liitä tänne semmoinen toimiva versio tosta suojauksesta. Suojauksien säätely on muuttunut vuosien varrella aika paljon ja työni(asiakkaani)johdosta minulla ei ole uudempaa 2007 versiota käytössäni.

kunde kirjoitti:

ja liitä tänne semmoinen toimiva versio tosta suojauksesta. Suojauksien säätely on muuttunut vuosien varrella aika paljon ja työni(asiakkaani)johdosta minulla ei ole uudempaa 2007 versiota käytössäni.

Lue lisää

Kyllä tämä taitaa jo pelata. Konstikasta on näin tottumattomalle. Aurinkoista kevättä!