Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Blattschutz akt. 2 Z.blöcke getrennt schützen/eingeben per Button, ist das möglich
#1
Lightbulb 
Hallo @
wenn eine Tabelle aus 2 Blöcken besteht, die Eingabe in den Zellen:
B4 > B5 > B6 > B7 > B8 > B9 > B10
dann
C4 > C5 > C6 > C7 > C8 > C9 > C10
usw. bis F10
erfolgt ist, soll der 1ste Block per Button gesperrt und der 2te Block freigegeben werden.
2te Block von: H4 : L10
Beim öffnen des Tab.bl. ist der Blattschutz aktiv, nur Zellenblock B4 : F10 offen.
Button evt. ein 'ActiveX-Steuerelement' ?
Ist das mit wenigen Mitteln zu bewerkstelligen?

bin am lesen; umsetzen; klappt nicht. VBA wäre schön anwenden zu können Huh
Zudem ärgert mich mein 2ter Tinnitus (5); Nr.1 auf der Skala 0-10 (8)

Ihr die ihr hier helft, schüttelt sowas direkt aus dem Ärmel, glaub ich 17
?mage
to top
#2
Hi Frank,

füge eine Schaltefläche aus den Formular-Steuerelementen ein und weise ihr folgendes Makro zu, das in einem allgemeinen Modul steht:

Code:
Sub NaechterBlock()
   If Application.CountA(Range("B4:F10")) = Range("B4:F10").Cells.Count Then
      ActiveSheet.Unprotect
      Range("B4:F10").Locked = True
      Range("H4:L10").Locked = False
      ActiveSheet.Protect
   Else
      MsgBox Application.CountA(Range("B4:F10")) & " Zellen von " & _
         Range("B4:F10").Cells.Count & " Zellen belegt"
   End If
End Sub


GrußformelBeverly's Excel - Inn
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
to top
#3
(07.05.2014, 19:04)Beverly schrieb: folgendes Makro
Danke Karin
Das klappt sehr gut
?mage
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Kopieren & Formatieren nicht möglich meinereiner 2 50 19.01.2017, 11:05
Letzter Beitrag: steve1da
  Blatt schützen für "Anfänger" Calafati 8 102 18.01.2017, 08:04
Letzter Beitrag: BoskoBiati
  Kundenliste Name und Adresse mit Komma getrennt excel2016 7 84 17.01.2017, 18:18
Letzter Beitrag: Wilfried Höttl
  ZÄHLENWENN mit zwei Bedingungen als Bedingte Formatierung möglich? Calafati 4 44 16.01.2017, 15:07
Letzter Beitrag: atilla
Wink Dateipfad für Formeln getrennt auflisten ConstantinT 2 68 13.01.2017, 18:34
Letzter Beitrag: schauan
  In menüleiste Button michel34497 3 107 09.12.2016, 06:14
Letzter Beitrag: mumpel
  WENN/DANN Bedingung möglich? stella_gen 22 354 02.12.2016, 00:01
Letzter Beitrag: stella_gen
  Blattschutz schützen (ohne PW) Hobbes95 3 133 18.11.2016, 15:50
Letzter Beitrag: RPP63
  Teile aus Zelltext an unterschiedlicher Stelle auslesen möglich? Giftfee 4 116 07.11.2016, 11:20
Letzter Beitrag: Giftfee
  Zellen nach ausfüllen dauerhaft schützen bietho 18 736 27.10.2016, 09:42
Letzter Beitrag: headloose

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste