Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenbereich sperren und freigeben
 21.11.2008 11:41:53 Ralf
NotSolved
26.11.2008 15:28:43 jh
NotSolved
26.11.2008 20:51:25 Ralf
NotSolved

Ansicht des Beitrags:
Von:
Ralf		 Datum:
21.11.2008 11:41:53		 Views:
1839		 Rating:
     
Antwort:
  Ja
Thema:
Zellenbereich sperren und freigeben
Hallo,

ich habe die folgenden Makros geschrieben ... funkt auch so habe nur ein Problem !!!

Ich kann in die Zellen nicht mehr formatieren Farbe Schrift Größe obwohl die Zellen frei sind ... Werte eintragen kann ich !

Was habe ich falsch gemacht bzw. wo liegt der Fehler ??

Option Explicit

Function MakierBereich() As String
Dim Internrange As Range
On Error GoTo Brutt
Set Internrange = Application.InputBox("makierten Bereiches ?", _
"(ent)sperren des",Selection.AddressLocal,Type:=8)
MakierBereich = Internrange.Address
Exit Function
Brutt:
MakierBereich = "A1"
End Function

Sub MakiertesSperren()
Dim MaBereich As String
MaBereich = MakierBereich
If MaBereich <> "A1" Then
On Error Resume Next
ActiveSheet.Unprotect Password:="ex009" ' Blattschutz aus
Range(MaBereich).Locked = True
ActiveSheet.Protect Password:="ex009" ' Blattschutz ein
End If
End Sub

Sub MakiertesLoessen()
Dim MaBereich As String
MaBereich = MakierBereich
If MaBereich <> "A1" Then
On Error Resume Next
ActiveSheet.Unprotect Password:="ex009" ' Blattschutz aus
Range(MaBereich).Locked = False
ActiveSheet.Protect Password:="ex009" ' Blattschutz ein
End If
End Sub

Sub KompletteLoessen()
On Error Resume Next
ActiveSheet.Unprotect Password:="ex009" ' Blattschutz aus
End If
End Sub

Sub MakiertesWasIst()
If ActiveSheet.ProtectContents = False Then
MsgBox "NICHT geschützt", 64, "Blatt ist"
Else
MsgBox "geschützt", 48, "Blatt ist"
End If
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 Zellenbereich sperren und freigeben
 21.11.2008 11:41:53 Ralf
NotSolved
26.11.2008 15:28:43 jh
NotSolved
26.11.2008 20:51:25 Ralf
NotSolved