"Łatwiej wybaczyć wrogowi niż
przyjacielowi"
William Blake

1. Niestety , DeK 27/01/05 20:54
   ten wariant też nie działa.:-/
   1. hmm , Jumper 27/01/05 20:56
      dziwne, uruchomilem nagrywanie makro i z kontrolem zaznaczalem przypadkowe komorki, i tam wlasnie podobnie wyszla

      "Łatwiej wybaczyć wrogowi niż
      przyjacielowi"
      William Blake

      1. dokładnie to wyglada tak: , DeK 27/01/05 21:02
         Sub blokowanie()
         Worksheets("Strona 3").Select
         ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
         ActiveSheet.Range("g16, h16, h24").Select
         
         Selection.Value = ""
         Selection.Locked = True
         
         End Sub
         
         
         I w tej sytuacji pojawia mi się błąd a w helpie nie znalazłem wyjaśnienia :( i przykładów jak to zrobić zeby działało.
         1. rozumiem , Jumper 27/01/05 21:08
            ze masz zablokowany arkusz
            i chcesz poprawic komorki?
            
            3 linia: (to z protectem zabezpiecza ci tak arkusz pomimo ze ma false w parametrach
            moze daj ActiveSheet.unprotect
            i potem znowu ActiveSheet. protect..................
            
            moze to pomoze... ja w ten sposob oblokowywalem komorki do porawienia wpisow

            "Łatwiej wybaczyć wrogowi niż
            przyjacielowi"
            William Blake

            1. no i , Jumper 27/01/05 21:09
               u mnie ten kawalek kodu sie nie wysypal....

               "Łatwiej wybaczyć wrogowi niż
               przyjacielowi"
               William Blake

               1. kurka to co jest grane? , DeK 27/01/05 21:21
                  może wersja excela ma znaczenie? Używam excela 2000.
                  
                  Błąd który się pojawia to:
                  
                  Run-time error '1004'
                  Application-defined or object-defined error
                  
                  i mi na żółto zaznacza właśnie ten odcinek
                  
                  ActiveSheet.Range("g16, h16, h24").Select
                  
                  
                  Arkusz całkowicie odblokowałem ale to eni pomogło
                  1. no to moze , Jumper 27/01/05 21:35
                     zapisz to tak
                     
                     sheet("Arkusz").Select
                     range("A1, B12").Select

                     "Łatwiej wybaczyć wrogowi niż
                     przyjacielowi"
                     William Blake

                     1. niestety , DeK 27/01/05 22:28
                        tak też nie działa :-(
                        Z tego co sie orientuję trzeba to jakimś sposobem zrobić żeby zaznaczał pojedyncze komórki (na raz a nie po kolei) bo w tym wariancie nei można wpisać więcej jak pojedyncza albo zakres.
                        Przynajmniej nie w excel 2000.
                        1. hmm , Jumper 27/01/05 22:40
                           u mnie dziala, dopisalem wiecej komorek, zablokowalem arkusz wczesniej, i tez mam excel 2000

                           "Łatwiej wybaczyć wrogowi niż
                           przyjacielowi"
                           William Blake

         2. zmień tak i bedzi działać , john565 27/01/05 21:12
            Worksheets("Strona 3").Select n Worksheets(3).Select

            f*ck

            1. niestety też nie działa , DeK 27/01/05 21:32
               wysypuje się przy drugim Worksheets (3)

_- Atay -_