Thema Datum  Von Nutzer Rating
Antwort
Rot Excel gefüllte Zellen sperren aber mit Ausnahmen
 26.12.2018 00:16:17 Stefan
NotSolved
26.12.2018 08:20:06 Gast77114
NotSolved
26.12.2018 09:51:57 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Stefan		 Datum:
26.12.2018 00:16:17		 Views:
1216		 Rating:
     
Antwort:
  Ja
Thema:
Excel gefüllte Zellen sperren aber mit Ausnahmen

Hallo und eine schöne restliche Weihnachtszeit an alle.
Bei der weihnachtlichen Ruhe brühte ich momentan vor einem Problem
welches ich noch nicht so richtig gelöst bekomme.

Wenn meine Exceltabelle gespeichert wird, werden alle
beschrieben Zellen gesperrt. Das funktioniert mit dem
unten stehenden Script ganz gut. Nun muss ich noch ein paar
Ausnahmen definieren, wenn in einer Zelle einer Spalte der Wert "a"
auftaucht darf diese Zelle nicht gesperrt sein.
Hat jemand eine Idee wie ich das Script anpassen muss?


Im Detail betrifft dies die Spalte "L" für die Buchstaben "a"; "s",
und die Spalte "W" für den Buchstaben "s"

Vielen Dank!

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 Dim wsTab As Worksheet
 Dim rngWerte As Range
 Dim rngFormeln As Range
 Set wsTab = Worksheets("Korrekturen")

On Error Resume Next


  With wsTab
     If .ProtectContents = True Then .Unprotect Password:="record"
     With .Range("A:X")
       .Locked = False
       On Error Resume Next
       Set rngWerte = .SpecialCells(xlCellTypeConstants)
       Set rngFormeln = .SpecialCells(xlCellTypeFormulas)
       On Error GoTo 0
     End With
     If Not rngWerte Is Nothing Then rngWerte.Locked = True
     If Not rngFormeln Is Nothing Then rngFormeln.Locked = True

     .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
              , AllowSorting:=True, AllowFiltering:=True, Password:="record"

   End With

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel gefüllte Zellen sperren aber mit Ausnahmen
 26.12.2018 00:16:17 Stefan
NotSolved
26.12.2018 08:20:06 Gast77114
NotSolved
26.12.2018 09:51:57 Stefan
NotSolved