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
  WENN/DANN Bedingung möglich? stella_gen 22 183 02.12.2016, 00:01
Letzter Beitrag: stella_gen
  Blattschutz schützen (ohne PW) Hobbes95 3 71 18.11.2016, 15:50
Letzter Beitrag: RPP63
  Abbrechen Button mit VBA abfragen Heinz Ulm 2 68 17.11.2016, 09:35
Letzter Beitrag: Heinz Ulm
  Teile aus Zelltext an unterschiedlicher Stelle auslesen möglich? Giftfee 4 76 07.11.2016, 11:20
Letzter Beitrag: Giftfee
  Zellen nach ausfüllen dauerhaft schützen bietho 18 575 27.10.2016, 09:42
Letzter Beitrag: headloose
  Blattschutz aufheben bei bestimmten User FaDos 3 134 20.10.2016, 22:15
Letzter Beitrag: AlterDresdner
  Blattschutz ulle 1 90 11.10.2016, 10:34
Letzter Beitrag: Gast 123
  Keine Lohntabelle möglich Ernst Hart 4 163 02.10.2016, 23:01
Letzter Beitrag: Gast 123
  Dynamischen Tabellenbereich kopieren via Button andifreak 2 164 18.09.2016, 07:40
Letzter Beitrag: andifreak
  Anzeige für Folgeseiten möglich? Calafati 3 96 15.09.2016, 08:04
Letzter Beitrag: Kuwer

Gehe zu:


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