Dzieki Trebor;]
O to dokładnie mi chodziło :]
jest tu takie coś jak w niektórych forach? tzn. Przycisk "pomógł" ;] Jak nie to szkoda

Upraszczając moźe być tak:

Sub OdBlokuj()
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then _
s.ControlFormat.Enabled = True
End If
Next
Worksheets(1).Range("B20") = ""
End Sub
Sub Blokuj()
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then _
s.ControlFormat.Enabled = False
End If
Next
Worksheets(1).Range("B20") = Worksheets(2).Range("B10")
End Sub
Sub Czysc()
'makro dla przycisku 4
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then _
s.ControlFormat.Value = False
End If
Next
End Sub

Podepnij to pod przyciski i powinno byc OK.

Dziekuje za pomoc

Czyść działa znakomicie;p [Wielkie THX], ale niestety blokuj niezbyt mi działa [no chyba, źe je niewłaściwie wprowadzam [po prostu kopiuje tekst i wklejam w kodzie nowego makro]]
_____________________________________________________

przepraszam, źe nie sprecyzowałem, tak przyciski pól wyboru z paska "formularze" a co do blokowania chyba wyraziłem się niejasno:

Chodzi dokładnie o to, źeby po naciśnięci na przycisk, automatycznie blokowała się moźliwość zaznaczenia/odznaczenia wszystkich pól wyboru i w komórce np. b20 1szego arkusza, ma się wyświetlać zawartość komórki b10 2 arkusza. Potrzebuje tego do TESTU WIELOKROTNEGO WYBORU na informatykę i ma to byc na zasadzie przycisku "koniec testu" uniemoźliwienie odpowiedzi i wyświetlenie się oceny [która jest sumowana w 2 arkuszu;p]
jeszcze raz proszę o pomoc;p

Z góry dziękuje

Hej!!
Sądzę, źe masz pole wyboru z paska formularze. Niezbyt jestem w tym biegły ale coś tam napisałem.

Dim i As Byte
Sub blokuj_odblokuj()
'Makro dla przycisku nr 3
If i = 200 Then
i = 1
Worksheets(1).Shapes(3).Select
Selection.Characters.Text = "Zablokowane"
Range("B2").Select
Selection = Worksheets("Arkusz2").Range("B15")
Else
i = 200
Worksheets(1).Shapes(3).Select
Selection.Characters.Text = "Odblokowane"
Range("B2").Select
Selection.ClearContents
End If
End Sub

Sub Blokuj1()
'makro dla pierwszego pola wyboru
If i = 200 Then Exit Sub
i = 1
Blokuj
End Sub
Sub Blokuj2()
'makro dla drugiego pola wyboru
If i = 200 Then Exit Sub
i = 2
Blokuj
End Sub
Sub Blokuj()
If Worksheets(1).Shapes(i).ControlFormat.Value = 1 Then
Worksheets(1).Shapes(i).ControlFormat.Value = False
Else
Worksheets(1).Shapes(i).ControlFormat.Value = True
End If
End Sub
Sub Czysc()
'makro dla przycisku 4
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then _
s.ControlFormat.Value = False
End If
Next
End Sub

Niestety nie udaje się mi dołączyć pliku
Pozdrawiam